no strict qw/refs/ ;
  my $originalFunction = \&{__PACKAGE__ . "::$meth" } ;
  *{__PACKAGE__ . "::$meth"} = sub {
...
     my $ans = $originalFunction->( $class, @_ ) ;
...
  }