| line |
true |
false |
branch |
|
36
|
0 |
18 |
ref $_[0] ? : |
|
38
|
18 |
0 |
if $self->can('init') |
|
47
|
72 |
0 |
$self->can($_) ? : |
|
54
|
28 |
83 |
if (@_) |
|
56
|
28 |
0 |
defined {CHR => 3, COL => 5, GRP => 2, PRG => 0}->{$resource} ? : |
|
65
|
26 |
11 |
if (@_) |
|
68
|
0 |
26 |
unless $name =~ /^[_0-9a-zA-Z]+$/ |
|
78
|
26 |
70 |
if (@_) |
|
81
|
0 |
26 |
unless $$self{'version'} = &List::Util::first(sub {
$_ eq $version;
}
, @{['PETC0100', 'PETC0300'];}) |
|
89
|
31 |
37 |
if @_ > 0 |
|
106
|
4 |
2 |
ref $_[0] ? : |
|
108
|
0 |
6 |
unless $self->is_ptc($raw_ptc) |
|
126
|
7 |
1 |
if &bytes::substr($_[0], 0, 4) eq 'PX01' |