view release on metacpan or  search on metacpan

t/Tests_Helper.pm  view on Meta::CPAN

  while( @_ ) {
    my( $name, $code ) = ( shift, shift );
    no strict 'refs';
    die "Unknown method name '$name'" unless defined &{$name};
    my $old = \&{$name};
    undef *{$name};
    *{$name} = sub { &$code; goto &$old };
  }
}

sub test_override(&$) {
  my( $code, $method ) = @_;
  my $called = 0;

  local $Test::Builder::Level = $Test::Builder::Level + 1;
  hijack( $method => sub { $called = 1 } );
  $code->();
  ok( $called, $method );
}

package Tests_Helper_App;