Help for this page

Select Code to Download


  1. or download this
    sub cant_do_that { 
            my $self = shift; 
    ...
        *methodTwo = \&cant_do_that;
    
  2. or download this
    BEGIN {
      for my $fakir (qw(methodOne methodTwo)) {
        *$fakir = sub { die "undef abstract method $fakir used by ".(shift
    +); }
      }
    }