Branch Coverage

blib/lib/Net/Lyskom.pm

Criterion	Covered	Total	%
branch	24	230	10.4

line	true	false	branch
152	13	0	if ($code =~ /^=/) { }
	0	0	elsif ($code =~ /^%%/) { }
	0	0	elsif ($code =~ /^%/) { }
206	0	1	unless $$self{'socket'} = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port)
258	267	1504	if ($r =~ /^(\d+)H(.*)$/) { }
270	0	267	if ($r eq '')
390	0	0	$_ ? :
576	0	1	unless ($arg{'text'})
579	1	0	unless $arg{'start_char'}
580	1	0	unless $arg{'end_char'}
611	0	0	if ($arg{'type'} eq 'bcc') { }
	0	0	elsif ($arg{'type'} eq 'cc') { }
662	0	1	if ($self->is_error(@res)) { }
753	0	1	if ($self->is_error(@res)) { }
776	0	0	if ($self->is_error(@res)) { }
828	0	0	$isdst ? :
872	1	0	$arg{'invisible'} ? :
936	0	0	if ($self->is_error(@res)) { }
961	1	0	$arg{'want_pers'} ? :
	1	0	$arg{'want_conf'} ? :
965	0	1	if ($self->is_error(@res)) { }
989	0	0	$arg{'want_pers'} ? :
	0	0	$arg{'want_conf'} ? :
993	0	0	if ($self->is_error(@res)) { }
1033	0	1	unless $arg{'want_visible'}
1034	0	1	unless $arg{'want_invisible'}
1035	1	0	unless $arg{'active_last'}
1037	1	0	$arg{'want_visible'} ? :
	1	0	$arg{'want_invisible'} ? :
1041	0	1	if ($self->is_error(@res)) { }
1062	0	0	if ($self->is_error(@res)) { }
1111	0	0	if (not $arg{'aux'} or scalar grep({$_->tag == 1;} @{$arg{'aux'};}) == 0)
1125	0	0	if ($arg{'recpt'})
1131	0	0	if ($arg{'cc_recpt'})
1137	0	0	if ($arg{'bcc_recpt'})
1143	0	0	if ($arg{'comm_to'})
1149	0	0	if ($arg{'footn_to'})
1157	0	0	if ($arg{'aux'})
1181	0	1	if ($self->is_error(@res)) { }
1205	0	1	if ($self->is_error(@{$_;})) { }
1213	0	1	if (wantarray) { }
1241	0	0	if ($arg{'delete'})
1249	0	0	if ($arg{'add'})
1294	0	0	if ($self->is_error(@res)) { }
1317	0	0	unless $arg{'first'}
1318	0	0	unless $arg{'no_of_confs'}
1319	0	0	unless $arg{'want_read_texts'}
1321	0	0	$arg{'want_read_texts'} ? :
1326	0	0	if ($self->is_error(@res)) { }
1349	0	1	if ($self->is_error(@res)) { }
1372	0	0	if ($self->is_error(@res)) { }
1389	0	0	$arg{'invitation'} ? :
	0	0	$arg{'passive'} ? :
	0	0	$arg{'secret'} ? :
1407	0	0	if ($self->is_error(@res)) { }
1427	0	0	$arg{'invitation'} ? :
	0	0	$arg{'passive'} ? :
	0	0	$arg{'secret'} ? :
1447	0	0	if ($self->is_error(@res)) { }
1492	0	0	if ($self->is_error(@res)) { }
1538	0	0	unless exists $arg{'conf'}
1539	0	0	unless $arg{'rd_prot'}
1540	0	0	unless $arg{'original'}
1541	0	0	unless $arg{'secret'}
1542	0	0	unless $arg{'letterbox'}
1543	0	0	unless $arg{'allow_anonymous'}
1544	0	0	unless $arg{'forbid_secret'}
1546	0	0	$arg{'rd_prot'} ? :
	0	0	$arg{'original'} ? :
	0	0	$arg{'secret'} ? :
	0	0	$arg{'letterbox'} ? :
	0	0	$arg{'allow_anonymous'} ? :
	0	0	$arg{'forbid_secret'} ? :
1655	0	0	if ($self->is_error(@{$_;})) { }
1663	0	0	if (wantarray) { }
1680	0	0	unless $arg{'conf_pres_conf'}
1681	0	0	unless $arg{'pers_pres_conf'}
1682	0	0	unless $arg{'motd_conf'}
1683	0	0	unless $arg{'kom_news_conf'}
1684	0	0	unless $arg{'motd_of_lyskom'}
1719	0	0	if ($self->is_error(@res)) { }
1755	0	0	if ($arg{'recpt'})
1761	0	0	if ($arg{'cc_recpt'})
1767	0	0	if ($arg{'bcc_recpt'})
1773	0	0	if ($arg{'comm_to'})
1779	0	0	if ($arg{'footn_to'})
1787	0	0	if ($arg{'aux'})
1808	0	0	unless $arg{'name'}
1809	0	0	unless $arg{'rd_prot'}
1810	0	0	unless $arg{'original'}
1811	0	0	unless $arg{'secret'}
1812	0	0	unless $arg{'letterbox'}
1813	0	0	unless $arg{'allow_anonymous'}
1814	0	0	unless $arg{'forbid_secret'}
1815	0	0	unless $arg{'aux'}
1817	0	0	$arg{'rd_prot'} ? :
	0	0	$arg{'original'} ? :
	0	0	$arg{'secret'} ? :
	0	0	$arg{'letterbox'} ? :
	0	0	$arg{'allow_anonymous'} ? :
	0	0	$arg{'forbid_secret'} ? :
1828	0	0	if $_
1845	0	0	unless $arg{'name'}
1846	0	0	unless $arg{'password'}
1847	0	0	unless $arg{'unread_is_secret'}
1848	0	0	unless $arg{'aux'}
1849	0	0	$arg{'unread_is_secret'} ? :
1855	0	0	if $_
1874	0	0	unless $arg{'delete'}
1875	0	0	unless $arg{'add'}
1877	0	0	unless $arg{'conf'}
1897	0	0	unless $arg{'delete'}
1898	0	0	unless $arg{'add'}
1933	0	0	$arg{'unread_is_secret'} ? :
1948	0	0	if ($self->is_error(@res)) { }