File Coverage

blib/lib/Math/PlanePath/Base/NSEW.pm
Criterion Covered Total %
statement 41 41 100.0
branch n/a
condition n/a
subroutine 14 14 100.0
pod n/a
total 55 55 100.0


line stmt bran cond sub pod time code
1             # Copyright 2014, 2015, 2016, 2017, 2018, 2019, 2020 Kevin Ryde
2              
3             # This file is part of Math-PlanePath.
4             #
5             # Math-PlanePath is free software; you can redistribute it and/or modify
6             # it under the terms of the GNU General Public License as published by the
7             # Free Software Foundation; either version 3, or (at your option) any later
8             # version.
9             #
10             # Math-PlanePath is distributed in the hope that it will be useful, but
11             # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
12             # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13             # for more details.
14             #
15             # You should have received a copy of the GNU General Public License along
16             # with Math-PlanePath. If not, see .
17              
18              
19             package Math::PlanePath::Base::NSEW;
20 35     35   663 use 5.004;
  35         124  
21 35     35   201 use strict;
  35         75  
  35         978  
22              
23 35     35   227 use vars '$VERSION';
  35         68  
  35         2043  
24             $VERSION = 129;
25              
26 35     35   257 use constant dx_minimum => -1; # NSEW straight only
  35         94  
  35         2261  
27 35     35   222 use constant dx_maximum => 1;
  35         220  
  35         1887  
28 35     35   252 use constant dy_minimum => -1;
  35         325  
  35         1821  
29 35     35   209 use constant dy_maximum => 1;
  35         88  
  35         1832  
30              
31 35     35   231 use constant dsumxy_minimum => -1; # NSEW straight only
  35         67  
  35         1894  
32 35     35   240 use constant dsumxy_maximum => 1;
  35         112  
  35         1810  
33 35     35   214 use constant ddiffxy_minimum => -1;
  35         76  
  35         1829  
34 35     35   230 use constant ddiffxy_maximum => 1;
  35         83  
  35         2215  
35 35     35   209 use constant dir_maximum_dxdy => (0,-1); # South
  35         113  
  35         2173  
36              
37 35     35   227 use constant 1.02;
  35         482  
  35         1545  
38 35         2412 use constant _UNDOCUMENTED__dxdy_list => (1,0, # E
39             0,1, # N
40             -1,0, # W
41 35     35   244 0,-1); # S
  35         123  
42              
43             1;
44             __END__