Skip to content
Browse files

default implementations for _autoload and _destroy

  • Loading branch information...
1 parent 180c7ae commit 7020571b9bdd7136a998da3125d4027b5aa857a2 @frodwith committed Jul 26, 2011
Showing with 7 additions and 0 deletions.
  1. +7 −0 lib/Mew/Object.pm
View
7 lib/Mew/Object.pm
@@ -19,6 +19,13 @@ use overload
our $AUTOLOAD;
+sub _autoload {
+ my ($self, $name) = @_;
+ return $self->can($name);
+}
+
+sub _destroy { }
+
sub isa {
my ($self, $class) = @_;
return UNIVERSAL::isa($self, $class) unless Scalar::Util::blessed($self);

0 comments on commit 7020571

Please sign in to comment.
Something went wrong with that request. Please try again.