Skip to content
This repository
tree: 1189c5a6e2
Fetching contributors…

Cannot retrieve contributors at this time

file 15 lines (11 sloc) 0.27 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
package x;

use Test::More tests => 1;

use Symbol::Approx::Sub (xform => undef,
match => sub { my ($sub, @subs) = @_;
foreach (0 .. $#subs) {
return $_
if $sub eq reverse $subs[$_];
}
return;});

sub oof {'yep'};

ok(foo() eq 'yep');
Something went wrong with that request. Please try again.