Yet Another CPAN Grep

Sub-MultiMethod ( T/TO/TOBYINK/Sub-MultiMethod-1.000.tar.gz, TOBYINK, 2022; MetaCPAN )

Sub-MultiMethod/t/03inheritance.t ( view source; MetaCPAN )

ef' );
is( $obj1->bar({}), 'Class1:bar:HashRef' );
isnt(
	exception { $obj1->bar() },
	undef,
);

is( $obj1->foolish({}), 'Class1:foo:HashRef' );
isnt(
	exception { $obj1->foolish() },
	'using an alia

), 'Class4:foo:Num', 'earlier definition wins' );

is( $obj4->foolish({}), 'Class1:foo:HashRef' );
isnt(
	exception { $obj4->foolish() },
	'using an alias does not bypass signature'
);

done_testing;

Sub-MultiMethod ( T/TO/TOBYINK/Sub-MultiMethod-1.000.tar.gz, TOBYINK, 2022; MetaCPAN )

Sub-MultiMethod/t/legacy/03inheritance.t ( view source; MetaCPAN )

ef' );
is( $obj1->bar({}), 'Class1:bar:HashRef' );
isnt(
	exception { $obj1->bar() },
	undef,
);

is( $obj1->foolish({}), 'Class1:foo:HashRef' );
isnt(
	exception { $obj1->foolish() },
	'using an alia

), 'Class4:foo:Num', 'earlier definition wins' );

is( $obj4->foolish({}), 'Class1:foo:HashRef' );
isnt(
	exception { $obj4->foolish() },
	'using an alias does not bypass signature'
);

done_testing;

Sub-MultiMethod ( T/TO/TOBYINK/Sub-MultiMethod-1.000.tar.gz, TOBYINK, 2022; MetaCPAN )

Sub-MultiMethod/t/06monomethod-weird.t ( view source; MetaCPAN )

thod/);

my $obj = Local::Calculator->new;

is( $obj->add(4, 5), 9 );
is( $obj->add(4, -1), 3 );

isnt(
	exception { $obj->add(4, 1.1) },
	undef,
);

my $e2 = exception {
	package Local::Calculator;

Sub-MultiMethod ( T/TO/TOBYINK/Sub-MultiMethod-1.000.tar.gz, TOBYINK, 2022; MetaCPAN )

Sub-MultiMethod/t/legacy/06monomethod.t ( view source; MetaCPAN )

thod/);

my $obj = Local::Calculator->new;

is( $obj->add(4, 5), 9 );
is( $obj->add(4, -1), 3 );

isnt(
	exception { $obj->add(4, 1.1) },
	undef,
);

my $e2 = exception {
	package Local::Calculator;

Sub-MultiMethod ( T/TO/TOBYINK/Sub-MultiMethod-1.000.tar.gz, TOBYINK, 2022; MetaCPAN )

Sub-MultiMethod/t/legacy/06monomethod-weird.t ( view source; MetaCPAN )

thod/);

my $obj = Local::Calculator->new;

is( $obj->add(4, 5), 9 );
is( $obj->add(4, -1), 3 );

isnt(
	exception { $obj->add(4, 1.1) },
	undef,
);

my $e2 = exception {
	package Local::Calculator;

Sub-MultiMethod ( T/TO/TOBYINK/Sub-MultiMethod-1.000.tar.gz, TOBYINK, 2022; MetaCPAN )

Sub-MultiMethod/t/06monomethod.t ( view source; MetaCPAN )

thod/);

my $obj = Local::Calculator->new;

is( $obj->add(4, 5), 9 );
is( $obj->add(4, -1), 3 );

isnt(
	exception { $obj->add(4, 1.1) },
	undef,
);

my $e2 = exception {
	package Local::Calculator;