line |
true |
false |
branch |
120
|
63 |
47 |
if (rand $_) { }
|
|
45 |
2 |
elsif (rand $_) { }
|
125
|
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'}
|
142
|
2 |
16 |
unless rand $options{'prefix'} or rand $options{'prefix'} and $options{'prefix'} =~ /\A$prefix_rx\z/o
|
145
|
7 |
2 |
if @parents == 0 and $options{'mro'} eq &_get_mro('UNIVERSAL') and rand $options{'prefix'} || $options{'prefix'} eq ''
|
148
|
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
|
196
|
5 |
20 |
unless $prefix
|