Branch Coverage

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


line true false branch
78 7 19 if ($params->{'conn'}) { }
84 0 19 unless ($code and $code == 1000)
98 0 9 if (not $tld and $params->{'dname'})
102 17 9 if ($tld)
103 0 17 if (lc $tld eq 'name') { }
116 26 0 if ($self->can($action)) { }
127 0 26 if $self->{'critical_error'}
131 0 26 unless $answ and ref $answ
136 26 0 wantarray ? :
143 138 28 if $out_data
147 166 0 if ($self->{'server'} eq 'Core') { }
154 0 166 unless (eval { do { $answ = IO::EPP::Test::VerisignCore::req(@_); 1 } })
166 0 0 unless (eval { do { $answ = IO::EPP::Test::VerisignName::req(@_); 1 } })
197 0 0 unless ($params->{'server'} or $params->{'dname'} or $params->{'tld'})
198 0 0 if ($params->{'sock_params'}{'PeerHost'} =~ /epp.verisign-grs.com/) { }
0 0 elsif ($params->{'sock_params'}{'PeerHost'} eq 'namestoressl.verisign-grs.com') { }
206 0 0 unless ($params->{'server'} or $params->{'tld'} or $params->{'dname'})
207 0 0 wantarray ? :
210 16 12 if $params->{'dname'}
214 0 11 if (not $tld and $params->{'dname'})
218 11 17 if ($params->{'server'} and not $tld)
219 11 0 if ($params->{'server'} eq 'Core') { }
0 0 elsif ($params->{'server'} eq 'DotName') { }
230 0 28 if ($tld and not $params->{'server'})
231 0 0 if ($tld eq 'name') { }
0 0 elsif ($tld =~ /^(com|net|edu)$/) { }
242 0 28 if $tld eq 'name' and $params->{'server'} ne 'DotName'
247 0 28 unless ($code and $code == 1000)
248 0 0 wantarray ? :
251 28 0 if ($tld)
252 0 28 if (lc $tld eq 'name') { }
262 19 9 wantarray ? :
289 28 0 if ($self->{'server'} eq 'Core') { }
0 0 elsif ($self->{'server'} eq 'DotName') { }
0 0 elsif ($self->{'server'} eq 'NameStore') { }
453 0 0 if ($self->{'dzone'} eq 'dotJOBS')
598 13 0 unless $params->{'chg'}
701 0 9 if ($params->{'idn_lang'})
714 0 0 if (defined $params->{'authinfo'})
949 0 0 if ($ext =~ m[]+>(.+)]s) { }
953 0 0 if ($row =~ s[([^<>]+)][])
960 0 0 if ($row =~ s[([^<>]+)][])
964 0 0 if ($row =~ s[([^<>]+)][])
968 0 0 if ($row =~ s[([^<>]+)][])
1271 0 0 if ($content =~ /result code=['"](\d+)['"]/)
1275 0 0 if ($content =~ m[]*>(.+).+/result>]s)
1282 0 0 if ($content =~ m[(.+)]s) { }
1288 0 0 if ($row =~ m[([^<>]+)]+>]) { }
0 0 elsif ($row =~ m[([^<>]+)]+>]) { }
0 0 elsif ($row =~ m[([^<>]+)]+>]) { }
1308 0 0 if ($row =~ m[])
1316 0 0 if (scalar @{$info{$k};} == 1)
1322 0 0 wantarray ? :
1325 0 0 wantarray ? :
1328 0 0 wantarray ? :