line |
true |
false |
branch |
20
|
0 |
2 |
if (exists $ENV{'MOD_PERL'} and $MOD_PERL = $ENV{'MOD_PERL'} =~ m[^mod_perl/(\d+\.[\d\.]+)])
|
56
|
0 |
8 |
if @_ and @_ % 2
|
73
|
0 |
8 |
if $req
|
79
|
0 |
0 |
if ($file and $file->exists and not $file->is_empty)
|
89
|
0 |
0 |
unless exists $type2sub->{$type}
|
92
|
0 |
0 |
if ($encrypt) { }
|
94
|
0 |
0 |
unless &$loader($self, $file, "algo", $self->algo, "key", $self->secret)
|
101
|
0 |
0 |
unless &$loader($self, $file)
|
111
|
13 |
3 |
if (scalar @_ == 1) { }
|
|
3 |
0 |
elsif (scalar @_) { }
|
123
|
3 |
13 |
if (ref $this eq 'HASH') { }
|
|
3 |
10 |
elsif (not ref $this) { }
|
|
0 |
10 |
elsif (not $self->_is_object($this) or $self->_is_object($this) and not $this->isa('Cookie')) { }
|
126
|
0 |
3 |
unless defined $this
|
142
|
3 |
0 |
if exists $ref->{'secure'}
|
144
|
0 |
3 |
if exists $ref->{'samesite'}
|
145
|
0 |
3 |
if exists $ref->{'httponly'}
|
147
|
0 |
3 |
unless defined $this
|
156
|
0 |
16 |
unless $this->name
|
159
|
16 |
0 |
unless exists $idx->{$key}
|
170
|
0 |
5 |
unless &Scalar::Util::blessed($req)
|
171
|
0 |
5 |
unless $req->can("uri") and $req->can("header")
|
174
|
0 |
5 |
unless ($scheme =~ /^https?\z/)
|
179
|
5 |
0 |
if ($host = $req->header('Host')) { }
|
189
|
5 |
0 |
$scheme eq 'https' ? :
|
191
|
0 |
5 |
if ($uri->can('epath')) { }
|
200
|
0 |
5 |
unless CORE::length $path
|
201
|
5 |
0 |
unless defined $port and CORE::length $port
|
204
|
0 |
5 |
if index($path, "%") != -1
|
206
|
0 |
5 |
if ($self->_is_ip($host)) { }
|
214
|
0 |
5 |
unless defined $res
|
215
|
0 |
5 |
if (not CORE::length $res or $res and not $res->domain->length)
|
238
|
0 |
0 |
unless ($c->host_only and $root eq $c->domain or not $c->host_only and $host eq $c->domain)
|
243
|
1 |
11 |
if (index($path, $c->path) != 0) { }
|
|
0 |
11 |
elsif (not $is_secure and $c->secure) { }
|
|
1 |
10 |
elsif ($c->expires and $c->expires < $now) { }
|
|
0 |
10 |
elsif ($c->port and $c->port != $port) { }
|
270
|
0 |
2 |
unless $b->path->length <=> $a->path->length
|
279
|
5 |
0 |
if (@values)
|
281
|
0 |
5 |
if (my $old = $req->header("Cookie"))
|
295
|
0 |
0 |
if ($resp)
|
297
|
0 |
0 |
unless $self->_is_object($resp)
|
298
|
0 |
0 |
unless $resp->can("header")
|
306
|
0 |
0 |
if ($c->discard)
|
311
|
0 |
0 |
if ($resp) { }
|
|
0 |
0 |
elsif ($r) { }
|
326
|
0 |
0 |
if (@values)
|
328
|
0 |
0 |
wantarray ? :
|
333
|
0 |
0 |
if $r or $resp
|
348
|
1 |
0 |
if (scalar @_ == 1 and $self->_is_a($_[0], 'Cookie')) { }
|
356
|
1 |
2 |
if (&Scalar::Util::refaddr($this) eq $addr)
|
359
|
1 |
0 |
if (exists $idx->{$key})
|
362
|
0 |
1 |
if (!&Scalar::Util::reftype($idx->{$key}) eq "ARRAY")
|
368
|
1 |
0 |
if (&Scalar::Util::refaddr($idx->{$key}[$j]) eq $addr)
|
375
|
1 |
0 |
if scalar @{$idx->{$key};} == 0
|
389
|
0 |
0 |
unless defined $name and CORE::length "$name"
|
392
|
0 |
0 |
unless exists $idx->{$key}
|
393
|
0 |
0 |
unless $self->_is_array($idx->{$key})
|
397
|
0 |
0 |
unless ref $c and $self->_is_a($c, "Cookie")
|
401
|
0 |
0 |
if (&Scalar::Util::refaddr($ref->[$i]) eq $addr)
|
418
|
0 |
2 |
if ref $code ne "CODE"
|
423
|
0 |
6 |
unless ref $c and $self->_is_a($c, "Cookie")
|
424
|
0 |
6 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
428
|
0 |
6 |
if (not defined $rv) { }
|
|
6 |
0 |
elsif ($rv) { }
|
437
|
6 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
6 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
6 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
6 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
6 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
6 |
CORE::length $@ ? :
|
|
6 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
6 |
if ($Nice::Try::DIED)
|
440
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
6 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
6 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
6 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
6 |
if (defined $Nice::Try::BREAK)
|
|
0 |
6 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
454
|
0 |
0 |
unless defined $name and CORE::length $name
|
456
|
0 |
0 |
defined $c ? :
|
464
|
0 |
4 |
unless &Scalar::Util::blessed($resp)
|
466
|
4 |
0 |
if ($self->_is_a($resp, 'HTTP::Response')) { }
|
|
0 |
0 |
elsif ($resp->can('uri') and $resp->can('header')) { }
|
469
|
0 |
4 |
unless $resp->request
|
482
|
0 |
4 |
unless $all->length
|
483
|
0 |
4 |
unless $uri
|
485
|
4 |
0 |
if ($host = $resp->header('Host') || $resp->request && ($host = $resp->request->header('Host'))) { }
|
498
|
0 |
4 |
if ($uri->can('epath')) { }
|
507
|
0 |
4 |
unless CORE::length $path
|
508
|
4 |
0 |
unless defined $port and CORE::length $port
|
510
|
0 |
4 |
if ($self->_is_ip($host)) { }
|
518
|
0 |
4 |
unless (defined $res)
|
523
|
4 |
0 |
$res ? :
|
531
|
2 |
2 |
if (CORE::length $o->param('expires')) { }
|
|
0 |
2 |
elsif (CORE::length $o->param('max-age')) { }
|
534
|
0 |
2 |
if ($dt) { }
|
548
|
0 |
4 |
if ($o->param('domain')) { }
|
561
|
0 |
0 |
if (CORE::length $c_dom >= CORE::length $root and $c_dom eq $host || $host =~ /\.$c_dom$/) { }
|
575
|
4 |
0 |
if ($root) { }
|
586
|
3 |
1 |
if (defined $o->param('path') and CORE::length $o->param('path')) { }
|
594
|
1 |
0 |
if ($path eq '/' or substr($path, -1, 1) eq '/') { }
|
604
|
4 |
0 |
if defined $port
|
605
|
0 |
4 |
if $o->param("httponly")
|
606
|
0 |
4 |
if $o->param("secure")
|
607
|
0 |
4 |
if $o->param("samesite")
|
610
|
1 |
3 |
if (scalar @old)
|
612
|
1 |
0 |
if $old[0]->created_on
|
622
|
0 |
4 |
unless $self->add($c)
|
635
|
0 |
1 |
unless CORE::length "$str"
|
638
|
1 |
0 |
if (defined $opts->{'host'} and CORE::length $opts->{'host'})
|
641
|
0 |
1 |
if ($self->_is_ip($host)) { }
|
649
|
0 |
1 |
unless (defined $res)
|
654
|
1 |
0 |
$res ? :
|
663
|
1 |
0 |
if (CORE::length $o->param('expires')) { }
|
|
0 |
0 |
elsif (CORE::length $o->param('max-age')) { }
|
666
|
0 |
1 |
if ($dt) { }
|
680
|
0 |
1 |
if ($o->param('domain')) { }
|
696
|
1 |
0 |
if ($root) { }
|
707
|
1 |
0 |
if (defined $o->param('path') and CORE::length $o->param('path')) { }
|
715
|
0 |
0 |
if ($opts->{'path'} eq '/' or substr($opts->{'path'}, -1, 1) eq '/') { }
|
725
|
1 |
0 |
if defined $opts->{'port'} and $self->_is_integer($opts->{'port'})
|
726
|
0 |
1 |
if $o->param("httponly")
|
727
|
0 |
1 |
if $o->param("secure")
|
728
|
0 |
1 |
if $o->param("samesite")
|
738
|
1 |
0 |
unless exists $opts->{'store'}
|
743
|
0 |
1 |
if ($r) { }
|
|
1 |
0 |
elsif ($opts->{'request'} and $self->_is_object($opts->{'request'}) and $opts->{'request'}->can('header')) { }
|
|
0 |
0 |
elsif (CORE::length $opts->{'string'}) { }
|
745
|
0 |
0 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
750
|
0 |
0 |
if ($o->jar_status =~ /^(?:Missing input data|Success)$/) { }
|
770
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
CORE::length $@ ? :
|
|
0 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
0 |
if ($Nice::Try::DIED)
|
772
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
0 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
0 |
if (defined $Nice::Try::BREAK)
|
|
0 |
0 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
787
|
1 |
0 |
unless (scalar @$cookies)
|
798
|
1 |
0 |
if ($opts->{'store'})
|
802
|
0 |
3 |
unless $self->add($c)
|
817
|
0 |
8 |
if (scalar @_ == 1 and $self->_is_a($_[0], 'Cookie')) { }
|
|
4 |
4 |
elsif (scalar @_ == 1 and ref $_[0] eq 'HASH') { }
|
|
4 |
0 |
elsif (scalar @_ > 0 and scalar @_ <= 3) { }
|
837
|
0 |
8 |
unless defined $name and CORE::length $name
|
844
|
0 |
8 |
if (exists $idx->{$key})
|
846
|
0 |
0 |
wantarray ? :
|
858
|
13 |
5 |
unless $c_name eq $name
|
861
|
0 |
5 |
unless (defined $host and CORE::length $host)
|
867
|
4 |
0 |
if (defined $c_host and $host eq $c_host || index(reverse($host), reverse(".$c_host")) == 0)
|
870
|
1 |
3 |
if (defined $path and CORE::length "$path") { }
|
872
|
1 |
0 |
if (index($path, $c_path) == 0)
|
884
|
4 |
4 |
if (scalar @found)
|
886
|
1 |
3 |
wantarray ? :
|
891
|
1 |
3 |
if (exists $idx->{$name})
|
893
|
0 |
1 |
wantarray ? :
|
904
|
5 |
0 |
unless exists $opts->{'sort'}
|
906
|
0 |
5 |
unless defined $host and CORE::length $host
|
912
|
12 |
0 |
if $dom eq $host or $opts->{'with_subdomain'} and $host =~ /\.$dom$/
|
915
|
5 |
0 |
if ($opts->{'sort'}) { }
|
934
|
17 |
8 |
if (scalar @_ == 1 and $self->_is_a($_[0], 'Cookie')) { }
|
944
|
0 |
8 |
if ref $name and $self->_is_a($name, ref $self)
|
946
|
0 |
25 |
unless CORE::length $name
|
947
|
22 |
3 |
if defined $host and CORE::length $host
|
968
|
0 |
1 |
unless defined $json
|
970
|
0 |
1 |
unless (CORE::length $json)
|
975
|
0 |
1 |
if ($opts->{'decrypt'})
|
979
|
0 |
0 |
unless defined $key and CORE::length "$key"
|
980
|
0 |
0 |
unless defined $algo and CORE::length "$algo"
|
981
|
0 |
0 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
983
|
0 |
0 |
unless $self->_load_class("Crypt::Misc", {"version", "0.074"})
|
989
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
CORE::length $@ ? :
|
|
0 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
0 |
if ($Nice::Try::DIED)
|
992
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
0 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
0 |
if (defined $Nice::Try::BREAK)
|
|
0 |
0 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
997
|
0 |
1 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
1001
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
1 |
if ($Nice::Try::WANTARRAY) { }
|
|
1 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
1 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
1 |
CORE::length $@ ? :
|
|
1 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
1 |
if ($Nice::Try::DIED)
|
1004
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
1 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
1 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
1 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
1 |
if (defined $Nice::Try::BREAK)
|
|
0 |
1 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
1005
|
0 |
1 |
if (ref $hash ne "HASH")
|
1011
|
0 |
1 |
if ref $repo ne "ARRAY"
|
1014
|
0 |
3 |
if (not exists $def->{'name'} && exists $def->{'value'}) { }
|
|
0 |
3 |
elsif (not defined $def->{'name'} && CORE::length $def->{'name'}) { }
|
1027
|
0 |
3 |
unless $self->add($c)
|
1044
|
0 |
1 |
$opts->{'decrypt'} ? :
|
|
0 |
1 |
unless $f->open("<", {"binmode", $opts->{'decrypt'} ? "raw" : "utf-8"})
|
1047
|
3 |
1 |
if (/^Set-Cookie3:[[:blank:]\h]*(.*?)$/) { }
|
1056
|
0 |
1 |
if ($opts->{'decrypt'}) { }
|
1062
|
0 |
0 |
unless defined $key and CORE::length "$key"
|
1063
|
0 |
0 |
unless defined $algo and CORE::length "$algo"
|
1064
|
0 |
0 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
1066
|
0 |
0 |
unless $self->_load_class("Crypt::Misc", {"version", "0.074"})
|
1073
|
0 |
0 |
unless $io->line($code, "chomp", 1, "auto_next", 1)
|
1076
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
CORE::length $@ ? :
|
|
0 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
0 |
if ($Nice::Try::DIED)
|
1079
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
0 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
0 |
if (defined $Nice::Try::BREAK)
|
|
0 |
0 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
1083
|
0 |
1 |
unless $f->line($code, "chomp", 1, "auto_next", 1)
|
1104
|
0 |
0 |
exists $opts->{'use_dbi'} && defined $opts->{'use_dbi'} && $opts->{'use_dbi'} ? :
|
1123
|
0 |
0 |
if ($requires_dbi or not $opts->{'use_dbi'} || $opts->{'sqlite'})
|
1131
|
0 |
0 |
if $@
|
1133
|
0 |
0 |
if (defined $dbi_error and exists $opts->{'use_dbi'} and defined $opts->{'use_dbi'} and $opts->{'use_dbi'}) { }
|
|
0 |
0 |
elsif (not defined $dbi_error) { }
|
1160
|
0 |
0 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
1166
|
0 |
0 |
unless $tbl_check->execute
|
1169
|
0 |
0 |
unless ($found)
|
1175
|
0 |
0 |
unless $sth->execute
|
1182
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
CORE::length $@ ? :
|
|
0 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
0 |
if ($Nice::Try::DIED)
|
1184
|
0 |
0 |
if ($requires_dbi) { }
|
1190
|
0 |
0 |
if $self->_warnings_is_enabled
|
1192
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
0 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
0 |
if (defined $Nice::Try::BREAK)
|
|
0 |
0 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
1199
|
0 |
0 |
unless (scalar @$cookies or $requires_dbi)
|
1202
|
0 |
0 |
if (exists $opts->{'sqlite'} and defined $opts->{'sqlite'} and CORE::length $opts->{'sqlite'}) { }
|
1204
|
0 |
0 |
if (not -e $opts->{'sqlite'}) { }
|
|
0 |
0 |
elsif (not -x $opts->{'sqlite'}) { }
|
1218
|
0 |
0 |
unless (defined $bin)
|
1226
|
0 |
0 |
unless open my $fh, "-|", $sqlite_bin, "$sqldb", $sql
|
1240
|
0 |
0 |
unless $self->add({"name", $name, "value", $value, "domain", $domain, "path", $path, "expires", $expires, "secure", $secure, "http_only", $http_only, "same_site", $same_site, "accessed_on", $accessed, "created_on", $created})
|
1263
|
0 |
0 |
unless $f->open
|
1267
|
0 |
0 |
lc $secure eq 'true' ? :
|
1269
|
0 |
0 |
if substr($domain, 1, 1) eq "."
|
1278
|
0 |
0 |
unless $f->line(sub {
|
1287
|
0 |
15 |
unless $opts->{'name'}
|
1290
|
0 |
15 |
unless defined $c
|
1291
|
0 |
15 |
unless $c->apply($opts)
|
1300
|
0 |
0 |
unless $self->_is_a($jar, "Cookie::Jar")
|
1302
|
0 |
0 |
unless $jar->can("do")
|
1311
|
0 |
0 |
if defined $error
|
1313
|
0 |
0 |
if ($self->_is_object($c))
|
1315
|
0 |
0 |
if ($self->_is_a($c, 'Cookie')) { }
|
|
0 |
0 |
elsif ($c->can('name') and $c->can('value') and $c->can('domain') and $c->can('path') and $c->can('expires') and $c->can('max_age') and $c->can('port') and $c->can('secure') and $c->can('same_site') and $c->can('http_only')) { }
|
1317
|
0 |
0 |
if ($opts->{'overwrite'}) { }
|
1349
|
0 |
0 |
if (not defined $new) { }
|
1352
|
0 |
0 |
if $opts->{'die'}
|
1356
|
0 |
0 |
if ($opts->{'overwrite'}) { }
|
1370
|
0 |
0 |
if $opts->{'die'}
|
1374
|
0 |
0 |
if defined $error
|
1386
|
2 |
21 |
unless defined $raw and CORE::length $raw
|
1394
|
0 |
60 |
unless defined $v
|
1410
|
0 |
0 |
if ($c->is_expired)
|
1412
|
0 |
0 |
unless $self->delete($c)
|
1427
|
0 |
0 |
unless defined $c
|
1428
|
0 |
0 |
unless $self->_is_a($c, "Cookie")
|
1430
|
0 |
0 |
if (defined $old) { }
|
1432
|
0 |
0 |
unless $self->_is_a($old, "Cookie")
|
1433
|
0 |
0 |
if ($c->name ne $old->name or $c->domain ne $old->domain or $c->path ne $old->path)
|
1441
|
0 |
0 |
if (exists $idx->{$key})
|
1445
|
0 |
0 |
if (&Scalar::Util::refaddr($idx->{$key}[$i]) eq $addr)
|
1454
|
0 |
0 |
if (&Scalar::Util::refaddr($ref->[$i]) eq $addr)
|
1465
|
0 |
0 |
exists $idx->{$key} ? :
|
1471
|
0 |
0 |
if (&Scalar::Util::refaddr($ref->[$j]) eq $addr)
|
1497
|
0 |
1 |
if $opts->{'format'} eq "lwp"
|
1507
|
0 |
1 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
1511
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
1 |
if ($Nice::Try::WANTARRAY) { }
|
|
1 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
1 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
1 |
CORE::length $@ ? :
|
|
1 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
1 |
if ($Nice::Try::DIED)
|
1514
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
1 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
1 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
1 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
1 |
if (defined $Nice::Try::BREAK)
|
|
0 |
1 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
1528
|
0 |
1 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
1532
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
1 |
if ($Nice::Try::WANTARRAY) { }
|
|
1 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
1 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
1 |
CORE::length $@ ? :
|
|
1 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
1 |
if ($Nice::Try::DIED)
|
1535
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
1 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
1 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
1 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
1 |
if (defined $Nice::Try::BREAK)
|
|
0 |
1 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
1537
|
0 |
1 |
$opts->{'encrypt'} ? :
|
|
0 |
1 |
unless $f->open(">", {"binmode", $opts->{'encrypt'} ? "raw" : "utf8"})
|
1539
|
0 |
1 |
if ($opts->{'encrypt'}) { }
|
1541
|
0 |
0 |
unless $self->_load_class("Crypt::Misc", {"version", "0.074"})
|
1569
|
0 |
1 |
unless $file
|
1574
|
0 |
1 |
if ($opts->{'encrypt'})
|
1576
|
0 |
0 |
unless $self->_load_class("Crypt::Misc", {"version", "0.074"})
|
1582
|
0 |
1 |
if ($opts->{'encrypt'}) { }
|
1588
|
0 |
1 |
unless $io->print("#LWP-Cookies-1.0\n")
|
1594
|
0 |
0 |
if $c->discard and $opts->{'skip_discard'}
|
1595
|
0 |
0 |
if $c->expires and $c->expires < $now and $opts->{'skip_expired'}
|
1597
|
3 |
0 |
if CORE::length $vals->{'path'}
|
1603
|
0 |
3 |
if defined $vals->{'port'} and CORE::length $vals->{'port'}
|
1604
|
3 |
0 |
if defined $vals->{'path_spec'} and $vals->{'path_spec'}
|
1605
|
3 |
0 |
if defined $vals->{'secure'} and $vals->{'secure'}
|
1606
|
0 |
3 |
if defined $vals->{'secure'} and $vals->{'expires'}
|
1607
|
0 |
0 |
if defined $vals->{'discard'} and $vals->{'discard'}
|
1608
|
0 |
3 |
if (defined $vals->{'comment'} and CORE::length $vals->{'comment'})
|
1613
|
0 |
3 |
if defined $vals->{'commentURL'} and CORE::length $vals->{'commentURL'}
|
1615
|
0 |
3 |
if ($opts->{'encrypt'}) { }
|
1621
|
0 |
3 |
unless $io->print("Set-Cookie3: ", $hv->as_string, "\n")
|
1624
|
0 |
1 |
if ($opts->{'encrypt'})
|
1650
|
0 |
0 |
exists $opts->{'use_dbi'} && defined $opts->{'use_dbi'} && $opts->{'use_dbi'} ? :
|
1697
|
0 |
0 |
if $c->discard and $opts->{'skip_discard'}
|
1698
|
0 |
0 |
if $c->expires and $c->expires < $now and $opts->{'skip_expired'}
|
1711
|
0 |
0 |
$c->expires ? :
|
|
0 |
0 |
$c->secure ? :
|
|
0 |
0 |
$c->same_site->lc eq 'strict' ? :
|
|
0 |
0 |
$c->http_only ? :
|
|
0 |
0 |
$c->accessed_on ? :
|
|
0 |
0 |
$c->created_on ? :
|
1713
|
0 |
0 |
if ($can_do_upsert)
|
1716
|
0 |
0 |
$c->expires ? :
|
1717
|
0 |
0 |
$c->secure ? :
|
1718
|
0 |
0 |
$c->same_site->lc eq 'strict' ? :
|
1719
|
0 |
0 |
$c->http_only ? :
|
1720
|
0 |
0 |
$c->accessed_on ? :
|
1721
|
0 |
0 |
$c->created_on ? :
|
1746
|
0 |
0 |
if ($opts->{'log_sql'})
|
1754
|
0 |
0 |
if ($requires_dbi or not $opts->{'use_dbi'} || $opts->{'sqlite'})
|
1762
|
0 |
0 |
if $@
|
1764
|
0 |
0 |
if (defined $dbi_error and exists $opts->{'use_dbi'} and defined $opts->{'use_dbi'} and $opts->{'use_dbi'}) { }
|
|
0 |
0 |
elsif (not defined $dbi_error) { }
|
1777
|
0 |
0 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
1781
|
0 |
0 |
if ($opts->{'log_sql'})
|
1783
|
0 |
0 |
unless $log_file->open(">>", {"binmode", "utf-8", "autoflush", 1})
|
1801
|
0 |
0 |
if ($db_file_exists)
|
1809
|
0 |
0 |
if ($table_moz_cookies_exists)
|
1812
|
0 |
0 |
if ($opts->{'overwrite'}) { }
|
1842
|
0 |
0 |
if (not exists $fields->{$f}) { }
|
|
0 |
0 |
elsif ($core_fields->{$f}{'type'} ne uc $fields->{$f}{'type'}) { }
|
1851
|
0 |
0 |
if (scalar @$missing or scalar @$bad_datatype)
|
1862
|
0 |
0 |
if (not $table_moz_cookies_exists) { }
|
1875
|
0 |
0 |
$sql_v >= $req_v ? :
|
1877
|
0 |
0 |
if ($can_do_upsert) { }
|
1892
|
0 |
0 |
if ($opts->{'rollback'})
|
1903
|
0 |
0 |
unless $insert_sth->bind_param($i + 1, $c->[$i][0], $c->[$i][1])
|
1909
|
0 |
0 |
if ($@)
|
1913
|
0 |
0 |
if ($opts->{'rollback'})
|
1923
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
CORE::length $@ ? :
|
|
0 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
0 |
if ($Nice::Try::DIED)
|
1925
|
0 |
0 |
if ($requires_dbi) { }
|
1932
|
0 |
0 |
if $self->_warnings_is_enabled
|
1934
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
0 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
0 |
if (defined $Nice::Try::BREAK)
|
|
0 |
0 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
1940
|
0 |
0 |
if (defined $dbi_error and not $requires_dbi or exists $opts->{'sqlite'} and defined $opts->{'sqlite'} and CORE::length $opts->{'sqlite'})
|
1944
|
0 |
0 |
if (exists $opts->{'sqlite'} and defined $opts->{'sqlite'} and CORE::length $opts->{'sqlite'}) { }
|
1946
|
0 |
0 |
if (not -e $opts->{'sqlite'}) { }
|
|
0 |
0 |
elsif (not -x $opts->{'sqlite'}) { }
|
1960
|
0 |
0 |
unless (defined $bin)
|
1970
|
0 |
0 |
unless open $fh, "-|", $sqlite_bin, "--version"
|
1974
|
0 |
0 |
if (defined $sqlite_version)
|
1983
|
0 |
0 |
unless open $fh, "-|", $sqlite_bin, "$sqldb", "SELECT name FROM sqlite_master WHERE type IN ('table') AND name IS 'moz_cookies'"
|
1992
|
0 |
0 |
unless open $fh, "|-", $sqlite_bin, "--bail", "$sqldb"
|
1995
|
0 |
0 |
if ($opts->{'log_sql'})
|
1997
|
0 |
0 |
unless print $fh ".trace $log_file\n"
|
2000
|
0 |
0 |
if ($table_moz_cookies_exists and $opts->{'overwrite'})
|
2002
|
0 |
0 |
unless print $fh "DROP TABLE IF EXISTS moz_cookies;\n"
|
2007
|
0 |
0 |
if ($opts->{'rollback'})
|
2009
|
0 |
0 |
unless print $fh "BEGIN TRANSACTION;\n"
|
2013
|
0 |
0 |
if (not $table_moz_cookies_exists) { }
|
2016
|
0 |
0 |
unless print $fh "$create_table_sql;\n"
|
2022
|
0 |
0 |
defined $sql_v && $sql_v >= $req_v ? :
|
2024
|
0 |
0 |
if ($can_do_upsert) { }
|
2040
|
0 |
0 |
if ($$core_fields{$ref->[2]}{'constant'} eq 'SQL_INTEGER') { }
|
2054
|
0 |
0 |
unless (print $fh "$sql;\n")
|
2056
|
0 |
0 |
if ($opts->{'rollback'})
|
2064
|
0 |
0 |
if ($opts->{'rollback'})
|
2066
|
0 |
0 |
unless print $fh "END TRANSACTION;\n"
|
2072
|
0 |
0 |
if ($opts->{'log_sql'} and defined $log_file and $log_file->opened)
|
2088
|
0 |
0 |
unless $opts->{'file'}
|
2097
|
0 |
0 |
if $c->discard and $opts->{'skip_discard'}
|
2098
|
0 |
0 |
if $c->expires and $c->expires < $now and $opts->{'skip_expired'}
|
2100
|
0 |
0 |
$c->domain->substr(1, 1) eq '.' ? :
|
2102
|
0 |
0 |
$c->secure ? :
|
2123
|
0 |
4 |
unless $c->name->length
|
2124
|
0 |
4 |
unless &Scalar::Util::blessed($c)
|
2125
|
0 |
4 |
unless $c->can("as_string")
|
2128
|
0 |
4 |
if ($r) { }
|
|
4 |
0 |
elsif ($opts->{'response'} and $self->_is_object($opts->{'response'}) and $opts->{'response'}->can('header')) { }
|
2152
|
0 |
0 |
unless defined $key and CORE::length "$key"
|
2153
|
0 |
0 |
unless defined $algo and CORE::length "$algo"
|
2154
|
0 |
0 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
2156
|
0 |
0 |
unless $self->_load_class("Crypt::Mode::CBC", {"version", "0.074"})
|
2157
|
0 |
0 |
unless $self->_load_class("Bytes::Random::Secure")
|
2160
|
0 |
0 |
unless $self->_load_class($class)
|
2163
|
0 |
0 |
if CORE::length $key < $key_len
|
2165
|
0 |
0 |
if (defined $iv and CORE::length "$iv") { }
|
2167
|
0 |
0 |
if (CORE::length $iv != $block_len)
|
2182
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if defined $Nice::Try::LAST_VAL
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
CORE::length $@ ? :
|
|
0 |
0 |
unless &Scalar::Util::blessed($@)
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
0 |
0 |
if ($Nice::Try::DIED)
|
2185
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if $@
|
|
0 |
0 |
if (defined $Nice::Try::CATCH_DIED)
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANT and CORE::length $Nice::Try::WANT) { }
|
|
0 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
0 |
0 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
0 |
0 |
if (defined $Nice::Try::BREAK)
|
|
0 |
0 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|
2202
|
0 |
0 |
$x eq '2F' || $x eq '25' ? :
|
2212
|
0 |
8 |
if ($self->autosave and $file)
|
2223
|
0 |
0 |
unless (exists $type2sub->{$type})
|
2225
|
0 |
0 |
if $self->_warnings_is_enabled
|
2231
|
0 |
0 |
if ($encrypt) { }
|
2237
|
0 |
0 |
unless (&$unloader($self, $file, "algo", $self->algo, "key", $self->secret))
|
2238
|
0 |
0 |
if $self->_warnings_is_enabled
|
2244
|
0 |
0 |
unless (&$unloader($self, $file))
|
2245
|
0 |
0 |
if $self->_warnings_is_enabled
|