| blib/lib/WWW/ErnestMarples.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 9 | 11.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 81 | 0 | 0 | 0 | defined $lon and $lat =~ /^-?\d+(?:\.\d+)?$/ |
| 0 | 0 | 0 | defined $lon and $lat =~ /^-?\d+(?:\.\d+)?$/ and $lon =~ /^-?\d+(?:\.\d+)?$/ |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 90 | 0 | 1 | 0 | $$self{'_ua'} ||= do { my $ua = 'LWP::UserAgent'->new; $ua->agent(sprintf('%s %s', 'WWW::ErnestMarples', $VERSION)); $ua } |