| line |
true |
false |
branch |
|
87
|
0 |
2 |
if ref(my $class = shift()) |
|
95
|
0 |
2 |
unless defined $reference_file |
|
104
|
0 |
2 |
if defined $reference_file_read_line_transform_sub and ref $reference_file_read_line_transform_sub ne 'CODE' |
|
108
|
2 |
0 |
defined $reference_file_read_line_transform_sub ? : |
|
114
|
2 |
0 |
if defined $reference_file_read_line_transform_sub |
|
117
|
0 |
2 |
if defined $reference_file_write_line_transform_sub and ref $reference_file_write_line_transform_sub ne 'CODE' |
|
121
|
1 |
1 |
defined $reference_file_write_line_transform_sub ? : |
|
127
|
1 |
1 |
if defined $reference_file_write_line_transform_sub |
|
130
|
1 |
1 |
if (defined $line_joiner) { } |
|
131
|
0 |
1 |
unless grep(($line_joiner eq $_), @line_joiner) |
|
151
|
1 |
0 |
if (-e &Encode::encode('locale_fs', $filename)) { } |
|
152
|
1 |
0 |
if (-f _) { } |
|
184
|
0 |
1 |
unless ref(my $self = shift()) |
|
188
|
0 |
1 |
if (-e $reference_file_fs) { } |
|
192
|
0 |
0 |
unless -f _ |
|
194
|
0 |
0 |
if (-s _) { } |
|
196
|
0 |
0 |
unless exists $self->{'reference_file_read_line_transform_sub'} |
|
201
|
0 |
0 |
unless -r _ |
|
206
|
0 |
0 |
unless open my $fh, '<', $reference_file_fs |
|
214
|
0 |
0 |
unless defined $read_result |
|
220
|
0 |
0 |
unless $read_result == -s _ |
|
227
|
0 |
0 |
unless exists $self->{'line_joiner'} or -1 == index($t, $line_joiner[1]) |
|
239
|
0 |
0 |
if $full_name =~ s/^($prefix_re)// |
|
270
|
0 |
1 |
unless ref(my $self = shift()) |
|
273
|
0 |
1 |
unless exists $self->{'referenced_files'} |
|
277
|
1 |
0 |
if (@{$self->{'referenced_files'};}) { } |
|
|
0 |
0 |
elsif (-e $reference_file_fs) { } |
|
281
|
1 |
0 |
exists $self->{'line_joiner'} ? : |
|
286
|
0 |
1 |
unless open my $fh, '>', $reference_file_fs |
|
303
|
0 |
0 |
unless unlink $self->{'reference_file'} |
|
338
|
0 |
1 |
unless ref(my $self = shift()) |
|
341
|
0 |
1 |
unless exists $self->{'referenced_files'} |
|
345
|
1 |
0 |
wantarray ? : |
|
366
|
0 |
0 |
unless ref(my $self = shift()) |
|
370
|
0 |
0 |
unless defined $sub_ref and ref $sub_ref eq 'CODE' |
|
375
|
0 |
0 |
unless exists $self->{'referenced_files'} |
|
402
|
0 |
1 |
unless ref(my $self = shift()) |
|
405
|
0 |
1 |
unless exists $self->{'reference_file_write_line_transform_sub'} |
|
408
|
0 |
1 |
unless exists $self->{'referenced_files'} |
|
410
|
0 |
1 |
@_ == 1 ? : |
|
414
|
0 |
1 |
if defined $prefix and not $prefix =~ /$prefix_re/ |
|
422
|
1 |
0 |
if (defined $prefix) { } |