line |
true |
false |
branch |
43
|
0 |
3 |
ref $what ? :
|
56
|
0 |
5 |
@_ && ref $_[0] ? :
|
58
|
4 |
1 |
if (defined(my $b = $args{'backend'})) { }
|
|
0 |
1 |
elsif (scalar keys %args == 0) { }
|
|
1 |
0 |
elsif (scalar keys %args == 1) { }
|
60
|
1 |
0 |
ref $b eq 'ARRAY' ? :
|
|
3 |
1 |
&blessed($b) ? :
|
68
|
1 |
0 |
ref $as eq 'ARRAY' ? :
|
79
|
1 |
2 |
unless defined $text
|
84
|
0 |
2 |
if $args{'random_source'}
|
87
|
0 |
2 |
if defined $args{'random_source_state'}
|
90
|
2 |
0 |
if defined $args{'seed'}
|
100
|
0 |
2 |
if ($name =~ s/\A - //msux or $name =~ /\A [^:]+ ::/u)
|
101
|
0 |
0 |
unless &is_module_name($name)
|
107
|
0 |
2 |
unless &is_module_name($name)
|
112
|
0 |
2 |
if $flag{$base}++
|
114
|
2 |
0 |
if eval {
|