| line |
true |
false |
branch |
|
79
|
0 |
22 |
unless 1 == @_ and UNIVERSAL::isa($_[0], "ARRAY") |
|
84
|
14 |
8 |
unless my(@splice) = _has_callbacks($_[0]) |
|
85
|
0 |
8 |
unless wantarray |
|
112
|
14 |
8 |
unless my(@callbacks) = callbacks(\@_) |
|
149
|
3 |
1 |
if (@_) { } |
|
151
|
0 |
3 |
if (UNIVERSAL::isa($_[0], 'ARRAY')) { } |
|
158
|
1 |
2 |
if (@_) { } |
|
162
|
1 |
0 |
unless $format or $@ |
|
166
|
1 |
0 |
unless $@ |
|
205
|
4 |
1 |
if (@_) { } |
|
207
|
0 |
4 |
if (UNIVERSAL::isa($_[0], 'ARRAY')) { } |
|
214
|
1 |
3 |
if (@_) { } |
|
218
|
1 |
0 |
unless $format or $@ |
|
222
|
1 |
0 |
unless $@ |
|
262
|
6 |
2 |
if (@_) { } |
|
264
|
0 |
6 |
if (UNIVERSAL::isa($_[0], 'ARRAY')) { } |
|
271
|
1 |
5 |
if (@_) { } |
|
275
|
1 |
1 |
unless $format or $@ |
|
280
|
1 |
1 |
unless $@ |
|
306
|
0 |
0 |
@_ ? : |
|
307
|
0 |
0 |
unless (defined $fernet) |
|
308
|
0 |
0 |
unless (defined $ENV{'FERNET_KEY'}) |
|
316
|
0 |
0 |
unless UNIVERSAL::isa($fernet, "DBIx::Squirrel::Crypt::Fernet") |
|
363
|
0 |
0 |
unless shift() |
|
366
|
0 |
0 |
if $filename =~ /\.encrypted\b/ or $options->{'decrypt'} |
|
368
|
0 |
0 |
if $filename =~ /\.bz2\b/ or $options->{'uncompress'} |
|
370
|
0 |
0 |
if $filename =~ /\.json\b/ or $options->{'unmarshal'} |
|
372
|
0 |
0 |
if $options->{'utf8decode'} |
|
408
|
0 |
6 |
unless 1 == @_ and UNIVERSAL::isa($_[0], "ARRAY") |
|
415
|
18 |
10 |
if $n == $s |
|
416
|
7 |
3 |
$n ? : |
|
|
10 |
0 |
if wantarray |
|
433
|
0 |
0 |
@_ ? : |
|
434
|
0 |
0 |
unless open my $fh, "<:raw", $filename |
|
454
|
0 |
0 |
@_ ? : |
|
472
|
0 |
0 |
@_ ? : |
|
474
|
0 |
0 |
$decode ? : |
|
490
|
0 |
0 |
@_ ? : |