Select Code to Download

sub cant_do_that { 
        my $self = shift; 
...
    *methodTwo = \&cant_do_that;

BEGIN {
  for my $fakir (qw(methodOne methodTwo)) {
    *$fakir = sub { die "undef abstract method $fakir used by ".(shift
+); }
  }
}