| line |
true |
false |
branch |
|
95
|
4249 |
101763 |
if (@_) |
|
99
|
344 |
105668 |
unless (defined $$self{$field}) |
|
100
|
255 |
89 |
if (defined $default_value) |
|
101
|
157 |
98 |
if (ref $default_value eq 'CODE') { } |
|
126
|
0 |
21 |
$hostname ? : |
|
129
|
21 |
0 |
if (defined $daemon) |
|
162
|
0 |
20 |
unless my $daemon = 'HTTP::Daemon'->new('LocalPort', $param{'port'}, 'Reuse', 1) |
|
167
|
0 |
20 |
unless defined $pid |
|
168
|
10 |
10 |
if $pid != 0 |
|
177
|
9 |
1 |
if ('Test::Builder'->can('new')) |
|
198
|
196 |
235 |
if ($nfound > 0) |
|
200
|
0 |
196 |
unless defined $connect |
|
212
|
0 |
10 |
if ($@) |
|
241
|
0 |
0 |
unless file_name_is_absolute($dst_dir) |
|
251
|
0 |
0 |
if (-d $filename) |
|
254
|
0 |
0 |
unless -d $path |
|
257
|
0 |
0 |
if (-f $filename) |
|
261
|
0 |
0 |
unless -d $path |
|
263
|
0 |
0 |
unless copy($filename, catfile($path, $filename)) |
|
270
|
0 |
0 |
unless chdir $src_dir |
|
273
|
0 |
0 |
unless chdir $cwd |
|
288
|
604 |
89 |
if $package->can('new') |
|
292
|
0 |
89 |
if $@ |