File Coverage

blib/lib/Imager/LineTrace/Figure.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	6	6	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	31	32	96.8

package Imager::LineTrace::Figure;
use 5.008001;
use strict;
use warnings;

sub new {
    my $pkg = shift;
    my $args_ref = shift;

    my @points = map {
        bless $_, 'Imager::LineTrace::Point';
    } @{$args_ref->{points}};

    my $type = "Undefined";
    if ( $args_ref->{is_closed} ) {
        $type = "Polygon";
    }
    elsif ( 3 <= scalar(@points) ) {
        $type = "Polyline";
    }
    elsif ( 2 <= scalar(@points) ) {
        $type = "Line";
    }
    else {
        $type = "Point";
    }

    bless {
        points    => \@points,
        is_closed => $args_ref->{is_closed},
        value     => $args_ref->{value},
        type      => $type
    }, $pkg;
}

1;
__END__