| line |
true |
false |
branch |
|
53
|
0 |
4 |
unless $new_options{'mode'} =~ /^(s3|s3\-fs|fs)$/
|
|
56
|
2 |
2 |
if $new_options{'mode'} =~ /fs/ and not $new_options{'fs_shadow_path'}
|
|
67
|
0 |
16 |
unless defined $key
|
|
68
|
0 |
16 |
if $key eq '.'
|
|
69
|
1 |
15 |
if $key =~ m[\.\./]
|
|
70
|
1 |
14 |
if $key =~ m[/\.\.]
|
|
71
|
0 |
14 |
unless $self->{'fs_shadow_path'} =~ m[/$]
|
|
73
|
6 |
8 |
if $should_mkpath
|
|
79
|
5 |
1 |
if ($self->{'mode'} =~ /s3/)
|
|
82
|
2 |
4 |
if ($self->{'mode'} =~ /fs/)
|
|
84
|
0 |
2 |
unless open my $f, '>', $path
|
|
86
|
0 |
2 |
unless print $f $_[0]
|
|
87
|
0 |
2 |
unless close $f
|
|
94
|
5 |
2 |
if ($self->{'mode'} =~ /s3/)
|
|
97
|
3 |
4 |
if ($self->{'mode'} =~ /fs/)
|
|
99
|
1 |
2 |
if ref $fh_or_filename
|
|
107
|
2 |
1 |
if ($self->{'mode'} =~ /s3/) { }
|
|
|
1 |
0 |
elsif ($self->{'mode'} =~ /fs/) { }
|
|
118
|
2 |
2 |
if ($self->{'mode'} =~ /s3/) { }
|
|
|
2 |
0 |
elsif ($self->{'mode'} =~ /fs/) { }
|
|
129
|
2 |
1 |
if ($self->{'mode'} =~ /s3/) { }
|
|
|
1 |
0 |
elsif ($self->{'mode'} =~ /fs/) { }
|
|
140
|
2 |
1 |
if ($self->{'mode'} =~ /s3/) { }
|
|
|
1 |
0 |
elsif ($self->{'mode'} =~ /fs/) { }
|
|
151
|
2 |
1 |
if ($self->{'mode'} =~ /s3/) { }
|