| line |
true |
false |
branch |
|
59
|
0 |
0 |
unless my $cw = "Metabrik::Client::Www"->new_from_brik_init($self) |
|
70
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (@$r == 0) { } |
|
79
|
0 |
0 |
if ($filename =~ /.gz$/) { } |
|
82
|
0 |
0 |
unless my $fc = "Metabrik::File::Compress"->new_from_brik_init($self) |
|
84
|
0 |
0 |
unless (defined $files) |
|
104
|
0 |
0 |
unless $self->brik_help_run_file_not_found("next_record", $input) |
|
107
|
0 |
0 |
unless (defined $fr) |
|
108
|
0 |
0 |
unless $fr = "Metabrik::File::Read"->new_from_brik_init($self) |
|
112
|
0 |
0 |
unless $fr->open |
|
118
|
0 |
0 |
if (@$lines == 0) |
|
121
|
0 |
0 |
if ($fr->eof) { } |
|
133
|
0 |
0 |
if $line =~ /^\s*#/ |
|
139
|
0 |
0 |
if ($line =~ /^(.*?)\s*:\s*(.*)$/) |
|
143
|
0 |
0 |
unless defined $val |
|
149
|
0 |
0 |
if (not exists $record{$key}) { } |