File Coverage

blib/lib/Regex/Object/Matches.pm
Criterion Covered Total %
statement 38 38 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 0 3 0.0
total 48 51 94.1


line stmt bran cond sub pod time code
1             package Regex::Object::Matches;
2              
3 4     4   63 use 5.20.0;
  4         13  
4              
5 4     4   20 use utf8;
  4         9  
  4         26  
6 4     4   97 use English;
  4         10  
  4         26  
7 4     4   1718 use feature qw(signatures);
  4         8  
  4         403  
8              
9 4     4   26 use Moo;
  4         6  
  4         34  
10              
11 4     4   1761 no warnings qw(experimental::signatures);
  4         8  
  4         233  
12 4     4   28 use namespace::clean;
  4         7  
  4         30  
13              
14             has collection => (
15             is => 'ro',
16             required => 1,
17             );
18              
19             has count => (
20             is => 'rwp',
21             );
22              
23 5     5 0 1516 sub BUILD($self, $args) {
  5         8  
  5         9  
  5         7  
24 5         8 $self->_set_count(scalar @{$self->collection});
  5         35  
25             }
26              
27 2     2 0 3 sub match_all($self) {
  2         5  
  2         2  
28 2         3 return [map { $_->match } @{$self->collection}];
  6         22  
  2         6  
29             }
30              
31 1     1 0 3 sub captures_all($self) {
  1         1  
  1         3  
32 1         1 return [map { $_->captures } @{$self->collection}];
  3         8  
  1         4  
33             }
34              
35             1;