t/14_compatibility-sub-exporter.t

   1 BEGIN {
   2         use strict;
   3         use warnings;
   4         use Test::More;
   5     use FindBin;
   6     use lib "$FindBin::Bin/lib";
   7
   8     eval "use Sub::Exporter";
   9     plan $@
  10         ? ( skip_all => "Tests require Sub::Exporter" )
  11         : ( tests => 3 );
  12 }
  13
  14 use SubExporterCompatibility qw(MyStr something);
  15
  16 ok MyStr->check('aaa'), "Correctly passed";
  17 ok !MyStr->check([1]), "Correctly fails";
  18 ok something(), "Found the something method";