2 use warnings FATAL => 'all';
5 use Test::More tests => 8;
13 BEGIN { $obj = bless {}, 'TX'; }
16 use Function::Parameters {
18 check_argument_count => 1,
20 my ($type, $package) = @_;
21 if ($package ne $type) {
22 my (undef, $file, $line) = @_;
24 diag "! $file : $line";
33 fun Asdf::f1(main $x) {}
36 package Foo::Bar::Baz;
38 fun f1(Foo::Bar::Baz $x) {}
39 fun Ghjk::f1(Foo::Bar::Baz $x) {}
43 fun main::f2(AAA $x) {}
47 fun Ghjk::f2(main $x) {}