File Coverage

blib/lib/Test/Fatal/matchfor.pm

Criterion	Covered	Total	%
statement	18	28	64.2
branch	0	6	0.0
condition	0	12	0.0
subroutine	6	9	66.6
pod	1	1	100.0
total	25	56	44.6

use 5.008;
use strict;
use warnings;

use Scalar::Util ();
use Exporter ();

package Test::Fatal::matchfor;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.001';
our @EXPORT    = qw( matchfor );
our @ISA       = qw( Exporter );

sub matchfor
{
	my @matchers = @_;
	bless \@matchers, do {
		package #
		Test::Fatal::matchfor::Internals::MATCHER;
		use overload
			q[==] => 'match',
			q[eq] => 'match',
			q[""] => 'to_string',
			fallback => 1;
		sub to_string {
			$_[0][0]
		}
		sub match {
			my ($self, $e) = @_;
			my $does = Scalar::Util::blessed($e) ? ($e->can('DOES') || $e->can('isa')) : undef;
			for my $s (@$self) {
				return 1 if  ref($s) && $e =~ $s;
				return 1 if !ref($s) && $does && $e->$does($s);
			}
			return;
		}
		__PACKAGE__;
	};
}

1;

__END__