$methods{$_} = eval qq( package $caller; sub { my \$self = shift; # #print "installing $method_name() in $caller...\n"; # # Without \$caller and eval, the following line causes this error: # # Can't locate auto/CustomMethodMaker/SUPER/[METHOD].al in \@INC # my \@parent_slots; if ( \$self->can( SUPER::$method_name ) ) { \@parent_slots = \$self->SUPER::$method_name( \@_ ); } return ( \@parent_slots, \@slots ); } ); die $@ if $@;