File Coverage

blib/lib/Text/Diff3/Factory.pm
Criterion Covered Total %
statement 39 40 97.5
branch n/a
condition n/a
subroutine 19 20 95.0
pod 10 10 100.0
total 68 70 97.1


line stmt bran cond sub pod time code
1             package Text::Diff3::Factory;
2             # Factory for component style interface.
3 6     6   189 use 5.006;
  6         19  
  6         243  
4 6     6   61 use strict;
  6         8  
  6         187  
5 6     6   58 use warnings;
  6         11  
  6         198  
6              
7 6     6   28 use version; our $VERSION = '0.08';
  6         12  
  6         32  
8              
9 6     6   3712 use Text::Diff3::Diff3;
  6         15  
  6         152  
10 6     6   3255 use Text::Diff3::DiffHeckel;
  6         13  
  6         161  
11 6     6   3179 use Text::Diff3::Text;
  6         18  
  6         189  
12 6     6   3816 use Text::Diff3::Range2;
  6         17  
  6         142  
13 6     6   3246 use Text::Diff3::Range3;
  6         13  
  6         143  
14 6     6   2996 use Text::Diff3::List;
  6         14  
  6         1677  
15              
16             # for user
17 5     5 1 9923 sub new { return $_[0] }
18 77     77 1 71098 sub create_text { return Text::Diff3::Text->new(@_) }
19 1     1 1 22 sub create_diff3 { return Text::Diff3::Diff3->new(@_) }
20 22     22 1 97 sub create_diff { return Text::Diff3::DiffHeckel->new(@_) }
21              
22             # for internal use
23 22     22 1 114 sub create_list3 { return Text::Diff3::List->new(@_) }
24 36     36 1 114 sub create_range3 { return Text::Diff3::Range3->new(@_) }
25             sub create_null_range3 {
26 22     22 1 93 return Text::Diff3::Range3->new($_[0], undef, 0,0, 0,0, 0,0)
27             }
28 49     49 1 1045 sub create_list2 { return Text::Diff3::List->new(@_) }
29 55     55 1 9723 sub create_range2 { return Text::Diff3::Range2->new(@_) }
30 0     0 1   sub create_test { return Text::Diff3::Base->new(@_) }
31              
32             1;
33              
34             __END__