File Coverage

blib/lib/Sub/Way.pm

Criterion	Covered	Total	%
statement	21	26	80.7
branch	12	18	66.6
condition	3	3	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	42	53	79.2

package Sub::Way;
use strict;
use warnings;
use parent 'Exporter';

our $VERSION = '0.01';

our @EXPORT_OK = qw/ match /;

sub match {
    my ($target, $cond, $and) = @_;

    if ( ref($cond) eq 'ARRAY' ) {
        if ($and) {
            for my $c (@{$cond}) {
                return unless _match($target, $c);
            }
            return 1;
        }
        else {
            for my $c (@{$cond}) {
                return 1 if _match($target, $c);
            }
        }
    }
    else {
        return 1 if _match($target, $cond);
    }

    return; # not match
}

sub _match {
    my ($target, $cond) = @_;

    if ( !ref($cond) || ref($cond) eq 'Regexp' ) {
        return 1 if $target =~ m!$cond!;
    }
    elsif ( ref($cond) eq 'CODE' ) {
        return 1 if $cond->($target);
    }

    return;
}

1;

__END__