view release on metacpan or  search on metacpan

t/02simple.t  view on Meta::CPAN

my $obj2 = do {
	package Local::SomeOtherClass;
	sub MATCH { $_[1] }
	bless [];
};
does_match(1, $obj2);
doesnt_match(0, $obj2);

# If the right hand side is an object which overloads "~~", then a
# true smart match is performed.
if ( $] le '5.036000' ) {
	my $obj3 = eval q{
		no warnings;
		no strict 'refs';
		package Local::YetAnotherClass;
		use overload q[~~] => sub { $_[1] }, fallback => 1;
		bless [];
	};
	my $e = $@;
	ok($obj3, 'eval worked') or diag($e);
	does_match(1, $obj3);