lib/Net/Domain/ExpireDate.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 41 | 56 | 73.2 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
327 | 38 | 18 | 3 | $b and length $b > 3 |
38 | 0 | 18 | $b and length $b == 3 | |
412 | 9 | 6 | 1 | $b and length $b > 3 |
9 | 0 | 6 | $b and length $b == 3 | |
446 | 6 | 5 | 2 | $created and $created =~ /\./ |
3 | 7 | 1 | $reg_till and $reg_till =~ /\./ | |
4 | 5 | 1 | $free_date and $free_date =~ /\./ | |
467 | 0 | 7 | 0 | $t and not $reg_till |
7 | 0 | 0 | $t and not $reg_till and not $free_date | |
484 | 10 | 0 | 3 | not $reg_till and $free_date |
line | l | !l | condition |
---|---|---|---|
94 | 11 | 71 | $format ||= '%Y-%m-%d' |
125 | 25 | 57 | $tld ||= 'com' |
126 | 72 | 10 | $flags ||= 15 |
153 | 98 | 0 | $format ||= '%Y-%m-%d' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
46 | 3 | 0 | 0 | _expire_date_query($domain, $format, 0) || _expire_date_query($domain, $format, 1) |
68 | 4 | 0 | 0 | Net::Whois::Raw::whois($domain, undef, 'QRY_LAST') || Net::Whois::Raw::whois($domain, undef, 'QRY_FIRST') |
133 | 0 | 1 | 0 | eval { do { &Encode::decode('UTF-8', $whois) } } || $whois |
446 | 2 | 1 | 10 | $created and $created =~ /\./ or $reg_till and $reg_till =~ /\./ |
1 | 1 | 9 | $created and $created =~ /\./ or $reg_till and $reg_till =~ /\./ or $free_date and $free_date =~ /\./ | |
476 | 10 | 3 | 0 | $reg_till or $free_date |