| line |
true |
false |
branch |
|
49
|
0 |
0 |
if (not -f $input and $self->create_default) |
|
53
|
0 |
0 |
unless (-f $input or $self->create_default) |
|
58
|
0 |
0 |
unless open my $in, "<", $input |
|
62
|
0 |
0 |
if $line =~ /^\s*$/ |
|
63
|
0 |
0 |
if $line =~ /^\s*#/ |
|
79
|
0 |
0 |
unless (defined $self->shell) |
|
83
|
0 |
0 |
unless $self->brik_help_run_undef_arg("execute", $lines) |
|
84
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("execute", $lines, "ARRAY") |
|
99
|
0 |
0 |
if (-f $file) |
|
103
|
0 |
0 |
unless open my $out, ">", $file |
|
161
|
0 |
0 |
unless my $lines = $self->load($input) |