| line |
true |
false |
branch |
|
112
|
171 |
1253 |
unless defined $part
|
|
114
|
0 |
1253 |
unless $pos < length $this_script
|
|
116
|
691 |
562 |
if (not ref $part) { }
|
|
118
|
377 |
314 |
unless $opcode->code eq substr($this_script, $pos, 1)
|
|
124
|
401 |
161 |
if ($kind eq 'address' or $kind eq 'data') { }
|
|
|
10 |
151 |
elsif ($kind eq 'data_repeated') { }
|
|
|
151 |
0 |
elsif ($kind eq 'op_n') { }
|
|
127
|
240 |
161 |
unless grep {$_ == $len;} @vars
|
|
128
|
158 |
3 |
if ($self->_check_blueprint($pos + $len + 1, @more_parts))
|
|
129
|
146 |
12 |
if $kind eq "address"
|
|
138
|
10 |
33 |
unless grep {$_ == $len;} @vars
|
|
144
|
0 |
10 |
if $count == 0 or $count > 16
|
|
146
|
0 |
10 |
unless $opcode->code eq substr($this_script, $pos, 1)
|
|
155
|
0 |
151 |
unless $opcode
|
|
156
|
27 |
124 |
unless $opcode->name =~ /\AOP_(\d+)\z/
|
|
157
|
104 |
20 |
unless grep {$_ == $1;} @vars
|
|
174
|
168 |
751 |
if ($self->_check_blueprint(0, @{$blueprint;}))
|