| blib/lib/Net/DNS/Create/Route53.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 24 | 25.0 |
| line | l | !l | condition |
|---|---|---|---|
| 99 | 0 | 0 | not $zone and scalar @{$$domain{'entries'};} |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 53 | 0 | 0 | 1 | warn(q[Amazon doesn't support RP records :-(]) && () |
| 83 | 6 | 0 | 1 | $rr eq 'ns' && $set[0]->name . '.' eq $domain |
| line | l | !l | condition |
|---|---|---|---|
| 27 | 0 | 0 | eval { do { [r53->get_hosted_zones] } } || [] |
| 28 | 0 | 0 | (grep {$_->name eq $_[0];} @$zones)[0] // undef |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 20 | 0 | 0 | 0 | $r53 //= 'Net::Amazon::Route53'->new('id', $config{'amazon_id'}, 'key', $config{'amazon_key'}) |
| 53 | 3 | 6 | 14 | $rr eq 'mx' || $rr eq 'ns' || $rr eq 'srv' || $rr eq 'txt' |
| 111 | 0 | 0 | 0 | $_->type ne 'NS' or $_->name ne $$domain{'name'} |
| 113 | 0 | 0 | 0 | $$_{'value'} // @{$$_{'records'};} |