use strict;
use warnings;
use Test::More;
- use Test::Exception;
use FindBin;
use lib "$FindBin::Bin/lib";
- eval "use Sub::Exporter";
- plan $@
- ? ( skip_all => "Tests require Sub::Exporter" )
- : ( tests => 3 );
+ use Test::Requires { 'Sub::Exporter' => '0' };
}
-use SubExporterCompatibility qw(MyStr);
-
+use SubExporterCompatibility qw(MyStr something);
+
ok MyStr->check('aaa'), "Correctly passed";
ok !MyStr->check([1]), "Correctly fails";
ok something(), "Found the something method";
+done_testing;