File Coverage

lib/Module/New/Files.pm
Criterion Covered Total %
statement 13 16 81.2
branch 1 2 50.0
condition n/a
subroutine 5 6 83.3
pod 4 4 100.0
total 23 28 82.1


line stmt bran cond sub pod time code
1             package Module::New::Files;
2              
3 6     6   676 use strict;
  6         7  
  6         200  
4 6     6   21 use warnings;
  6         9  
  6         667  
5              
6 14     14 1 111 sub new { bless [], shift; }
7              
8             sub add {
9 29     29 1 39 my $self = shift;
10 29 50       54 push @{ $self }, @_ if @_;
  29         146  
11             }
12              
13             sub next {
14 69     69 1 100 my $self = shift;
15 69         101 shift @{ $self };
  69         486  
16             }
17              
18             sub clear {
19 0     0 1   my $self = shift;
20 0           @{ $self } = [];
  0            
21             }
22              
23             1;
24              
25             __END__