use warnings;
use strict;
use Test::More tests=>12;

ok ! defined eval "use My::Test; 1";
like $@, qr/\bNumber of import parameters is wrong\b/i;
ok ! defined eval "use My::Test qw/foo/; 1";
like $@, qr/\bNumber of import parameters is wrong\b/i;
ok ! defined eval "use My::Test qw/foo bar/; 1";
like $@, qr/\bNumber of import parameters is wrong\b/i;
ok ! defined eval "use My::Test qw/foo bar quz baz/; 1";
like $@, qr/\bNumber of import parameters is wrong\b/i;
ok ! defined eval "use My::Test qw/foo bar quz baz blah/; 1";
like $@, qr/\bNumber of import parameters is wrong\b/i;
ok defined eval "use My::Test qw/foo bar quz/; 1";
ok !$@;