| line |
true |
false |
branch |
|
23
|
23 |
134 |
if (length $dirs) |
|
27
|
153 |
4 |
@dirs ? : |
|
39
|
18 |
0 |
if defined $$self{'dir'} |
|
46
|
4 |
296 |
unless defined $$self{'dir'} |
|
52
|
18 |
1 |
if defined $$self{'dir'} |
|
59
|
0 |
0 |
unless defined $$self{'dir'} |
|
65
|
0 |
8 |
if @_ |
|
72
|
0 |
0 |
unless $_[0]->open('r') |
|
73
|
0 |
19 |
unless $_[0]->open('w') |
|
74
|
0 |
0 |
unless $_[0]->open('a') |
|
78
|
0 |
19 |
if (-e $self) { } |
|
88
|
0 |
13 |
unless my $fh = $self->open($iomode) |
|
90
|
6 |
7 |
if (wantarray) |
|
92
|
4 |
2 |
if $args{'chomped'} or $args{'chomp'} |
|
94
|
2 |
4 |
if (my $splitter = $args{'split'}) |
|
102
|
0 |
7 |
if $args{'split'} |
|
106
|
0 |
7 |
if ($args{'chomped'} or $args{'chomp'}) |
|
121
|
0 |
6 |
unless my $fh = $self->open($iomode) |
|
123
|
1 |
5 |
if (ref $_[0] eq 'ARRAY') { } |
|
147
|
1 |
1 |
ref $content eq 'ARRAY' ? : |
|
155
|
0 |
7 |
unless -e $file |
|
162
|
1 |
1 |
if (UNIVERSAL::isa($dest, 'Path::Class::File')) { } |
|
|
1 |
0 |
elsif (UNIVERSAL::isa($dest, 'Path::Class::Dir')) { } |
|
|
0 |
0 |
elsif (ref $dest) { } |
|
164
|
0 |
1 |
if -d $dest |
|
167
|
0 |
1 |
if -f $dest |
|
168
|
0 |
1 |
unless -d $dest |
|
173
|
0 |
2 |
if (not Perl::OSType::is_os_type('Unix')) { } |
|
175
|
0 |
0 |
unless File::Copy::cp($self->stringify, "$dest") |
|
179
|
0 |
2 |
unless system('cp', $self->stringify, "$dest") == 0 |
|
188
|
1 |
0 |
if (File::Copy::move($self->stringify, "$dest")) { } |