7 use lib "$FindBin::Bin/lib";
9 eval "use Sub::Exporter";
11 ? ( skip_all => "Tests require Sub::Exporter" )
15 use SubExporterCompatibility qw(MyStr something);
17 ok MyStr->check('aaa'), "Correctly passed";
18 ok !MyStr->check([1]), "Correctly fails";
19 ok something(), "Found the something method";