| line |
true |
false |
branch |
|
29
|
25 |
11 |
@args == 1 && ref $args[0] eq 'HASH' ? : |
|
31
|
5 |
31 |
unless defined $options->{'scripts'}[0] |
|
35
|
3 |
32 |
if (my $error = _check_file_scripts($file, $options)) { } |
|
68
|
0 |
35 |
unless my $fh = "IO::File"->new($file, "r") |
|
77
|
6 |
1603 |
if ($line =~ s/\s*##\s+Test::MixedScripts\s+(\w+(?:,\w+)*).*$//u) { } |
|
|
3 |
1600 |
elsif ($line =~ /^=for\s+Test::MixedScripts\s+(\w+(?:,\w+)*)$/u) { } |
|
81
|
1 |
2 |
$1 eq 'default' ? : |
|
85
|
3 |
1603 |
unless ($line =~ /$re/u) |
|
99
|
1 |
46 |
if (my $err = &first(sub {
not exists $scripts->{$_};
}
, @_)) |
|
102
|
3 |
97 |
$_ eq 'ASCII' ? : |
|
118
|
1 |
0 |
if ref $_[0] eq "HASH" |
|
137
|
0 |
0 |
if $name =~ /^(?:Rexfile|cpanfile)$/u |
|
148
|
0 |
0 |
if $name =~ /\.(?:epl?|inc|mc|psp|tal|tm?pl|tt)$/u |