Branch Coverage

blib/lib/PDL/Transform/Cartography.pm

Criterion	Covered	Total	%
branch	59	366	16.1

line	true	false	branch
338	0	0	unless defined $hash
343	0	0	unless defined $grid
344	0	0	if ref $grid eq "PDL"
346	0	0	unless defined $step
347	0	0	if ref $step eq "PDL"
356	0	0	if $two_cols
361	0	0	if $two_cols
364	0	0	if ($two_cols) { }
372	0	0	if (wantarray) { }
431	1	1	unless -e $file
466	0	0	($nd // '') =~ /^n/i ? :
472	0	0	if (-e $file)
476	0	0	if defined $im
478	0	0	unless $found
479	0	0	unless defined $im
525	0	0	if (-e $file)
529	0	0	if defined $im
531	0	0	unless defined $found
533	0	0	unless defined $im
554	0	3	if @_ != 4
557	3	0	$is_single_plane ? :
565	6	0	$_ < 2 ? :
645	25	1	ref $_[-1] eq 'HASH' ? :
646	14	12	!UNIVERSAL::isa($_[-1], 'PDL') ? :
647	0	26	if @_ > 2 or not @_
649	0	26	if grep((!UNIVERSAL::isa($_, "PDL")), @_)
651	0	26	if @_ == 1 and $_[0]->dim(0) != 3
653	0	14	$_[0]->is_inplace ? :
	0	12	$_[1]->is_inplace ? :
	14	12	@_ == 1 ? :
658	24	2	if ($th < 1)
666	2	24	if ($fn)
667	0	2	if $p->ndims > 1
676	1	25	if (defined $orange)
677	0	1	if $p->ndims > 1
678	0	1	if ref $orange ne "ARRAY"
679	0	1	if @$orange != 2
680	0	1	if grep((ref $_ ne "ARRAY"), @$orange)
682	0	1	if grep((@$_ != 2), @$orange)
692	16	10	wantarray ? :
708	0	0	/^mile/ ? :
	0	0	/^Mm/ ? :
	0	0	/^km/ ? :
	0	0	/^kilometer/ ? :
	0	0	/^meter/ ? :
	1	0	/^rad(ian)?s?$/i ? :
	0	1	/^millirad/i ? :
	0	1	/^microrad/i ? :
	0	1	/^min/i ? :
	0	1	/^hour/i ? :
	0	1	/^arcsec/i ? :
	1	1	/^arcmin/i ? :
	1	2	/^deg/i ? :
724	0	0	if not defined $x || $silent and $PDL::debug || $PDL::verbose
747	2	0	unless ref $o eq "HASH"
758	0	2	if ($or->nelem != 2)
765	0	2	if defined $l
766	0	2	if defined $b_angle
779	0	2	if (defined $ou) { }
780	0	0	if (not ref $ou) { }
813	0	0	if ($me->{'params'}{'o'}->slice(0) != 0 or $me->{'params'}{'o'}->slice(1) != 0 or $me->{'params'}{'roll'} != 0)
905	0	8	defined $o->{'conv'} && $o->{'conv'} != 1.0 ? :
918	0	8	if ($d->dim(0) > 2)
938	0	0	if ($d->dim(0) > 3)
943	0	0	if defined $o->{'conv'} and $o->{'conv'} != 1
1079	0	0	if ($m =~ /^b/i) { }
	0	0	elsif ($m =~ /^n/i) { }
	0	0	elsif ($m =~ /^f/i) { }
1106	0	0	if $roll->at(0)
1116	0	0	if ($o->{'m'})
1119	0	0	if $o->{'m'} == 1
1121	0	0	if $o->{'m'} == 2
1122	0	0	if (defined $idx and ref $idx eq "PDL" and $idx->nelem)
1131	0	0	$d0 > 3 ? :
1144	0	0	if $dims[0] > 3
1148	0	0	if $o->{'m'} == 2
1202	0	0	$d->is_inplace ? :
1210	0	0	$d->is_inplace ? :
1277	0	0	if (defined $p->{'c'}) { }
1283	0	0	if $p->{'c'}->nelem == 1
1292	0	0	if ($p->{'std'} == 0) { }
1294	0	0	unless defined $me->{'ounit'}
1297	0	0	unless defined $me->{'ounit'}
1305	0	0	$d->is_inplace ? :
1311	0	0	unless $o->{'c'}[0] == $o->{'c'}[1]
1314	0	0	if defined $o->{'oconv'}
1321	0	0	$d->is_inplace ? :
1323	0	0	if defined $o->{'oconv'}
1426	0	0	unless defined $x->{'ounit'}
1427	0	0	unless ref $x->{'ounit'}
1434	0	0	$subzone < 0 ? :
1447	0	0	$gk ? :
1452	0	0	$zone < 0 ? :
1498	0	0	if ($me->{'params'}{'std'} == 0) { }
1510	0	0	$d->is_inplace ? :
1520	0	0	$d->is_inplace ? :
1564	0	0	$d->is_inplace ? :
1573	0	0	$d->is_inplace ? :
1614	0	0	$p->{'std'} < 0 ? :
	0	0	if $p->{'std'}->nelem == 1
1617	0	0	if approx($p->{'std'}->slice(0), -$p->{'std'}->slice(1))
1676	0	0	if ($p->{'cylindrical'})
1677	0	0	if $PDL::verbose
1693	0	0	$d->is_inplace ? :
1706	0	0	$d->is_inplace ? :
1711	0	0	if $o->{'n'} < 0
1713	0	0	$o->{'n'} < 0 ? :
1793	0	0	if ($p->{'cylindrical'})
1794	0	0	if $PDL::verbose
1809	0	0	$d->is_inplace ? :
1822	0	0	$d->is_inplace ? :
1827	0	0	$o->{'n'} < 0 ? :
1895	0	0	if ($p->{'cylindrical'})
1896	0	0	if $PDL::verbose
1903	0	0	if (defined $p->{'c'}) { }
1908	0	0	if $p->{'c'}->nelem == 1
1912	0	0	if (approx($p->{'std'}->slice('(0)'), $p->{'std'}->slice('(1)'))) { }
1936	0	0	$d->is_inplace ? :
1941	0	0	$o->{'c'}[0] == $o->{'c'}[1] ? :
1953	0	0	$d->is_inplace ? :
1959	0	0	if $o->{'n'} < 0
1960	0	0	$o->{'n'} < 0 ? :
2023	0	0	$d->is_inplace ? :
2041	0	0	$d->is_inplace ? :
2108	0	0	$d->is_inplace ? :
2122	0	0	if ($idx->nelem)
2132	0	0	$d->is_inplace ? :
2145	0	0	if ($idx->nelem)
2208	0	0	$d->is_inplace ? :
2224	0	0	if ($idx->nelem)
2234	0	0	$d->is_inplace ? :
2244	0	0	if ($idx->nelem)
2296	0	0	$d->is_inplace ? :
2310	0	0	if ($idx->nelem)
2320	0	0	$d->is_inplace ? :
2380	0	0	$d->is_inplace ? :
2393	0	0	$d->is_inplace ? :
2482	0	0	if ($m =~ /^b/i) { }
	0	0	elsif ($m =~ /^n/i) { }
	0	0	elsif ($m =~ /^f/i) { }
2498	0	0	if ($p->{'r0'} == 0)
2499	0	0	if $PDL::verbose
2504	0	0	if ($p->{'r0'} == 1)
2505	0	0	if $PDL::verbose
2521	0	0	if $p->{'f'} and not defined $p->{'t'}
2524	0	0	if defined $p->{'t'}
2528	0	0	$d->is_inplace ? :
2541	0	0	if ($o->{'t'})
2546	0	0	$o->{'f'} ? :
	0	0	if $o->{'t'}
2557	0	0	if ($o->{'m'})
2560	0	0	if $o->{'m'} == 1
2562	0	0	if $o->{'m'} == 2
2564	0	0	if (defined $idx and ref $idx eq "PDL" and $idx->nelem)
2576	0	0	$d->is_inplace ? :
2579	0	0	$o->{'m'} == 2 ? :
2582	0	0	$o->{'f'} ? :
	0	0	if $o->{'t'}
2592	0	0	if ($P < 0)
2594	0	0	if $idx->nelem > 0
2613	0	0	if $p->{'f'}
2792	0	1	if $m =~ /^b/i
2793	0	1	if $m =~ /^n/i
2794	0	1	if $m =~ /^f/i
2828	0	1	if (defined $p->{'c'})
2837	0	1	if ($p->{'r0'} < 1)
2889	0	8	$d->is_inplace ? :
2894	0	8	if (abs $o->{'r0'} < 1) { }
2906	8	0	if ($o->{'m'} == 1) { }
	0	0	elsif ($o->{'m'} == 2) { }
2925	8	0	if ($o->{'mag'} == 1.0) { }
2928	0	0	if $PDL::verbose
2938	0	8	if (ref $o->{'f'} eq 'ARRAY') { }
2947	0	0	$idx->nelem ? :
	0	8	if $w->nelem
2950	0	8	if ($idx->nelem)
2968	0	0	$d->is_inplace ? :
2974	0	0	if ($o->{'mag'} != 1)
2991	0	0	if ($o->{'m'} == 2) { }
3010	0	0	if (abs $o->{'r0'} < 1) { }
3022	0	0	if ($o->{'m'} == 1) { }
	0	0	elsif ($o->{'m'} == 2) { }
3036	0	0	if ($idx->nelem)