Branch Coverage

blib/lib/IO/EPP/Verisign.pm
Criterion Covered Total %
branch 31 110 28.1


line true false branch
74 7 19 if ($params->{'conn'}) { }
80 0 19 unless ($code and $code == 1000)
94 0 9 if (not $tld and $params->{'dname'})
98 17 9 if ($tld)
99 0 17 if (lc $tld eq 'name') { }
112 26 0 if ($self->can($action)) { }
123 0 26 if $self->{'critical_error'}
127 0 26 unless $answ and ref $answ
132 26 0 wantarray ? :
139 138 28 if $out_data
143 166 0 if ($self->{'server'} eq 'Core') { }
150 0 166 unless (eval { do { $answ = IO::EPP::Test::VerisignCore::req(@_); 1 } })
162 0 0 unless (eval { do { $answ = IO::EPP::Test::VerisignName::req(@_); 1 } })
185 0 0 unless ($params->{'server'} or $params->{'dname'} or $params->{'tld'})
186 0 0 if ($params->{'sock_params'}{'PeerHost'} =~ /epp.verisign-grs.com/) { }
0 0 elsif ($params->{'sock_params'}{'PeerHost'} eq 'namestoressl.verisign-grs.com') { }
194 0 0 unless ($params->{'server'} or $params->{'tld'} or $params->{'dname'})
195 0 0 wantarray ? :
198 16 12 if $params->{'dname'}
202 0 11 if (not $tld and $params->{'dname'})
206 11 17 if ($params->{'server'} and not $tld)
207 11 0 if ($params->{'server'} eq 'Core') { }
0 0 elsif ($params->{'server'} eq 'DotName') { }
218 0 28 if ($tld and not $params->{'server'})
219 0 0 if ($tld eq 'name') { }
0 0 elsif ($tld =~ /^(com|net|edu)$/) { }
230 0 28 if $tld eq 'name' and $params->{'server'} ne 'DotName'
235 0 28 unless ($code and $code == 1000)
236 0 0 wantarray ? :
239 28 0 if ($tld)
240 0 28 if (lc $tld eq 'name') { }
250 19 9 wantarray ? :
279 28 0 if ($self->{'server'} eq 'Core') { }
0 0 elsif ($self->{'server'} eq 'DotName') { }
0 0 elsif ($self->{'server'} eq 'NameStore') { }
350 0 0 if ($self->{'dzone'} eq 'dotJOBS')
425 13 0 unless $params->{'chg'}
464 0 9 if ($params->{'idn_lang'})
482 0 0 if (defined $params->{'authinfo'})
598 0 0 if ($ext =~ m[]+>(.+)]s) { }
602 0 0 if ($row =~ s[([^<>]+)][])
609 0 0 if ($row =~ s[([^<>]+)][])
613 0 0 if ($row =~ s[([^<>]+)][])
617 0 0 if ($row =~ s[([^<>]+)][])
920 0 0 if ($content =~ /result code=['"](\d+)['"]/)
924 0 0 if ($content =~ m[]*>(.+).+/result>]s)
931 0 0 if ($content =~ m[(.+)]s) { }
937 0 0 if ($row =~ m[([^<>]+)]+>]) { }
0 0 elsif ($row =~ m[([^<>]+)]+>]) { }
0 0 elsif ($row =~ m[([^<>]+)]+>]) { }
957 0 0 if ($row =~ m[])
965 0 0 if (scalar @{$info{$k};} == 1)
971 0 0 wantarray ? :
974 0 0 wantarray ? :
977 0 0 wantarray ? :