File Coverage

blib/lib/Regexp/Match/Any.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 2 2 100.0
subroutine 4 4 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Regexp::Match::Any;
2              
3 1     1   13968 use strict;
  1         4  
  1         116  
4 1     1   5 use warnings;
  1         2  
  1         52  
5              
6             require Exporter;
7 1     1   6 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  1         6  
  1         216  
8              
9             $Regexp::Match::Any::VERSION = 0.03;
10             @ISA = qw(Exporter);
11             @EXPORT = qw(&match_any);
12             @EXPORT_OK = qw(&match_any);
13              
14             sub match_any {
15 4     4 0 32 my $ref = shift;
16 4   100     17 my $opt = shift || '';
17 4         8 my $regex = join('|', @{$ref});
  4         13  
18 4         237 return qq{(?$opt:$regex)};
19             }
20             __END__