| line |
true |
false |
branch |
|
81
|
0 |
0 |
if (defined $_[1]) |
|
100
|
0 |
0 |
unless (defined $args{'baseDir'}) |
|
113
|
0 |
0 |
unless (-d $$self{'baseDir'}) |
|
122
|
0 |
0 |
if (defined $args{'addCommand'}) |
|
127
|
0 |
0 |
if (defined $args{'hostnameFallback'}) |
|
132
|
0 |
0 |
if (defined $args{'autoCreateConfigDir'}) |
|
137
|
0 |
0 |
if (defined $args{'selectionMethod'}) |
|
138
|
0 |
0 |
if ($args{'selectionMethod'} ne 'hostname' and $args{'selectionMethod'} ne 'regexp') |
|
187
|
0 |
0 |
unless ($self->errorblank) |
|
192
|
0 |
0 |
unless (defined $file) |
|
200
|
0 |
0 |
unless (-f $file) |
|
208
|
0 |
0 |
unless (defined $configDir) |
|
210
|
0 |
0 |
if ($self->error) |
|
218
|
0 |
0 |
if ($self->error) |
|
222
|
0 |
0 |
if (defined $valid) |
|
230
|
0 |
0 |
if (-f $$self{'baseDir'} . '/' . $configDir) |
|
238
|
0 |
0 |
unless (-d $$self{'baseDir'} . '/' . $configDir) |
|
239
|
0 |
0 |
if ($self->getAutoCreateConfigDir) { } |
|
240
|
0 |
0 |
unless (mkdir $$self{'baseDir'} . '/' . $configDir) |
|
268
|
0 |
0 |
if (-f $newpath) |
|
276
|
0 |
0 |
unless (-d $newpath) |
|
277
|
0 |
0 |
unless (make_path($newpath)) |
|
286
|
0 |
0 |
unless (copy($file, $newfile)) |
|
294
|
0 |
0 |
if (defined $$self{'addCommand'}) |
|
301
|
0 |
0 |
if ($exit ne '0') |
|
333
|
0 |
0 |
unless ($self->errorblank) |
|
338
|
0 |
0 |
unless (-d $$self{'baseDir'} . '/' . $configDir) |
|
377
|
0 |
0 |
if (defined $_[2]) |
|
383
|
0 |
0 |
unless ($self->errorblank) |
|
388
|
0 |
0 |
unless (defined $configDir) |
|
390
|
0 |
0 |
if ($self->error) |
|
398
|
0 |
0 |
if ($self->error) |
|
402
|
0 |
0 |
if (defined $valid) |
|
410
|
0 |
0 |
unless (-d $$self{'baseDir'} . '/' . $configDir) |
|
418
|
0 |
0 |
unless (defined $files[0]) |
|
431
|
0 |
0 |
if ($files[$int] eq $allFiles[$int2]) |
|
440
|
0 |
0 |
if (-f $path) |
|
448
|
0 |
0 |
unless ($matched) |
|
468
|
0 |
0 |
unless (-e $path) |
|
469
|
0 |
0 |
unless (make_path($path)) |
|
478
|
0 |
0 |
unless (copy($repofile, $files[$int])) |
|
509
|
0 |
0 |
unless ($self->errorblank) |
|
532
|
0 |
0 |
unless ($self->errorblank) |
|
555
|
0 |
0 |
unless ($self->errorblank) |
|
579
|
0 |
0 |
unless ($self->errorblank) |
|
602
|
0 |
0 |
unless ($self->errorblank) |
|
625
|
0 |
0 |
unless ($self->errorblank) |
|
631
|
0 |
0 |
unless (opendir $dh, $$self{'baseDir'}) |
|
642
|
0 |
0 |
if ($entry ne '.SysConfigManage' and -d $entry) |
|
675
|
0 |
0 |
unless ($self->errorblank) |
|
680
|
0 |
0 |
unless (defined $configDir) |
|
682
|
0 |
0 |
if ($self->error) |
|
690
|
0 |
0 |
if ($self->error) |
|
694
|
0 |
0 |
if (defined $valid) |
|
702
|
0 |
0 |
unless (-d $$self{'baseDir'} . '/' . $configDir) |
|
716
|
0 |
0 |
if ($_ eq '.svn') |
|
719
|
0 |
0 |
if ($File::Find::dir =~ /\.svn$/) |
|
722
|
0 |
0 |
if ($File::Find::dir =~ m[\.svn/]) |
|
727
|
0 |
0 |
if ($_ eq '.SysConfigManage') |
|
730
|
0 |
0 |
if ($File::Find::dir =~ /\.SysConfigManage$/) |
|
733
|
0 |
0 |
if ($File::Find::dir =~ m[\.SysConfigManage/]) |
|
738
|
0 |
0 |
if ($_ eq '.git') |
|
741
|
0 |
0 |
if ($File::Find::dir =~ /\.git$/) |
|
744
|
0 |
0 |
if ($File::Find::dir =~ m[\.git/]) |
|
749
|
0 |
0 |
unless (-f $_) |
|
791
|
0 |
0 |
unless ($self->errorblank) |
|
796
|
0 |
0 |
unless (defined $file) |
|
809
|
0 |
0 |
if ($file =~ /$regexp/) |
|
842
|
0 |
0 |
unless ($self->errorblank) |
|
846
|
0 |
0 |
unless (defined $hostname) |
|
851
|
0 |
0 |
if (-f $$self{'baseDir'} . '/.mapping') |
|
860
|
0 |
0 |
unless (open $dh, '<', $$self{'baseDir'} . '/.mapping') |
|
876
|
0 |
0 |
if ($hostname =~ /$regexp/) |
|
903
|
0 |
0 |
unless ($self->errorblank) |
|
909
|
0 |
0 |
if ($selectionMethod eq 'hostname') |
|
913
|
0 |
0 |
if ($selectionMethod eq 'regexp') |
|
915
|
0 |
0 |
if ($self->error) |
|
919
|
0 |
0 |
unless (defined $configDir) |
|
920
|
0 |
0 |
if ($self->getHostnameFallback) |
|
961
|
0 |
0 |
unless ($self->errorblank) |
|
997
|
0 |
0 |
unless ($self->errorblank) |
|
1028
|
0 |
0 |
unless ($self->errorblank) |
|
1033
|
0 |
0 |
unless (defined $selectionMethod) |
|
1041
|
0 |
0 |
if ($selectionMethod ne 'hostname' and $selectionMethod ne 'regexp') |
|
1088
|
0 |
0 |
if (defined $_[2]) |
|
1094
|
0 |
0 |
unless ($self->errorblank) |
|
1099
|
0 |
0 |
unless (defined $configDir) |
|
1101
|
0 |
0 |
if ($self->error) |
|
1109
|
0 |
0 |
if ($self->error) |
|
1113
|
0 |
0 |
if (defined $valid) |
|
1121
|
0 |
0 |
unless (-d $$self{'baseDir'} . '/' . $configDir) |
|
1129
|
0 |
0 |
unless (defined $files[0]) |
|
1142
|
0 |
0 |
if ($files[$int] eq $allFiles[$int2]) |
|
1151
|
0 |
0 |
if (-f $path) |
|
1159
|
0 |
0 |
unless ($matched) |
|
1179
|
0 |
0 |
unless (copy($files[$int], $repofile)) |
|
1217
|
0 |
0 |
unless (defined $name) |
|
1222
|
0 |
0 |
if ($name =~ m[^/]) |
|
1228
|
0 |
0 |
if ($name eq '.mapping') |
|
1234
|
0 |
0 |
if ($name =~ /\.SysConfigManage/) |
|
1239
|
0 |
0 |
if ($name =~ /^\./) |