| line |
true |
false |
branch |
|
42
|
0 |
1 |
if ($class ne 'LCC') |
|
53
|
1 |
0 |
if $_[0] |
|
81
|
0 |
0 |
if (exists $self->{'Backend'}) |
|
82
|
0 |
0 |
if @_ |
|
91
|
0 |
0 |
unless ($type =~ /^(?:DBI|Storable|textfile)$/) |
|
100
|
0 |
0 |
if (my $ref = ref $type) { } |
|
101
|
0 |
0 |
if ($ref eq 'DBI::db') { } |
|
114
|
0 |
0 |
if (defined $Storable::VERSION) { } |
|
125
|
0 |
0 |
unless $type |
|
148
|
0 |
0 |
unless ($type =~ /^(?:DBI|filesystem|module|queue)$/) |
|
161
|
0 |
0 |
if (my $ref = ref $type) { } |
|
162
|
0 |
0 |
if ($ref eq 'DBI::db') { } |
|
|
0 |
0 |
elsif ($ref eq 'threads::shared::queue') { } |
|
178
|
0 |
0 |
unless $type |
|
215
|
0 |
0 |
if (exists $self->{$name}) |
|
217
|
0 |
0 |
if wantarray |
|
242
|
0 |
0 |
if (defined wantarray) |
|
270
|
0 |
0 |
unless @_ |
|
279
|
0 |
0 |
if ($value eq 'cluck') |
|
281
|
0 |
0 |
if defined &Carp::cluck |
|
297
|
0 |
1 |
unless @_ |
|
306
|
0 |
1 |
if ($value eq 'confess') |
|
308
|
0 |
0 |
if defined &Carp::confess |
|
333
|
1 |
0 |
if ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
336
|
0 |
1 |
ref $ref->{$method} eq 'ARRAY' ? : |
|
348
|
0 |
0 |
ref $parameters eq 'ARRAY' ? : |
|
378
|
0 |
0 |
unless exists $self->{'Backend'} |
|
381
|
0 |
0 |
unless exists $backend->{'old'} |
|
383
|
0 |
0 |
unless exists $self->{'Documents'} and @{$self->{'Documents'};} |
|
420
|
0 |
0 |
if $list eq $old->{$id} |
|
427
|
0 |
0 |
if exists $new->{$id} |
|
478
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
484
|
0 |
0 |
keys %{$$backend{'old'};} ? : |
|
515
|
0 |
0 |
if (my $urlid = $url->{$id} || '') |
|
517
|
0 |
0 |
unless $urlid->{$_} or '' |
|
524
|
0 |
0 |
if $mtime or '' |
|
525
|
0 |
0 |
if $length or '' |
|
526
|
0 |
0 |
if $md5 or '' |
|
527
|
0 |
0 |
if $mimetype or '' |
|
528
|
0 |
0 |
if $subtype or '' |
|
548
|
0 |
0 |
if defined wantarray |
|
577
|
0 |
0 |
unless exists $self->{'Backend'} |
|
598
|
0 |
0 |
if $_[0] |
|
621
|
0 |
0 |
if exists $parent->{$_} |
|
641
|
0 |
0 |
if $self->{'PrintError'} or '' |
|
650
|
0 |
0 |
if (my $action = $self->{'RaiseError'} || '') |
|
651
|
0 |
0 |
if (ref $action eq 'CODE') { } |
|
678
|
0 |
0 |
if $serverport =~ /^\d+$/ |
|
685
|
0 |
0 |
unless $socket |
|
709
|
2 |
1 |
if @_ > 2 |
|
735
|
0 |
0 |
unless defined $Data::Dumper::VERSION |
|
736
|
0 |
0 |
if (defined $Data::Dumper::VERSION) |
|
737
|
0 |
0 |
if defined wantarray |