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

Cannot retrieve contributors at this time

file 9 lines (5 sloc) 0.2 kb
1 2 3 4 5 6 7 8 9
use Test::More tests => 1;

use Symbol::Approx::Sub (xform => [ sub { map { s/[^a-z]//ig; $_ } @_ },
                                    sub { map { lc } @_ } ]);


sub a_a { 'aa' }

ok(&AA eq 'aa');
Something went wrong with that request. Please try again.