NAME

Sub::Way - several ways of matching

SYNOPSIS

    use Sub::Way qw/match/;

    if ( match($target_text, $condition) ) {
        # do something
    }

DESCRIPTION

Sub::Way is the matching utility.

METHOD

match($target, $condition, $and_opt)

sevelal ways below:

    match('example text', 'amp'); # true
    match('example text', qr/amp/); # true
    match('example text', sub { my $t = shift; return 1 if $t =~ /^amp/; }); # true

    match(
        'example text',
        [
            'amp',
            qr/amp/,
            sub { my $t = shift; return 1 if $t =~ /^amp/; },
        ]
    ); # of course true

    match(
        'example text',
        [
            'yamp', # not match
            qr/amp/,
            sub { my $t = shift; return 1 if $t =~ /^amp/; },
        ],
        1,
    ); # false

By default, the array of condition is evaluated as 'OR'.

REPOSITORY

Sub::Way is hosted on github: http://github.com/bayashi/Sub-Way

Welcome your patches and issues :D

AUTHOR

Dai Okabayashi <bayashi@cpan.org>

LICENSE

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.