sub cant_do_that { 
        my $self = shift; 
        print "Error: Use of undefined Abstract Method by $self.\n"; 
    } 
 
    use subs qw/methodOne methodTwo/; 
    *methodOne = \&cant_do_that; 
    *methodTwo = \&cant_do_that; 

	

##</code><code>##

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