line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package SVG::Estimate::Role::Pythagorean; |
2
|
|
|
|
|
|
|
$SVG::Estimate::Role::Pythagorean::VERSION = '1.0114'; |
3
|
37
|
|
|
37
|
|
16263
|
use strict; |
|
37
|
|
|
|
|
126
|
|
|
37
|
|
|
|
|
1049
|
|
4
|
37
|
|
|
37
|
|
176
|
use Moo::Role; |
|
37
|
|
|
|
|
61
|
|
|
37
|
|
|
|
|
280
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
=head1 NAME |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
SVG::Estimate::Role::Pythagorean - Use Pythagorean theorem to calc distance |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
=head1 VERSION |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
version 1.0114 |
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
|
181344
|
|
|
181344
|
1
|
239180
|
my ($self, $p1, $p2) = @_; |
24
|
181344
|
|
|
|
|
224907
|
my $dy = $p2->[1] - $p1->[1]; |
25
|
181344
|
|
|
|
|
204839
|
my $dx = $p2->[0] - $p1->[0]; |
26
|
181344
|
|
|
|
|
330670
|
return sqrt(($dx**2)+($dy**2)); |
27
|
|
|
|
|
|
|
} |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
1; |