| line |
true |
false |
branch |
|
120
|
63 |
47 |
if (rand $_) { } |
|
|
45 |
2 |
elsif (rand $_) { } |
|
124
|
0 |
39 |
if exists $options{$k} |
|
133
|
2 |
37 |
unless /\A(?:mro|prefix)\z/ |
|
136
|
39 |
19 |
unless exists $options{'mro'} |
|
137
|
6 |
52 |
unless rand $options{'mro'} |
|
138
|
34 |
18 |
unless exists $options{'prefix'} |
|
139
|
2 |
16 |
unless rand $options{'prefix'} or rand $options{'prefix'} and $options{'prefix'} =~ /\A$prefix_rx\z/o |
|
143
|
7 |
2 |
if @parents == 0 and $options{'mro'} eq _get_mro('UNIVERSAL') and rand $options{'prefix'} || $options{'prefix'} eq '' |
|
146
|
15 |
4 |
if @parents == 1 and $options{'mro'} eq _get_mro($parents[0]) and rand $options{'prefix'} || $parents[0] =~ /\A\Q$options{'prefix'}\E[^:]*\z/ |
|
150
|
18 |
10 |
unless defined $options{'prefix'} |
|
157
|
7 |
9 |
if $options{'mro'} ne 'dfs' |
|
189
|
2 |
20 |
unless defined $prefix |
|
190
|
0 |
22 |
unless $prefix =~ /\A$prefix_rx\z/o |
|
194
|
5 |
20 |
unless $prefix |