File Coverage

blib/lib/Math/3Space/Projection.pm
Criterion Covered Total %
statement 3 9 33.3
branch 0 4 0.0
condition 0 6 0.0
subroutine 1 4 25.0
pod 2 2 100.0
total 6 25 24.0


line stmt bran cond sub pod time code
1             package Math::3Space::Projection;
2              
3             our $VERSION = '0.008'; # VERSION
4             # ABSTRACT: Object wrapping a 4D projection, for use in OpenGL rendering
5              
6             # All methods handled by XS
7             require Math::3Space;
8              
9 0 0 0 0 1   sub new_frustum { shift if !ref $_[0] && $_[0] eq __PACKAGE__; &_frustum }
  0            
10 0 0 0 0 1   sub new_perspective { shift if !ref $_[0] && $_[0] eq __PACKAGE__; &_perspective }
  0            
11              
12 8     8   61 use overload '""' => sub { "[@{[$_[0]->matrix_colmajor]}]" };
  8     0   17  
  8         100  
  0            
  0            
13              
14             1;
15              
16             __END__