Branch Coverage

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


line true false branch
88 7 19 if ($params->{'conn'}) { }
94 0 19 unless ($code and $code == 1000)
108 0 9 if (not $tld and $params->{'dname'})
112 17 9 if ($tld)
113 0 17 if (lc $tld eq 'name') { }
126 26 0 if ($self->can($action)) { }
137 0 26 if $self->{'critical_error'}
141 0 26 unless $answ and ref $answ
146 26 0 wantarray ? :
160 138 28 if $out_data
164 166 0 if ($self->{'server'} eq 'Core') { }
171 0 166 unless (eval { do { $answ = IO::EPP::Test::VerisignCore::req(@_); 1 } })
183 0 0 unless (eval { do { $answ = IO::EPP::Test::VerisignName::req(@_); 1 } })
209 0 0 unless ($params->{'server'} or $params->{'dname'} or $params->{'tld'})
210 0 0 if ($params->{'sock_params'}{'PeerHost'} =~ /epp.verisign-grs.com/) { }
0 0 elsif ($params->{'sock_params'}{'PeerHost'} eq 'namestoressl.verisign-grs.com') { }
218 0 0 unless ($params->{'server'} or $params->{'tld'} or $params->{'dname'})
219 0 0 wantarray ? :
222 16 12 if $params->{'dname'}
226 0 11 if (not $tld and $params->{'dname'})
230 11 17 if ($params->{'server'} and not $tld)
231 11 0 if ($params->{'server'} eq 'Core') { }
0 0 elsif ($params->{'server'} eq 'DotName') { }
242 0 28 if ($tld and not $params->{'server'})
243 0 0 if ($tld eq 'name') { }
0 0 elsif ($tld =~ /^(com|net|edu)$/) { }
254 0 28 if $tld eq 'name' and $params->{'server'} ne 'DotName'
259 0 28 unless ($code and $code == 1000)
260 0 0 wantarray ? :
263 28 0 if ($tld)
264 0 28 if (lc $tld eq 'name') { }
274 19 9 wantarray ? :
301 28 0 if ($self->{'server'} eq 'Core') { }
0 0 elsif ($self->{'server'} eq 'DotName') { }
0 0 elsif ($self->{'server'} eq 'NameStore') { }
465 0 0 if ($self->{'dzone'} eq 'dotJOBS')
610 13 0 unless $params->{'chg'}
713 0 9 if ($params->{'idn_lang'})
726 0 0 if (defined $params->{'authinfo'})
961 0 0 if ($ext =~ m[]+>(.+)]s) { }
965 0 0 if ($row =~ s[([^<>]+)][])
972 0 0 if ($row =~ s[([^<>]+)][])
976 0 0 if ($row =~ s[([^<>]+)][])
980 0 0 if ($row =~ s[([^<>]+)][])
1283 0 0 if ($content =~ /result code=['"](\d+)['"]/)
1287 0 0 if ($content =~ m[]*>(.+).+/result>]s)
1294 0 0 if ($content =~ m[(.+)]s) { }
1300 0 0 if ($row =~ m[([^<>]+)]+>]) { }
0 0 elsif ($row =~ m[([^<>]+)]+>]) { }
0 0 elsif ($row =~ m[([^<>]+)]+>]) { }
1320 0 0 if ($row =~ m[])
1328 0 0 if (scalar @{$info{$k};} == 1)
1334 0 0 wantarray ? :
1337 0 0 wantarray ? :
1340 0 0 wantarray ? :