Branch Coverage

blib/lib/IO/EPP/IRRP.pm
Criterion Covered Total %
branch 0 100 0.0


line true false branch
68 0 0 if ($params->{'conn'}) { }
74 0 0 unless ($code and $code == 1000)
85 0 0 if ($self->can($action)) { }
95 0 0 if $self->{'critical_error'}
99 0 0 unless $answ and ref $answ
104 0 0 wantarray ? :
157 0 0 if ($k =~ /^x-/)
163 0 0 if ($k =~ /^X-/)
168 0 0 if ($extension)
201 0 0 unless $params->{'dname'}
216 0 0 if ($content and $content =~ //)
220 0 0 if ($content =~ m[]*>(.+).+/result>]s)
224 0 0 if ($code != 1000)
227 0 0 if $reason
235 0 0 if ($row =~ /key="([^"]+)" value="([^"]+)"/)
240 0 0 wantarray ? :
243 0 0 wantarray ? :
250 0 0 if (defined $params->{'authinfo'})
336 0 0 if ($content and $content =~ //)
340 0 0 if ($content =~ m[]*>(.+).+/result>]s)
349 0 0 if ($row =~ /key="([^"]+)" value="([^"]+)"/)
354 0 0 wantarray ? :
357 0 0 wantarray ? :
443 0 0 if ($answ =~ /result code=['"](\d+)['"]/)
447 0 0 if ($answ =~ m[]*>(.+).+/result>]s)
453 0 0 if ($rcode == 1000)
457 0 0 if ($row =~ /key="([^"]+)"\s+value="([^"]+)"/)
463 0 0 wantarray ? :
466 0 0 wantarray ? :
473 0 0 if ($params->{'dname'} =~ /\.jp$/)
492 0 0 if ($k =~ /^x-/)
497 0 0 if ($params->{'trade'})
501 0 0 if ($params->{'dname'} =~ /\.xxx$/)
506 0 0 if (defined $params->{'confirm_old_registrant'})
511 0 0 if (defined $params->{'confirm_new_registrant'})
516 0 0 if ($extension)
571 0 0 if ($content and $content =~ //)
575 0 0 if ($content =~ m[]*>(.+).+/result>]s)
584 0 0 if ($row =~ /key="([^"]+)" value="([^"]+)"/)
589 0 0 wantarray ? :
592 0 0 wantarray ? :
626 0 0 if ($content and $content =~ //)
630 0 0 if ($content =~ m[]*>(.+).+/result>]s)
639 0 0 if ($row =~ /key="([^"]+)" value="([^"]+)"/)
644 0 0 wantarray ? :
647 0 0 wantarray ? :
656 0 0 if ($ext =~ m[]+>(.+)]s)
661 0 0 if (/key="([^"]+)"\s+value="([^"]+)"/)
667 0 0 if ($info{$k} =~ /^[A-Z0-9._-]+$/)
672 0 0 if ($info{$k} =~ /\%/)