[Chicago-talk] default methods

[Jim Thomason]

AUTOLOAD.

package MyClass;

sub AUTOLOAD {
  goto &defaultHandler;
}

You could actually just call defaultHandler as a method or whatnot,
but the goto is actually better in this case.

-Jim...

On Mon, 26 Jul 2004 16:08:07 -0500, JT Smith <jt at plainblack.com> wrote:
> I need some help from the perl experts. Any and all advice would be much appreciated.
> 
> Consider that I have a class that looks like this:
> 
> package MyClass;
> 
> use strict;
> 
> sub new {
>    my $class = shift;
>    my $something = 1;
>    bless {something=>$something}, $class;
> }
> 
> sub someMethod {
>    return "foo";
> }
> 
> sub defaultHandler {
>    return "no such method";
> }
> 
> 1;
> 
> Now let's say that a user creates a program like this:
> 
> #!/usr/bin/perl
> 
> use strict;
> use MyClass;
> 
> my $obj = MyClass->new;
> print $obj->someMethod."\n";
> print $obj->someOtherMethod."\n";
> 
> The program will crap out of course because someOtherMethod doesn't exist. My question
> is, is there a way to get perl to call defaultHandler if a method is called that does
> not exist?
> 
> JT ~ Plain Black
> 
> Create like a god, command like a king, work like a slave.
> _______________________________________________
> Chicago-talk mailing list
> Chicago-talk at mail.pm.org
> http://mail.pm.org/mailman/listinfo/chicago-talk
>