package My::Object;
our @ISA = qw(Basset::Object);

sub error {
	my $self = shift;
	
	#log interesting things
	
	return $self->SUPER::error(@_);
}