use v5.14;

package Module1 {
	use Moo;
	use Kavorka;
	
	method allVars (Int $no1, Int $no2, Str $name1, Str $name2) {
		say "all vars = $no1 $no2 $name1 $name2";
	}
}

say "Let's check the method call works...";

my $obj = Module1->new;
$obj->allVars(1, 2, "Foo", "Bar");

say "Now let's inspect its parameters...";

my $info = Kavorka->info(\&Module1::allVars);
for my $parameter ($info->signature->positional_params)
{
	say $parameter->name, " has type ", $parameter->type->name;
}

##</code><code>##

Let's check the method call works...
all vars = 1 2 Foo Bar
Now let's inspect its parameters...
$no1 has type Int
$no2 has type Int
$name1 has type Str
$name2 has type Str