File Coverage

blib/lib/Text/Diff3/List.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 3 3 100.0
total 36 36 100.0


line stmt bran cond sub pod time code
1             package Text::Diff3::List;
2             # list of difference sets
3 6     6   90 use 5.006;
  6         18  
  6         232  
4 6     6   32 use strict;
  6         13  
  6         178  
5 6     6   28 use warnings;
  6         12  
  6         175  
6 6     6   28 use base qw(Text::Diff3::ListMixin Text::Diff3::Base);
  6         12  
  6         32  
7              
8 6     6   774 use version; our $VERSION = '0.08';
  6         8  
  6         37  
9              
10 460     460 1 1883 sub list { return $_[0]->{list} }
11              
12             sub initialize {
13 71     71 1 126 my($self, @arg) = @_;
14 71         231 $self->SUPER::initialize(@arg);
15 71         80 shift @arg; # drop factory
16 71         124 $self->{list} = \@arg;
17 71         156 return $self;
18             }
19              
20             sub as_array {
21 27     27 1 36 my($self) = @_;
22 27         29 return map { [$_->as_array] } @{$self->list};
  41         95  
  27         38  
23             }
24              
25             1;
26              
27             __END__