| line |
!l |
l&&!r |
l&&r |
condition |
|
37
|
0 |
1 |
14 |
defined $primitive and not XXX |
|
59
|
28 |
0 |
6 |
substr($$data, 0, 120) =~ // and my($type, $version) = $self->_load_xml($data, \$raw_key) |
|
187
|
0 |
0 |
6 |
defined $version and defined $data |
|
189
|
4 |
0 |
2 |
$version =~ /^1\.0/ and $data =~ m[^[A-Za-z0-9+/=]+$] |
|
|
0 |
0 |
4 |
$version =~ /^2\.0/ and $data =~ /^[A-Fa-f0-9]+$/ |
|
|
0 |
0 |
4 |
$version =~ /^2\.0/ and $data =~ /^[A-Fa-f0-9]+$/ and defined $hash |
|
|
0 |
0 |
4 |
$version =~ /^2\.0/ and $data =~ /^[A-Fa-f0-9]+$/ and defined $hash and $hash =~ /^[A-Fa-f0-9]+$/ |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
32
|
36 |
1 |
0 |
shift() // throw("Missing key primitive") |
|
94
|
0 |
7 |
0 |
$args{'raw_key'} // $self->raw_key |
|
|
7 |
0 |
0 |
($args{'raw_key'} // $self->raw_key) // &random_bytes(32) |
|
98
|
1 |
6 |
0 |
$args{'type'} // $self->type |
|
99
|
0 |
2 |
5 |
$args{'version'} // $self->version |
|
100
|
1 |
5 |
1 |
$args{'filepath'} // $self->filepath |
|
111
|
0 |
0 |
6 |
not $fh or my $err = $@ |
|
143
|
0 |
5 |
0 |
$args{'mode'} // $file_mode |
|
|
5 |
0 |
0 |
($args{'mode'} // $file_mode) // do {
my $m = umask;
defined $m ? 438 & ~$m : undef
} |
|
144
|
0 |
0 |
5 |
$args{'uid'} // $file_uid |
|
145
|
0 |
0 |
5 |
$args{'gid'} // $file_gid |