| line |
true |
false |
branch |
|
29
|
1 |
4 |
if (@_ and $_[0] eq 'script') |
|
77
|
0 |
2 |
if ($help) |
|
82
|
0 |
2 |
if ($version) |
|
89
|
3 |
4 |
if ($arg =~ /^([^=]+)=(.+)/) { } |
|
97
|
3 |
0 |
if (reftype $hash || '') eq 'HASH' |
|
104
|
1 |
1 |
unless exists $$options{'config'} |
|
118
|
1 |
1 |
if ($from) { } |
|
138
|
1 |
1 |
if ($config) |
|
154
|
0 |
1 |
if (blessed $app and $app->can('init')) |
|
167
|
1 |
4 |
if (defined $config) |
|
173
|
2 |
3 |
if (@_ and (reftype($_[0]) // '') eq 'HASH') |
|
184
|
2 |
3 |
unless $self->logger |
|
191
|
5 |
0 |
reftype $app eq 'CODE' ? : |
|
212
|
0 |
1 |
if blessed $app and $app->can('name') |
|
215
|
1 |
0 |
unless defined $$self{'name'} |
|
226
|
1 |
2 |
if (not $pkg) { } |
|
|
2 |
0 |
elsif ($self->app->can('VERSION')) { } |
|
240
|
6 |
14 |
if (@_) |
|
242
|
0 |
2 |
unless (reftype $app // '') eq 'CODE' or blessed $app and $app->can('run') |
|
254
|
13 |
3 |
unless @_ |
|
256
|
0 |
3 |
if (blessed($_[0]) and $_[0]->isa('Log::Log4perl::Logger')) |
|
260
|
0 |
3 |
unless not $_[0] or (reftype($_[0]) || '') eq 'ARRAY' |
|
263
|
0 |
3 |
$_[0] ? : |
|
274
|
3 |
0 |
if exists $$c{'threshold'} |