File Coverage

lib/SVG/Estimate/Path/Lineto.pm
Criterion Covered Total %
statement 17 17 100.0
branch 12 12 100.0
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 31 32 96.8


line stmt bran cond sub pod time code
1             package SVG::Estimate::Path::Lineto;
2             $SVG::Estimate::Path::Lineto::VERSION = '1.0107';
3 4     4   794 use Moo;
  4         5  
  4         17  
4              
5             extends 'SVG::Estimate::Path::Command';
6             with 'SVG::Estimate::Role::Pythagorean';
7              
8             =head1 NAME
9              
10             SVG::Estimate::Path::Lineto - Handles estimating diagonal lines.
11              
12             =head1 VERSION
13              
14             version 1.0107
15              
16             =head1 SYNOPSIS
17              
18             my $line = SVG::Estimate::Path::Lineto->new(
19             transformer => $transform,
20             start_point => [13, 19],
21             point => [45,13],
22             );
23              
24             my $length = $line->length;
25              
26             =head1 INHERITANCE
27              
28             This class extends L and consumes L.
29              
30             =head1 METHODS
31              
32             =head2 new()
33              
34             Constructor.
35              
36             =over
37              
38             =item point
39              
40             An array ref containing two floats that represent a point.
41              
42             =back
43              
44             =cut
45              
46             has point => (
47             is => 'ro',
48             required => 1,
49             );
50              
51             sub BUILDARGS {
52 11     11 0 6952 my ($class, @args) = @_;
53             ##Upgrade to hashref
54 11 100       26 my $args = @args % 2 ? $args[0] : { @args };
55 11         11 my $point = $args->{point};
56 11 100       29 if ($args->{transformer}->has_transforms) {
57 5         14 $point = $args->{transformer}->transform($point);
58             }
59 11         864 $args->{start_point} = $args->{start_point};
60 11         15 $args->{end_point} = $point;
61 11 100       24 $args->{min_x} = $args->{start_point}[0] < $point->[0] ? $args->{start_point}[0] : $point->[0];
62 11 100       26 $args->{min_y} = $args->{start_point}[1] < $point->[1] ? $args->{start_point}[1] : $point->[1];
63 11 100       29 $args->{max_x} = $args->{start_point}[0] > $point->[0] ? $args->{start_point}[0] : $point->[0];
64 11 100       22 $args->{max_y} = $args->{start_point}[1] > $point->[1] ? $args->{start_point}[1] : $point->[1];
65 11         27 $args->{shape_length} = $class->pythagorean($args->{start_point}, $args->{end_point});
66 11         12 $args->{travel_length} = 0;
67 11         167 return $args;
68             }
69              
70             1;