File Coverage

blib/lib/Math/3Space.pm

Criterion	Covered	Total	%
statement	21	24	87.5
branch	1	6	16.6
condition			n/a
subroutine	8	9	88.8
pod	1	1	100.0
total	31	40	77.5

package Math::3Space;

our $VERSION = '0.008'; # VERSION
# ABSTRACT: 3D Coordinate math with an intuitive cross-space mapping API

use strict;
use warnings;
use Carp;

require XSLoader;
XSLoader::load('Math::3Space', $Math::3Space::VERSION);

use overload '""' => sub {
  my @vecs = map [$_[0]->$_->xyz], qw(xv yv zv origin);
  "[\n" . join('', map " [@$_]\n", @vecs) . "]\n";
};


{ package Math::3Space::Exports;
	use Exporter::Extensible -exporter_setup => 1;
	require Math::3Space::Vector;
	require Math::3Space::Projection;
	*vec3= *Math::3Space::Vector::vec3;
	*space= *Math::3Space::space;
	*frustum= *frustum_projection= *Math::3Space::Projection::_frustum;
	*perspective= *perspective_projection= *Math::3Space::Projection::_perspective;
	export qw( vec3 space frustum frustum_projection perspective perspective_projection );
}
sub import { shift; Math::3Space::Exports->import_into(scalar(caller), @_) }

sub parent { croak "read-only attribute" if @_ > 1; $_[0]{parent} }

# Used by XS to avoid linking directly to PDL.  The XS can call out to this perl method to
# perform the PDL operations of vector subtraction, matrix multiplication, and vector addition,
# all of which are overloaded operators and would be tedious to call from XS.
# One single call to this method can operate in parallel on an ndarray of vectors, thanks to
# PDL's broadcasting system, so this only gets called once per call to 'project_inplace'.
sub _pdl_project_inplace {
	$_[0] -= $_[1] if defined $_[1];
	$_[0] .= $_[0] x $_[2];
	$_[0] += $_[3] if defined $_[3];
}

1;

__END__