Branch Coverage

blib/lib/PDL/DSP/Windows.pm

Criterion	Covered	Total	%
branch	229	266	86.0

line	true	false	branch
329	1	6	unless $expr
332	59	169	if ($name =~ /$expr/)
369	196	7	if @_
399	247	5	unless ref $_[0]
400	244	8	unless ref $_[0]
401	109	143	unless ref $_[0] eq "HASH"
402	108	144	unless ref $_[0]
415	42	210	if defined $params and not ref $params
419	72	180	$periodic ? :
420	1	251	unless ($windows->{$name})
421	0	1	$periodic ? :
427	1	249	unless $self->{'N'}
430	72	177	$periodic ? :
502	0	14	$n > $opts{'min_bins'} ? :
550	2	5	if ($_ eq 'samples') { }
	2	3	elsif ($_ eq 'modfreqs') { }
561	1	4	wantarray ? :
580	18	29	if defined $self->{'samples'}
616	8	5	if @_
617	3	2	if defined $self->{'modfreqs'}
656	1	28	if (my $name = $window_print_names{$self->{'name'}})
660	6	22	if (my $name = $window_names{$self->{'name'}})
661	1	5	unless $name =~ /^\*/
671	1	5	unless $params
678	6	4	unless $self->{'params'}
679	6	4	unless @params
681	0	4	unless $self->get_param_names
682	0	4	unless @names
693	2	6	$ps ? :
711	0	2	unless eval { do { require PDL::Graphics::Simple } }
713	0	2	UNIVERSAL::isa($_[0], 'PDL::Graphics::Simple') ? :
721	0	2	$pgsw ? :
772	0	6	unless eval { do { require PDL::Graphics::Simple } }
774	0	6	UNIVERSAL::isa($_[0], 'PDL::Graphics::Simple') ? :
775	6	0	@_ ? :
789	1	1	$coord eq 'sample' ? :
	3	2	$coord eq 'nyquist' ? :
801	0	5	$pgsw ? :
902	2	2	unless @_ == 1
908	2	2	unless @_ == 1
914	2	4	unless @_ == 1
921	2	2	unless @_ == 1
928	2	4	unless @_ == 1
935	2	2	unless @_ == 1
942	2	2	unless @_ == 1
949	2	2	unless @_ == 1
956	2	3	unless @_ == 1
963	2	2	unless @_ == 1
970	3	5	unless @_ == 2
977	3	2	unless @_ == 2
984	5	4	unless @_ == 4
991	5	2	unless @_ == 4
998	6	2	unless @_ == 5
1005	6	2	unless @_ == 5
1012	7	2	unless @_ == 6
1020	7	2	unless @_ == 6
1028	2	3	unless @_ == 1
1035	2	2	unless @_ == 1
1042	2	4	unless @_ == 1
1049	2	2	unless @_ == 1
1056	2	4	unless @_ == 1
1063	2	2	unless @_ == 1
1070	2	5	unless @_ == 1
1077	2	2	unless @_ == 1
1084	3	3	unless @_ == 2
1090	3	2	unless @_ == 2
1097	3	5	unless @_ == 2
1107	1	4	if ($N % 2) { }
1140	3	7	unless @_ == 2
1146	3	3	unless @_ == 2
1152	2	4	unless @_ == 1
1158	2	2	unless @_ == 1
1164	0	0	unless @_ == 2
1167	0	0	unless eval { do { require PDL::LinearAlgebra::Special } }
1168	0	0	unless $beta >= 0 and $beta <= $N
1184	0	0	unless @_ == 2
1188	0	0	unless eval { do { require PDL::LinearAlgebra::Special } }
1189	0	0	unless $beta >= 0 and $beta <= $N
1205	2	2	unless @_ == 1
1211	2	2	unless @_ == 1
1217	2	5	unless @_ == 1
1224	2	2	unless @_ == 1
1231	3	5	unless @_ == 2
1237	3	2	unless @_ == 2
1243	2	25	unless @_ == 1
1249	2	2	unless @_ == 1
1255	2	2	unless @_ == 1
1261	2	2	unless @_ == 1
1267	3	2	unless @_ == 2
1273	3	2	unless @_ == 2
1279	2	6	unless @_ == 1
1285	2	2	unless @_ == 1
1291	2	1	unless @_ == 1
1297	3	6	unless @_ == 2
1305	3	2	unless @_ == 2
1312	0	0	unless @_ == 2
1315	0	0	unless eval { do { require PDL::GSLSF::BESSEL } }
1328	0	0	unless @_ == 2
1331	0	0	unless eval { do { require PDL::GSLSF::BESSEL } }
1344	2	4	unless @_ == 1
1350	1	3	if $N % 2
1356	2	2	unless @_ == 1
1362	1	1	unless $N % 2
1368	2	3	unless @_ == 1
1375	2	2	unless @_ == 1
1382	2	2	unless @_ == 1
1390	2	2	unless @_ == 1
1397	2	5	unless @_ == 1
1414	2	2	unless @_ == 1
1431	2	2	unless @_ == 1
1451	3	6	unless @_ == 2
1457	3	2	unless @_ == 2
1463	2	5	unless @_ == 1
1469	2	2	unless @_ == 1
1475	2	5	unless @_ == 1
1481	2	2	unless @_ == 1
1487	3	15	unless @_ == 2
1490	2	13	unless $alpha >= 0 and $alpha <= 1
1492	0	13	if $alpha == 0
1508	3	9	unless @_ == 2
1511	2	7	unless $alpha >= 0 and $alpha <= 1
1513	0	7	if $alpha == 0
1529	2	4	unless @_ == 1
1535	2	2	unless @_ == 1
1934	1	8	if @cin > 7
1946	7	1	if $ex
1974	0	8	unless @_ == 2
1978	7	1	if (ref $x)
1979	0	7	if ref $n
1992	0	1	if ref $n
1993	0	1	abs $x <= 1 ? :
1999	1	8	if @ain > 7
2011	7	1	if $ex