| line |
true |
false |
branch |
|
27
|
1 |
0 |
if defined $_[1]
|
|
38
|
0 |
20 |
$verbose ? :
|
|
39
|
0 |
20 |
if $verbose
|
|
57
|
1 |
99 |
if @$default_plugins
|
|
73
|
0 |
303 |
unless substr($path, 0, 1) eq '/'
|
|
76
|
0 |
303 |
if ($verbose)
|
|
109
|
0 |
107 |
unless my $path = $params{'path'}
|
|
122
|
36 |
71 |
if (defined $expect_error)
|
|
126
|
70 |
37 |
if (defined $expect)
|
|
129
|
2 |
68 |
if (ref $expect eq 'Regexp') { }
|
|
136
|
1 |
106 |
if (defined $expect_data)
|
|
159
|
0 |
4 |
unless $expect_list or $expect_error
|
|
165
|
0 |
4 |
if ($expect_error) { }
|
|
173
|
3 |
3 |
if (ref $expect eq 'Regexp') { }
|
|
184
|
44 |
268 |
if -e $source_file
|
|
191
|
0 |
410 |
if (my(@bad_keys) = grep({not $is_allowed{$_};} keys %$params))
|