line |
true |
false |
branch |
69
|
186 |
734 |
if (my($mod) = m[^App/MtAws/(.*)\.pmc?$])
|
73
|
1 |
185 |
unless defined $got
|
74
|
3 |
183 |
unless $got eq $VERSION
|
82
|
154 |
51 |
if (not $module =~ m[^App/MtAws] and $module =~ /\.pmc?/)
|
87
|
29 |
125 |
unless defined $ver
|
114
|
0 |
0 |
if $^O eq 'cygwin'
|
115
|
0 |
0 |
if $VERSION =~ /_/
|
116
|
0 |
0 |
if defined $ENV{'PERLIO'} and $ENV{'PERLIO'} =~ /stdio/
|
117
|
0 |
0 |
if $^O eq 'MSWin32'
|
120
|
0 |
0 |
unless (defined eval {
do {
process();
1
}
})
|
139
|
0 |
0 |
if ($res->{'warnings'})
|
145
|
0 |
0 |
if ($res->{'error_texts'})
|
151
|
0 |
0 |
if ($action ne 'help' and $action ne 'version')
|
159
|
0 |
0 |
if ($action eq 'sync') { }
|
|
0 |
0 |
elsif ($action eq 'upload-file') { }
|
|
0 |
0 |
elsif ($action eq 'purge-vault') { }
|
|
0 |
0 |
elsif ($action eq 'restore') { }
|
|
0 |
0 |
elsif ($action eq 'restore-completed') { }
|
|
0 |
0 |
elsif ($action eq 'check-local-hash') { }
|
|
0 |
0 |
elsif ($action eq 'retrieve-inventory') { }
|
|
0 |
0 |
elsif ($action eq 'download-inventory') { }
|
|
0 |
0 |
elsif ($action eq 'create-vault') { }
|
|
0 |
0 |
elsif ($action eq 'delete-vault') { }
|
|
0 |
0 |
elsif ($action eq 'help') { }
|
|
0 |
0 |
elsif ($action eq 'version') { }
|
160
|
0 |
0 |
unless -d &binaryfilename($options->{'dir'})
|
171
|
0 |
0 |
unless defined(my $relfilename = $options->{'relfilename'})
|
186
|
0 |
0 |
if defined $j->{'journal_h'}{$relfilename}
|
189
|
0 |
0 |
if ($options->{'data-type'} ne 'filename')
|
198
|
0 |
0 |
$options->{'data-type'} eq 'filename' ? :
|
205
|
0 |
0 |
unless $R
|
215
|
0 |
0 |
if (scalar keys %$archives) { }
|
216
|
0 |
0 |
if ($options->{'dry-run'}) { }
|
225
|
0 |
0 |
if (my $rec = shift @filelist) { }
|
234
|
0 |
0 |
unless $R
|
244
|
0 |
0 |
unless $options->{'max-number-of-files'}
|
268
|
0 |
0 |
if (keys %filelist) { }
|
269
|
0 |
0 |
if ($options->{'dry-run'}) { }
|
276
|
0 |
0 |
unless $R
|
378
|
0 |
0 |
if eof STDIN
|