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 34     34   595 use 5.004;
  34         111  
21 34     34   170 use strict;
  34         58  
  34         953  
22              
23 34     34   167 use vars '$VERSION';
  34         68  
  34         1803  
24             $VERSION = 128;
25              
26 34     34   204 use constant dx_minimum => -1; # NSEW straight only
  34         97  
  34         2087  
27 34     34   205 use constant dx_maximum => 1;
  34         175  
  34         1702  
28 34     34   199 use constant dy_minimum => -1;
  34         277  
  34         1624  
29 34     34   212 use constant dy_maximum => 1;
  34         67  
  34         1579  
30              
31 34     34   239 use constant dsumxy_minimum => -1; # NSEW straight only
  34         231  
  34         1716  
32 34     34   208 use constant dsumxy_maximum => 1;
  34         59  
  34         1804  
33 34     34   196 use constant ddiffxy_minimum => -1;
  34         66  
  34         1635  
34 34     34   215 use constant ddiffxy_maximum => 1;
  34         80  
  34         1679  
35 34     34   196 use constant dir_maximum_dxdy => (0,-1); # South
  34         67  
  34         2032  
36              
37 34     34   216 use constant 1.02;
  34         426  
  34         1314  
38 34         2247 use constant _UNDOCUMENTED__dxdy_list => (1,0, # E
39             0,1, # N
40             -1,0, # W
41 34     34   218 0,-1); # S
  34         114  
42              
43             1;
44             __END__