| line |
true |
false |
branch |
|
58
|
0 |
0 |
unless my $cw = "Metabrik::Client::Www"->new_from_brik_init($self) |
|
69
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (@$r == 0) { } |
|
78
|
0 |
0 |
if ($filename =~ /.gz$/) { } |
|
81
|
0 |
0 |
unless my $fc = "Metabrik::File::Compress"->new_from_brik_init($self) |
|
83
|
0 |
0 |
unless (defined $files) |
|
103
|
0 |
0 |
unless $self->brik_help_run_file_not_found("next_record", $input) |
|
106
|
0 |
0 |
unless (defined $fr) |
|
107
|
0 |
0 |
unless $fr = "Metabrik::File::Read"->new_from_brik_init($self) |
|
111
|
0 |
0 |
unless $fr->open |
|
117
|
0 |
0 |
if (@$lines == 0) |
|
120
|
0 |
0 |
if ($fr->eof) { } |
|
132
|
0 |
0 |
if $line =~ /^\s*#/ |
|
138
|
0 |
0 |
if ($line =~ /^(.*?)\s*:\s*(.*)$/) |
|
142
|
0 |
0 |
unless defined $val |
|
148
|
0 |
0 |
if (not exists $record{$key}) { } |