| line |
true |
false |
branch |
|
36
|
41 |
9 |
if (exists $args->{'-config'}) { } |
|
37
|
11 |
30 |
if (defined $args->{'-config'}) |
|
59
|
1 |
4 |
if $class->_is_initialized |
|
68
|
3 |
1 |
unless ($class->_is_initialized) |
|
80
|
5 |
42 |
if defined $xtf |
|
96
|
6 |
22 |
if (defined $plugin_version) |
|
97
|
1 |
5 |
unless version::is_lax($plugin_version) |
|
98
|
1 |
4 |
if 'version'->parse($plugin_pkg->VERSION) < 'version'->parse($plugin_version) |
|
101
|
1 |
25 |
unless $plugin_pkg->can('run') |
|
102
|
1 |
24 |
unless $plugin_pkg->can('new') |
|
116
|
6 |
14 |
if (@excludes) |
|
125
|
4 |
50 |
unless defined $self->{'_file'}{$name} |
|
128
|
7 |
43 |
if defined $exclude_regex and File::Basename::fileparse($name) =~ /$exclude_regex/ |
|
131
|
1 |
42 |
unless -e $name |
|
154
|
71 |
22 |
if (@_ > 2) |
|
155
|
67 |
4 |
if (defined $file) |
|
156
|
1 |
66 |
unless defined &Scalar::Util::blessed($file) and $file->isa('XT::Files::File') |
|
221
|
17 |
13 |
if ($file =~ / [.] pm $ /msx) { } |
|
|
6 |
7 |
elsif ($file =~ / [.] pod $ /msx) { } |
|
236
|
3 |
3 |
if ($file =~ / [.] t $ /msx) |
|
263
|
18 |
15 |
unless ($package_name =~ s/ ^ = //msx) |
|
267
|
2 |
31 |
unless $package_name =~ / ^ [A-Za-z_] [0-9A-Za-z_]* (?: :: [0-9A-Za-z_]+ )* $ /sx |
|
277
|
10 |
22 |
unless (-d $dir) |
|
286
|
33 |
64 |
if -l $File::Find::name or not -f _ |
|
301
|
6 |
1 |
if ($key eq ':version') |
|
302
|
2 |
4 |
unless version::is_lax($value) |
|
303
|
2 |
2 |
if 'version'->parse('XT::Files'->VERSION) < 'version'->parse($value) |
|
316
|
2 |
17 |
unless open my $fh, '<', $config |
|
326
|
9 |
47 |
if $line =~ / ^ \s* (?: [#;] | $ ) /msx |
|
334
|
14 |
33 |
if ($line =~ / ^ \[ /msx) |
|
335
|
1 |
13 |
unless $line =~ / ^ \[ ( .+ ) \] $ /msx |
|
343
|
2 |
30 |
if not defined $key && defined $value or $key eq '' or $value eq '' |
|
345
|
3 |
27 |
if ($in_global_section) |
|
352
|
0 |
11 |
unless close $fh |
|
363
|
3 |
27 |
if $lines[0][0] == $type_section |
|
365
|
3 |
24 |
if ($lines[0][2] eq ':version') { } |
|
385
|
2 |
7 |
if (exists $ENV{'XT_FILES_DEFAULT_CONFIG_FILE'}) { } |
|
387
|
1 |
1 |
unless -f $config |
|
393
|
10 |
4 |
unless -e $file |
|
394
|
1 |
3 |
if defined $config |
|
398
|
4 |
2 |
unless (defined $config) |