line |
true |
false |
branch |
34
|
0 |
0 |
if (-f $component_path) |
38
|
0 |
0 |
unless my $fh = 'IO::File'->new($component_path, 'w') |
47
|
0 |
0 |
if (my $error = $@) |
107
|
0 |
0 |
if (my $error = $@) |
112
|
0 |
0 |
if $@ |
135
|
0 |
0 |
if (exists $$overrides{$component}) |
145
|
0 |
0 |
if (my $error = $@) |
150
|
0 |
0 |
if $@ |
173
|
0 |
0 |
unless -f $self->conf_file |
175
|
0 |
0 |
unless my $fh = 'IO::File'->new($self->conf_file, 'r') |
199
|
0 |
0 |
unless my $fh = 'IO::File'->new($self->conf_file, 'w') |
209
|
0 |
0 |
if $error |
229
|
0 |
0 |
unless my $dir = 'IO::Dir'->new($self->conf_dir) |
235
|
0 |
0 |
if $file =~ /^\.{1,2}$/ |
242
|
0 |
0 |
if (my $error = $@) |
247
|
0 |
0 |
unless defined $attrs |
248
|
0 |
0 |
unless defined $$attrs{'comp_root'} |
252
|
0 |
0 |
unless ($moniker) |
281
|
0 |
0 |
unless (unlink $component_path) |
305
|
0 |
0 |
unless (-f $component_path) |
312
|
0 |
0 |
unless (exists $$attrs{$component}) |
354
|
0 |
0 |
unless my $fh = 'IO::File'->new($path, 'r') |
385
|
0 |
0 |
if (my $error = $@) |
389
|
0 |
0 |
unless (-d $dir) |
431
|
0 |
0 |
unless (-d $dir) |
542
|
0 |
0 |
if $class =~ /(?:\b:\b|\:{3,})/ |
545
|
0 |
0 |
if 'Class::Inspector'->loaded($class) |
548
|
0 |
0 |
if (my $error = $@) |