File Coverage

lib/SVG/Estimate/Role/Pythagorean.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 14 14 100.0


line stmt bran cond sub pod time code
1             package SVG::Estimate::Role::Pythagorean;
2             $SVG::Estimate::Role::Pythagorean::VERSION = '1.0113';
3 35     35   13996 use strict;
  35         76  
  35         918  
4 35     35   142 use Moo::Role;
  35         50  
  35         239  
5              
6             =head1 NAME
7              
8             SVG::Estimate::Role::Pythagorean - Use Pythagorean theorem to calc distance
9              
10             =head1 VERSION
11              
12             version 1.0113
13              
14             =head1 METHODS
15              
16             =head2 pythagorean ( point1, point2 )
17              
18             Calculates the distance between two points.
19              
20             =cut
21              
22             sub pythagorean {
23 180777     180777 1 210976 my ($self, $p1, $p2) = @_;
24 180777         180920 my $dy = $p2->[1] - $p1->[1];
25 180777         170217 my $dx = $p2->[0] - $p1->[0];
26 180777         273747 return sqrt(($dx**2)+($dy**2));
27             }
28              
29              
30             1;