Branch Coverage

blib/lib/Net/OpenSRS/Email_APP.pm
Criterion Covered Total %
branch 0 298 0.0


line true false branch
97 0 0 if (defined $env and not exists $environments{$env})
102 0 0 if (defined $env) { }
114 0 0 if (not defined $$self{'username'} or $$self{'username'} eq '')
117 0 0 if (not defined $$self{'domain'} or $$self{'domain'} eq '')
120 0 0 if (not defined $$self{'password'} or $$self{'password'} eq '')
127 0 0 unless (exists $arg{'Timeout'})
131 0 0 if ($Net::OpenSRS::Email_APP::Debug)
153 0 0 if ($r_code != 0)
162 0 0 if (defined $error)
181 0 0 if ($r_code != 0)
199 0 0 if (defined $level and $level =~ /^\d+$/)
203 0 0 if (defined $debug_cb and ref $debug_cb eq 'CODE')
238 0 0 if (defined $error)
258 0 0 if (defined $error)
275 0 0 if (defined $error)
294 0 0 if (defined $error)
313 0 0 if (defined $error)
332 0 0 if (defined $error)
351 0 0 if (defined $error)
370 0 0 if (defined $error)
390 0 0 if (defined $error)
410 0 0 if (defined $error)
429 0 0 if (defined $error)
449 0 0 if (defined $error)
468 0 0 if (defined $error)
488 0 0 if (defined $error)
507 0 0 if (defined $error)
527 0 0 if (defined $error)
546 0 0 if (defined $error)
565 0 0 if (defined $error)
584 0 0 if (defined $error)
603 0 0 if (defined $error)
623 0 0 if (defined $error)
644 0 0 if (defined $error)
664 0 0 if (defined $error)
682 0 0 if (defined $error)
701 0 0 if (defined $error)
721 0 0 if (defined $error)
741 0 0 if (defined $error)
761 0 0 if (defined $error)
780 0 0 if (defined $error)
802 0 0 if (defined $error)
821 0 0 if (defined $error)
840 0 0 if (defined $error)
859 0 0 if (defined $error)
878 0 0 if (defined $error)
897 0 0 if (defined $error)
916 0 0 if (defined $error)
936 0 0 if (defined $error)
958 0 0 if (defined $error)
978 0 0 if (defined $error)
1000 0 0 if (defined $error)
1020 0 0 if (defined $error)
1042 0 0 if (defined $error)
1061 0 0 if (defined $error)
1080 0 0 if (defined $error)
1099 0 0 if (defined $error)
1123 0 0 if (defined $error)
1142 0 0 if (defined $error)
1162 0 0 if (defined $error)
1183 0 0 if (defined $error)
1202 0 0 if (defined $error)
1221 0 0 if (defined $error)
1241 0 0 if (defined $error)
1261 0 0 if (defined $error)
1281 0 0 if (defined $error)
1301 0 0 if (defined $error)
1322 0 0 if (defined $error)
1343 0 0 if (defined $error)
1364 0 0 if (defined $error)
1383 0 0 if (defined $error)
1404 0 0 if (defined $error)
1426 0 0 if (defined $error)
1440 0 0 if ($Net::OpenSRS::Email_APP::Debug)
1452 0 0 unless $self->_initialise('Environment', $environment, 'User', $username, 'Domain', $domain, 'Password', $password)
1457 0 0 unless ($self->login)
1472 0 0 if (exists $params{'Required'})
1475 0 0 unless (exists $$args{$r} and defined $$args{$r})
1484 0 0 if (exists $params{'Optional'})
1490 0 0 if (exists $params{'Required_Optional'} and $params{'Required_Optional'} > 0)
1494 0 0 if ($actual_count < $expected_count)
1502 0 0 if (exists $$args{$key})
1511 0 0 if ($r_code != 0)
1512 0 0 if ($Net::OpenSRS::Email_APP::Debug)
1522 0 0 if ($r_code != 0)
1524 0 0 if ($Net::OpenSRS::Email_APP::Debug)
1552 0 0 unless ($sel->can_write($Timeout))
1553 0 0 if ($Net::OpenSRS::Email_APP::Debug)
1557 0 0 exists &Errno::ETIMEDOUT ? :
1561 0 0 if ($Net::OpenSRS::Email_APP::Debug)
1567 0 0 if (defined $bytes)
1575 0 0 if (defined $bytes) { }
1580 0 0 exists &Errno::EPIPE ? :
1597 0 0 if ($Net::OpenSRS::Email_APP::Debug > 1)
1601 0 0 unless (defined $b)
1607 0 0 if ($Net::OpenSRS::Email_APP::Debug)
1611 0 0 if ($buf =~ /\r\n\.\r\n/ms)
1617 0 0 if ($Net::OpenSRS::Email_APP::Debug > 1)
1622 0 0 unless ($complete_response)
1638 0 0 if ($status eq 'ER')
1639 0 0 if (@response > 0)
1640 0 0 unless (defined $status_text)
1649 0 0 if (defined $status_text)
1653 0 0 if ($status_code > 0) { }
1667 0 0 if (@response == 1) { }
0 0 elsif (@response > 1) { }
1670 0 0 if (int keys %$row > 0)
1701 0 0 if ($Net::OpenSRS::Email_APP::Debug > 1)
1706 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1710 0 0 if ($within_key and $char ne '=') { }
0 0 elsif ($within_key and $char eq '=') { }
0 0 elsif (not $within_key || $within_value and $char eq '"') { }
0 0 elsif ($within_value and not $seen_quote and $char eq '"') { }
0 0 elsif ($within_value and $seen_quote and $char eq '"') { }
0 0 elsif ($within_value and $seen_quote and $char =~ /\s/) { }
0 0 elsif ($within_value and not $seen_quote) { }
1711 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1715 0 0 unless ($char =~ /\s/)
1720 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1726 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1734 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1741 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1748 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1765 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1772 0 0 if (defined $value and $value ne '' and $within_value and $seen_quote)
1786 0 0 if ($Net::OpenSRS::Email_APP::Debug > 1)
1796 0 0 if ($line_no == 1) { }
0 0 elsif ($line eq ',') { }
1798 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1813 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1817 0 0 if (not $within_value and $char eq '"') { }
0 0 elsif ($within_value and not $seen_quote and $char eq '"') { }
0 0 elsif ($within_value and $seen_quote and $char eq '"') { }
0 0 elsif ($within_value and $seen_quote and $char =~ /\s/) { }
0 0 elsif ($within_value and not $seen_quote) { }
1818 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1826 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1833 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1840 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1850 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1854 0 0 if (exists $keys[$column])
1862 0 0 if ($Net::OpenSRS::Email_APP::Debug > 2)
1869 0 0 if (defined $value and $value ne '' and $within_value and $seen_quote)
1874 0 0 if (exists $keys[$column])
1891 0 0 unless ($sel->can_read($Timeout))
1892 0 0 if ($Net::OpenSRS::Email_APP::Debug)
1897 0 0 exists &Errno::ETIMEDOUT ? :
1903 0 0 if ($bytes == 0)
1905 0 0 exists &Errno::EINTR ? :