| line |
true |
false |
branch |
|
63
|
0 |
0 |
if (defined $_[1]) |
|
89
|
0 |
0 |
unless (defined $args{'self'}) |
|
95
|
0 |
0 |
if (ref $args{'self'} ne 'ZConf') |
|
102
|
0 |
0 |
unless (defined $args{'zconf'}) |
|
108
|
0 |
0 |
if (ref $args{'zconf'} ne 'HASH') |
|
117
|
0 |
0 |
if (not defined $$self{'zconf'}{'file/base'}) { } |
|
124
|
0 |
0 |
unless (-d $$self{'args'}{'base'}) |
|
126
|
0 |
0 |
unless (mkdir $$self{'args'}{'base'}) |
|
136
|
0 |
0 |
if (not defined $$self{'zconf'}{'fileonly'}) { } |
|
167
|
0 |
0 |
unless (-d $$self{'args'}{'base'} . '/' . $config) |
|
194
|
0 |
0 |
unless (mkpath($$self{'args'}{'base'} . '/' . $config)) |
|
224
|
0 |
0 |
if (defined $$self{'error'}) |
|
230
|
0 |
0 |
if (defined $subs[0]) |
|
240
|
0 |
0 |
if (defined $self->error) |
|
248
|
0 |
0 |
if (defined $self->error) |
|
258
|
0 |
0 |
if ($$self{'error'}) |
|
268
|
0 |
0 |
unless (rmdir $configpath) |
|
300
|
0 |
0 |
unless (defined $set) |
|
308
|
0 |
0 |
unless (defined $config) |
|
319
|
0 |
0 |
unless (-d $configpath) |
|
329
|
0 |
0 |
unless (unlink $fullpath) |
|
358
|
0 |
0 |
unless (-d $$self{'args'}{'base'} . '/' . $config) |
|
365
|
0 |
0 |
unless (opendir CONFIGDIR, $$self{'args'}{'base'} . '/' . $config) |
|
384
|
0 |
0 |
if (-f $$self{'args'}{'base'} . '/' . $config . '/' . $direntries[$int] and $direntries[$int] =~ /\.set$/) |
|
422
|
0 |
0 |
unless (defined $config) |
|
430
|
0 |
0 |
unless ($self->configExists($config)) |
|
441
|
0 |
0 |
if (-f $revisionfile) |
|
442
|
0 |
0 |
unless (open *THEREVISION, '<', $revisionfile) |
|
474
|
0 |
0 |
unless (-d $$self{'args'}{'base'} . '/' . $config) |
|
481
|
0 |
0 |
unless (opendir CONFIGDIR, $$self{'args'}{'base'} . '/' . $config) |
|
500
|
0 |
0 |
if (-d $$self{'args'}{'base'} . '/' . $config . '/' . $direntries[$int]) |
|
534
|
0 |
0 |
unless (defined $config) |
|
543
|
0 |
0 |
if ($$self{'error'}) |
|
547
|
0 |
0 |
unless ($exists) |
|
556
|
0 |
0 |
if (-e $lockfile) |
|
600
|
0 |
0 |
unless (defined $args{'config'}) |
|
608
|
0 |
0 |
unless (defined $args{'set'}) |
|
616
|
0 |
0 |
unless (defined $args{'override'}) |
|
623
|
0 |
0 |
unless (-f $fullpath) |
|
628
|
0 |
0 |
if ($args{'config'} =~ /,/) |
|
632
|
0 |
0 |
unless (open *thefile, $fullpath) |
|
645
|
0 |
0 |
if ($$zml{'error'}) |
|
665
|
0 |
0 |
if (-f $revisionfile) { } |
|
666
|
0 |
0 |
unless (open *THEREVISION, '<', $revisionfile) |
|
675
|
0 |
0 |
unless (open *THEREVISION, '>', $revisionfile) |
|
687
|
0 |
0 |
if ($locked) |
|
692
|
0 |
0 |
if ($args{'override'}) |
|
694
|
0 |
0 |
unless ($locked) |
|
721
|
0 |
0 |
unless (defined $config) |
|
730
|
0 |
0 |
if (defined $error) |
|
738
|
0 |
0 |
unless ($self->configExists($config)) |
|
749
|
0 |
0 |
unless (-f $chooser) |
|
754
|
0 |
0 |
unless (open *READCHOOSER, $chooser) |
|
792
|
0 |
0 |
unless (defined $set) |
|
794
|
0 |
0 |
if ($self->error) |
|
804
|
0 |
0 |
if (defined $$self{'error'}) |
|
813
|
0 |
0 |
if ($sets[$setsInt] eq $set) |
|
860
|
0 |
0 |
unless (defined $config) |
|
869
|
0 |
0 |
if ($$self{'error'}) |
|
873
|
0 |
0 |
unless ($exists) |
|
884
|
0 |
0 |
if ($lock) |
|
885
|
0 |
0 |
unless (open *THELOCK, '>', $lockfile) |
|
898
|
0 |
0 |
if (-e $lockfile) |
|
899
|
0 |
0 |
unless (unlink $lockfile) |
|
928
|
0 |
0 |
unless (defined $config) |
|
937
|
0 |
0 |
if ($$self{'error'}) |
|
941
|
0 |
0 |
if ($locked) |
|
949
|
0 |
0 |
unless (defined $chooserstring) |
|
958
|
0 |
0 |
if (defined $error) |
|
968
|
0 |
0 |
unless (open *WRITECHOOSER, '>', $chooser) |
|
1026
|
0 |
0 |
unless (defined $args{'config'}) |
|
1035
|
0 |
0 |
if (defined $error) |
|
1043
|
0 |
0 |
if (not defined $args{'set'}) { } |
|
1046
|
0 |
0 |
if ($$self{'self'}->setNameLegit($args{'set'})) { } |
|
1057
|
0 |
0 |
unless ($self->configExists($args{'config'})) |
|
1066
|
0 |
0 |
if ($self->error) |
|
1070
|
0 |
0 |
if ($locked) |
|
1081
|
0 |
0 |
unless (defined $args{'revision'}) |
|
1093
|
0 |
0 |
if ($hashkeys[$hashkeysInt] =~ /^\#/) { } |
|
1095
|
0 |
0 |
if ($hashkeys[$hashkeysInt] =~ /^\#\!/) |
|
1102
|
0 |
0 |
if (defined $zml->error) |
|
1111
|
0 |
0 |
if ($hashkeys[$hashkeysInt] =~ /^\#\#/) |
|
1118
|
0 |
0 |
if (defined $$zml{'error'}) |
|
1130
|
0 |
0 |
if (defined $zml->error) |
|
1143
|
0 |
0 |
if ($self->error) |
|
1195
|
0 |
0 |
unless (defined $args{'config'}) |
|
1202
|
0 |
0 |
unless ($$self{'self'}->isConfigLoaded($args{'config'})) |
|
1211
|
0 |
0 |
if ($$self{'error'}) |
|
1215
|
0 |
0 |
if ($locked) |
|
1223
|
0 |
0 |
if (not defined $args{'set'}) { } |
|
1226
|
0 |
0 |
if ($$self{'self'}->setNameLegit($args{'set'})) { } |
|
1240
|
0 |
0 |
unless (defined $args{'revision'}) |
|
1245
|
0 |
0 |
if ($$self{'self'}->error) |
|
1255
|
0 |
0 |
if ($self->error) |
|
1306
|
0 |
0 |
unless (defined $args{'config'}) |
|
1314
|
0 |
0 |
unless (defined $args{'zml'}) |
|
1320
|
0 |
0 |
if (ref $args{'zml'} ne 'ZML') |
|
1329
|
0 |
0 |
if ($self->error) |
|
1333
|
0 |
0 |
if ($locked) |
|
1341
|
0 |
0 |
if (not defined $args{'set'}) { } |
|
1344
|
0 |
0 |
if ($$self{'self'}->setNameLegit($args{'set'})) { } |
|
1358
|
0 |
0 |
unless (defined $args{'revision'}) |
|
1367
|
0 |
0 |
unless (open *THEFILE, '>', $fullpath) |
|
1378
|
0 |
0 |
unless (defined $args{'revision'}) |
|
1384
|
0 |
0 |
unless (open *THEREVISION, '>', $revisionfile) |