| line |
true |
false |
branch |
|
82
|
0 |
3 |
if defined $hostname and ref $hostname |
|
83
|
0 |
3 |
unless defined $hostname and $hostname |
|
84
|
0 |
3 |
unless $hostname =~ /^([a-z0-9]([a-z0-9\-]{0,61}[a-z0-9])?\.)*[a-z0-9]([a-z0-9\-]{0,61}[a-z0-9])?\.[a-z0-9]([a-z0-9\-]{0,61}[a-z0-9])?$/i |
|
85
|
3 |
0 |
if defined $command |
|
116
|
0 |
2 |
unless $mes->is_success |
|
119
|
2 |
0 |
if ($mes->errcode == 213) { } |
|
|
0 |
0 |
elsif ($mes->errcode == 212) { } |
|
135
|
0 |
0 |
unless $mes->is_success |
|
142
|
0 |
0 |
unless $d |
|
149
|
0 |
0 |
unless $d |
|
163
|
0 |
0 |
unless Net::DRI::Util::isa_changes($todo) |
|
164
|
0 |
0 |
if (grep {not /^(?:ip|name)$/;} $todo->types or grep {not /^(?:add|del)$/;} $todo->types('ip') or grep {not /^(?:set)$/;} $todo->types('name')) |
|
176
|
0 |
0 |
unless (defined $hostname and $hostname) |
|
178
|
0 |
0 |
if defined $nsadd and ref $nsadd and $nsadd->can('get_names') |
|
179
|
0 |
0 |
if defined $nsdel and ref $nsdel and $nsdel->can('get_names') |
|
186
|
0 |
0 |
ref $newname ? : |
|
|
0 |
0 |
if defined $newname and $newname |
|
194
|
0 |
0 |
unless defined $ns and ref $ns |
|
197
|
0 |
0 |
if $c++ > 13 |
|
199
|
0 |
0 |
if $c++ > 13 |
|
|
0 |
0 |
if ($version eq '2.0') |