| line |
true |
false |
branch |
|
44
|
67 |
55 |
if (scalar @_ == 1) { } |
|
47
|
0 |
55 |
if scalar(@_) % 2 |
|
52
|
122 |
0 |
if $_ eq 'version' |
|
53
|
0 |
0 |
if $_ eq 'syntax' |
|
54
|
0 |
0 |
unless exists $$stuff{'_permitted'}{$_} |
|
59
|
64 |
58 |
if $version eq 'default' |
|
60
|
0 |
122 |
if $syntax eq 'default' |
|
61
|
0 |
122 |
if $debug |
|
62
|
0 |
122 |
unless $self->set_syntax_version($syntax) |
|
63
|
0 |
122 |
unless $self->set_spec_version($version) |
|
64
|
0 |
122 |
if $debug and $debug > 1 |
|
73
|
0 |
194 |
if $$self{'spec_dir'} |
|
74
|
182 |
12 |
if $spec_dir |
|
81
|
0 |
12 |
if $debug |
|
82
|
0 |
12 |
unless (@dirs) |
|
90
|
0 |
198 |
if $$self{'syntax_dir'} |
|
91
|
186 |
12 |
if $syntax_dir |
|
98
|
0 |
12 |
if $debug |
|
99
|
0 |
12 |
unless (@dirs) |
|
108
|
0 |
122 |
unless my $code = shift() |
|
110
|
0 |
122 |
unless (@files) |
|
119
|
0 |
122 |
unless my $code = shift() |
|
121
|
0 |
122 |
unless (@files) |
|
131
|
122 |
72 |
@_ ? : |
|
132
|
0 |
194 |
unless $code |
|
133
|
0 |
194 |
unless my $dir = $self->get_spec_dir |
|
134
|
0 |
194 |
if $debug |
|
139
|
122 |
76 |
@_ ? : |
|
140
|
0 |
198 |
unless $code |
|
141
|
0 |
198 |
unless my $dir = $self->get_syntax_dir |
|
142
|
0 |
198 |
if $debug |
|
149
|
0 |
72 |
@_ ? : |
|
150
|
0 |
72 |
unless $version |
|
152
|
0 |
72 |
unless ($type and $trio = $$spec_map{$type}) |
|
157
|
0 |
72 |
if $debug |
|
159
|
0 |
72 |
unless scalar @hits |
|
161
|
0 |
72 |
if $debug |
|
162
|
0 |
72 |
unless open my $fh, "<$file" |
|
168
|
0 |
76 |
@_ ? : |
|
169
|
0 |
76 |
unless $syntax |
|
171
|
0 |
76 |
unless ($type and $trio = $$spec_map{$type}) |
|
176
|
0 |
76 |
if $debug |
|
178
|
0 |
76 |
unless scalar @hits |
|
180
|
0 |
76 |
if $debug |
|
181
|
0 |
76 |
unless open my $fh, "<$file" |
|
187
|
0 |
72 |
$self->interactive ? : |
|
|
76 |
72 |
scalar @_ > 2 ? : |
|
200
|
0 |
12792 |
unless my $type = shift() |
|
201
|
0 |
12792 |
unless $$spec_map{$type} |
|
202
|
8 |
12784 |
@_ ? : |
|
203
|
0 |
12792 |
unless my $version = $self->version |
|
204
|
0 |
12792 |
unless my $syntax = $self->syntax |
|
205
|
12716 |
76 |
if ($$spec_map{$type}{'cache'}{$version}) { } |
|
|
8 |
68 |
elsif ($type eq 'segment_group') { } |
|
206
|
0 |
12716 |
if $debug |
|
210
|
1296 |
21256 |
unless m[^(\S+)/(SG\d+)$] |
|
215
|
24 |
112 |
unless m[^(\S+)/(SG\d+)$] |
|
219
|
0 |
68 |
unless my $fh = $self->get_spec_handle($type) |
|
231
|
0 |
76 |
unless my $type = shift() |
|
232
|
0 |
76 |
unless $$spec_map{$type} |
|
233
|
0 |
76 |
if $type eq 'segment_group' |
|
234
|
0 |
76 |
unless my $fh = $self->get_syntax_handle($type) |
|
241
|
0 |
144 |
unless my $type = shift() |
|
242
|
0 |
144 |
unless my $fh = shift() |
|
245
|
0 |
144 |
if $debug |
|
246
|
2 |
142 |
if ($type eq 'element') { } |
|
|
142 |
0 |
elsif ($type eq 'composite' or $type eq 'message' or $type eq 'segment' or $type eq 'segment_group') { } |
|
266
|
111501 |
11050 |
if ($codeparts[-1] and $codeparts[-1] ne $code and $codeparts[-1] ne 'UN') |
|
269
|
0 |
122551 |
if $debug and $debug > 1 |
|
287
|
0 |
122551 |
unless @_ >= 2 |
|
291
|
0 |
122551 |
unless @keys |
|
292
|
0 |
122551 |
if scalar(@parts) % scalar(@keys) |
|
300
|
515180 |
1073812 |
if ($_ eq 'mandatory') |
|
301
|
353740 |
161440 |
unless $value eq 'M' |
|
330
|
4469 |
1 |
if ($a =~ /^.((\d)\d).$/) |
|
332
|
1018 |
3451 |
if $2 != 9 |
|
333
|
3988 |
481 |
if ($b =~ /^.((\d)\d).$/) |
|
335
|
256 |
3732 |
if $2 != 9 |
|
346
|
18319 |
83 |
if ($a =~ m[^(.+)/SG(\d+)$]) |
|
349
|
18317 |
2 |
if ($b =~ m[^(.+)/SG(\d+)$]) { } |
|
|
2 |
0 |
elsif ($b =~ /SG(\d+)$/) { } |
|
355
|
33 |
1 |
if ($a =~ /SG(\d+)$/ and $a_num = $1 and $b =~ /SG(\d+)$/) |
|
453
|
0 |
2022 |
unless my $self = shift() |
|
454
|
0 |
2022 |
unless my $message = shift() |
|
455
|
0 |
2022 |
unless my $target = shift() |
|
456
|
0 |
2022 |
unless ($$metamap{$message}) |
|
457
|
0 |
0 |
if $debug |
|
460
|
65 |
1957 |
@_ ? : |
|
461
|
0 |
2022 |
unless $v |
|
462
|
1404 |
618 |
unless my $ranges = $$metamap{$message}{$target} |
|
463
|
0 |
618 |
unless my(@keys) = keys %$ranges |
|
467
|
2101 |
117 |
if (/^(.*)\.\.(.*)$/) { } |
|
470
|
548 |
1553 |
if $v eq $low or $v eq $hi |
|
472
|
0 |
0 |
$v eq $trio[1] ? : |
|
|
0 |
1553 |
if $debug |
|
473
|
69 |
1484 |
if $v eq $trio[1] |
|
475
|
1 |
116 |
if $v eq $_ |
|
483
|
0 |
0 |
unless my $self = shift() |
|
484
|
0 |
0 |
unless my $message = shift() |
|
485
|
0 |
0 |
unless ($$metamap{$message}) |
|
486
|
0 |
0 |
if $debug |