| line |
true |
false |
branch |
|
148
|
0 |
0 |
if $value
|
|
152
|
0 |
0 |
if defined $value
|
|
155
|
0 |
0 |
if defined $value
|
|
176
|
3 |
66 |
if $value
|
|
177
|
0 |
69 |
unless $$self{'_cfg_obj'}
|
|
178
|
0 |
69 |
unless $$self{'_cfg_obj'}->isa('Bio::Polloc::Polloc::Config')
|
|
195
|
0 |
6 |
unless $body
|
|
196
|
0 |
6 |
unless $body =~ /^\s*(\w+)\s*:\s*([\w\.]+)(\s+at\s+([^']+))?(\s+as\s+'(.+)')?\s*$/i
|
|
201
|
0 |
6 |
unless ($name)
|
|
207
|
6 |
0 |
unless defined $value
|
|
209
|
6 |
0 |
defined $id ? :
|
|
243
|
0 |
9 |
unless $body
|
|
244
|
0 |
9 |
unless $body =~ /^\s*([^\s]+)\s+([\w-]+)\s*=\s*'(.*)'\s*/i
|
|
251
|
6 |
3 |
if ($isrule) { }
|
|
254
|
0 |
6 |
unless defined $obj
|
|
267
|
0 |
9 |
unless $body
|
|
268
|
0 |
9 |
unless $body =~ /^\s*(\w+)\s*=\s*'(.*)'\s*/i
|
|
281
|
0 |
48 |
unless $body
|
|
282
|
0 |
48 |
unless $body =~ /^([^\s]+)\s+([^\s=]+)\s*=\s*(.*)\s*/i
|
|
286
|
3 |
45 |
unless defined $$self{'_groupcriteria'}
|
|
297
|
0 |
3 |
unless defined $$self{'_groupcriteria'}
|
|
298
|
0 |
3 |
unless defined $$self{'_groupcriteria'}{$body}
|
|
314
|
0 |
3 |
unless defined $$self{'_groupcriteria'}
|
|
327
|
24 |
69 |
if defined $name and $name =~ /^FEAT[12]$/
|
|
329
|
0 |
69 |
unless defined $body
|
|
332
|
0 |
69 |
unless defined $t
|
|
333
|
0 |
69 |
unless defined $o
|
|
336
|
21 |
48 |
if ($t eq 'bool') { }
|
|
|
24 |
24 |
elsif ($t eq 'num') { }
|
|
|
24 |
0 |
elsif ($t eq 'seq') { }
|
|
337
|
0 |
21 |
if ($o =~ /^(t(rue)?|1)$/i) { }
|
|
|
0 |
21 |
elsif ($o =~ /^(f(alse)?|0)$/i) { }
|
|
|
21 |
0 |
elsif ($o =~ /^([^\s]+)\s*([><]=?|&&?|\|\|?|\^|and|or|xor)\s*([^\s]+)$/i) { }
|
|
|
0 |
0 |
elsif ($o =~ /^(!|not)\s*([^\s]+)$/i) { }
|
|
354
|
12 |
12 |
if ($o =~ /^[-+]?\d*\.?\d+(e[-+]?\d*\.?\d+)?$/) { }
|
|
|
12 |
0 |
elsif ($o =~ m[^([^\s]*)\s*(\+|\-|\*\*?|/|\^|%|aln-sim( with)?|aln-score( with)?)\s*([^\s]*)$]i) { }
|
|
365
|
0 |
24 |
if ($o =~ /^[A-Za-z]+$/) { }
|
|
|
24 |
0 |
elsif ($o =~ /^([^\s]+)\s+(at)\s*\[(-?\d)\s*[,;]\s*(-?\d+)\s*\.\.\s*(-?\d+)\]$/i) { }
|
|
|
0 |
0 |
elsif ($o =~ /^rev(comp?( of)?)?\s+([^\s]+)$/i) { }
|
|
|
0 |
0 |
elsif ($o =~ /^seq\s+([^\s]+)/) { }
|
|
394
|
6 |
0 |
if $context eq 'default'
|
|
397
|
0 |
0 |
if ($context =~ /^([+-]?\d)\s*([;,:-]|\.\.)\s*([+-]?\d+)\s*([;,:-]|\.\.)\s*([+-]?\d+)/)
|
|
400
|
0 |
0 |
if ($context =~ /^[+-]?0+([;,-]|\.\.|)$/)
|