Branch Coverage

blib/lib/Venus/Test.pm

Criterion	Covered	Total	%
branch	236	372	63.4

line	true	false	branch
37	0	251	unless $self->file
40	0	1255	unless $self->data->count({"name", $name, "list", undef})
70	101	0	$find ? :
72	3	98	wantarray ? :
80	6	0	$find ? :
82	3	3	wantarray ? :
90	14	0	$find ? :
92	0	14	wantarray ? :
100	6	1	$find ? :
102	4	3	wantarray ? :
110	101	0	$find ? :
112	3	98	wantarray ? :
120	5	1	$find ? :
124	3	3	wantarray ? :
132	66	0	$find ? :
134	7	59	wantarray ? :
142	3318	1	$find ? :
144	165	3154	wantarray ? :
152	48	0	$find ? :
154	30	18	wantarray ? :
162	6	0	$find ? :
164	3	3	wantarray ? :
172	97	0	$find ? :
176	4	93	wantarray ? :
184	59	0	$find ? :
186	3	56	wantarray ? :
194	37	0	$find ? :
196	3	34	wantarray ? :
205	4	1	$find ? :
227	2	3	wantarray ? :
235	5	1	$find ? :
237	3	3	wantarray ? :
245	6	1	$find ? :
247	4	3	wantarray ? :
255	5	0	$find ? :
257	2	3	wantarray ? :
265	117	2	$find ? :
267	116	3	wantarray ? :
275	115	0	$find ? :
277	112	3	wantarray ? :
285	122	0	$find ? :
287	20	102	wantarray ? :
295	85	0	$find ? :
297	2	83	wantarray ? :
305	99	0	$find ? :
307	2	97	wantarray ? :
315	3	1	$find ? :
317	2	2	wantarray ? :
325	116	32	$find ? :
327	146	2	wantarray ? :
335	1464	0	$find ? :
337	1365	99	wantarray ? :
345	101	0	$find ? :
347	4	97	wantarray ? :
355	3	1	$find ? :
359	1	3	if (not @{$data;} and my($name) = $self->collect("name"))
363	2	2	wantarray ? :
393	4	18	unless $from->can("login")
	1	4	if not $from->can("password")
	1	3	unless $from->can("startup")
	0	2	if not $from->can("shutdown")
	1	3	if $_[1]->isa("Example")
	1	6	$self->login && $self->password ? :
397	78	3140	if $dollarat
399	3140	0	wantarray ? :
417	0	96	if $code
431	0	1	if $code
445	0	14	if $code
452	0	14	unless $line
473	0	1	if $code
487	0	96	if $code
501	0	1	if $code
515	0	57	if $code
531	1397	1755	if ($text =~ /.*#\s*given:\s*synopsis/mu)
533	1363	34	unless ($line =~ /#.*#\s*given:\s*synopsis/u)
540	5	0	unless ($line =~ /#.*#\s*given:\s*example-(?:\d+)\s+(?:[\-\w]+)/u)
553	3151	1	if $code
555	3147	1	if $code
567	0	16	if $code
581	0	1	if $code
595	0	91	if $code
609	0	54	if $code
623	0	32	if $code
637	0	1	if $code
651	0	1	if $code
665	0	1	if $code
679	0	1	if $code
693	0	1	if $code
707	0	1	if $code
721	1	97	if $code
735	0	81	if $code
749	0	95	if $code
763	0	0	if $code
777	0	0	if $code
795	0	0	unless ($line =~ /#.*#\s*given:\s*example-(?:\d+)\s+(?:[\-\w]+)/u)
808	96	1	if $code
810	96	1	if $code
822	0	95	if $code
836	0	0	if $code
859	3247	10516	ref $_ ? :
872	1	1	if ref $that ne "Regexp"
887	15782	119386	if $caller[1] =~ qr/@{[quotemeta $self->file];}$/u
896	3	0	$data ? :
928	96	0	length join("\n", @{$data;}) ? :
938	1	0	length join("\n", @{$data;}) ? :
948	14	0	length join("\n", @{$data;}) ? :
958	1	0	length join("\n", @{$data;}) ? :
968	96	0	length join("\n", @{$data;}) ? :
978	1	0	length join("\n", @{$data;}) ? :
988	57	0	length join("\n", @{$data;}) ? :
998	3152	0	length join("\n", @{$data;}) ? :
1008	16	0	length join("\n", @{$data;}) ? :
1018	1	0	length join("\n", @{$data;}) ? :
1028	91	0	length join("\n", @{$data;}) ? :
1038	54	0	length join("\n", @{$data;}) ? :
1048	32	0	length join("\n", @{$data;}) ? :
1058	1	0	length join("\n", @{$data;}) ? :
1068	1	0	length join("\n", @{$data;}) ? :
1078	1	0	length join("\n", @{$data;}) ? :
1088	1	0	length join("\n", @{$data;}) ? :
1098	1	0	length join("\n", @{$data;}) ? :
1108	1	0	length join("\n", @{$data;}) ? :
1120	99	0	length $text ? :
1132	81	0	length join("\n", @{$data;}) ? :
1142	95	0	length join("\n", @{$data;}) ? :
1152	0	0	length join("\n", @{$data;}) ? :
1162	0	0	length join("\n", @{$data;}) ? :
1172	97	0	length join("\n", @{$data;}) ? :
1182	95	0	length join("\n", @{$data;}) ? :
1192	0	0	length join("\n", @{$data;}) ? :
1212	2	0	@data ? :
1226	0	0	$is eq 'ro' ? :
1227	0	0	$pre eq 'req' ? :
1230	0	0	$def ? :
1245	1	1	if $signature
1249	0	2	unless @data
1253	1	1	if ($metadata)
1255	1	0	if ($metadata = eval $metadata)
1256	1	0	if (my $since = $metadata->{'since'})
1268	1	1	if $output[-1] eq ""
1276	0	1	$self->data->count({'list', undef, 'name', 'attributes'}) ? :
1290	0	0	unless @data
1298	0	0	unless @output
1300	0	0	if (@output)
1318	1	0	if (@output)
1332	2	1	@data ? :
1340	2	0	@data ? :
1348	1	1	unless $name
1360	0	6	unless @data
1391	1	0	if (@output)
1406	150	1	@data ? :
1419	0	29	if $signature
1423	0	29	unless @data
1452	1	0	if (@output)
1469	1	1	if $signature
1473	0	2	unless @data
1477	1	1	if ($metadata)
1479	1	0	if ($metadata = eval $metadata)
1480	1	0	if (my $since = $metadata->{'since'})
1492	0	2	if $output[-1] eq ""
1514	1	0	if (@output)
1547	0	2	unless @output
1564	0	2	unless @output
1593	1	1	unless @output
1610	2	1	@data ? :
1627	0	1	if $signature
1631	0	1	unless @data
1663	0	1	if (@output)
1686	111	0	if $signature
1690	0	111	unless @data
1694	111	0	if ($metadata)
1696	111	0	if ($metadata = eval $metadata)
1697	111	0	if (my $since = $metadata->{'since'})
1709	0	111	if $output[-1] eq ""
1731	1	0	if (@output)
1745	3	0	$name ? :
1755	0	1	unless @data
1787	0	1	if (@output)
1807	0	2	if lc $method eq "pdml"
1836	0	1	@data ? :
1851	1	0	@data ? :
1861	0	0	@data ? :
1871	0	1	@data ? :
1906	2	0	@args ? :
1908	1	1	ref $bool eq 'CODE' ? :
1910	2	0	if $bool