| line |
true |
false |
branch |
|
44
|
0 |
0 |
if ref(my $class = shift()) |
|
45
|
0 |
0 |
if @_ % 2 |
|
59
|
0 |
0 |
if @invalidkeys and $^W |
|
63
|
0 |
0 |
unless defined $$stor{'timeout'} and $$stor{'timeout'} =~ /^[1-9]\d*$/ |
|
65
|
0 |
0 |
unless defined $$stor{'cache_ttl'} and $$stor{'cache_ttl'} =~ /^\d+$/ |
|
100
|
0 |
0 |
if (not ref $this) { } |
|
|
0 |
0 |
elsif (ref $this eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $this eq 'HASH') { } |
|
115
|
0 |
0 |
unless ref $self and UNIVERSAL::isa($self, 'WWW::FleXtel') |
|
123
|
0 |
0 |
unless defined $params{$k} |
|
130
|
0 |
0 |
unless $readCache eq 'get' |
|
133
|
0 |
0 |
if ($readCache) |
|
135
|
0 |
0 |
if (defined $cache) |
|
156
|
0 |
0 |
if ($$query{'method'} eq 'GET') { } |
|
168
|
0 |
0 |
if ($response->is_success) { } |
|
171
|
0 |
0 |
if (defined $$data{$cacheName}) |
|
189
|
0 |
0 |
if (defined $$stor{'cache'}{$cacheName}{'last_updated'} and time - $$stor{'cache'}{$cacheName}{'last_updated'} < $$stor{'cache_ttl'}) |
|
211
|
0 |
0 |
unless defined $lookup |
|
213
|
0 |
0 |
unless $lookup =~ /\S/ |
|
219
|
0 |
0 |
if ($lookup =~ /^\d+$/ and $i == $lookup) { } |
|
|
0 |
0 |
elsif ($lookup =~ /[0-9\#\+]{8,}/ and $lookup eq $$mem{'number'}) { } |
|
|
0 |
0 |
elsif ($lookup eq $$mem{'title'}) { } |
|
236
|
0 |
0 |
if ($html =~ /^\s*([0-9\#\+]{8,}(?:,.*)?)\s*$/s) |
|
248
|
0 |
0 |
if (@args) |
|
270
|
0 |
0 |
if (my($key, $num, $val) = $_ =~ /^\s*FN.(email|dest_(?:no|nrb)|mem(\d+)(?:text)?)\s*=\s*(.+?)\s*;\s*$/) |
|
275
|
0 |
0 |
if (my($index) = $key =~ /^mem(\d+)$/) { } |
|
|
0 |
0 |
elsif ($key =~ /^mem(\d+)text$/) { } |
|
|
0 |
0 |
elsif ($key eq 'email' and $val =~ /"(\S+?)"/) { } |
|
|
0 |
0 |
elsif ($key =~ /^dest_no$/) { } |
|
403
|
0 |
0 |
unless $WWW::FleXtel::DEBUG |
|
409
|
0 |
0 |
unless $WWW::FleXtel::DEBUG |