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