File Coverage

blib/lib/App/Reg.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	28	60.7

package App::Reg;
use strict;
use warnings;
use Exporter 'import';
# Import re, but without warnings about empty list
use re ();

our $VERSION = '1.2.5';
our @EXPORT = our @EXPORT_OK = 'reg';

sub reg {
    my ($string, $pattern, %options) = @_;

    # works like use, but it isn't done at compile time
    re->import('eval', $options{color} ? 'debugcolor' : 'debug');

    # Check if multiple matches are requested
    if ($options{global}) {
        # Saved in variable, so it wouldn't depend on wantarray()
        my @output = $string =~ /$pattern/g;
        return @output;
    }
    else {
        return $string =~ /$pattern/;
    }
}

# Return positive value
1;

__END__