File Coverage

blib/lib/Shape/RegularPolygon.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	11	14	78.5
condition	2	3	66.6
subroutine	10	10	100.0
pod	5	6	83.3
total	68	73	93.1

package Shape::RegularPolygon;

use 5.008006;
use strict;
use warnings;

use Math::Trig;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw();

our $VERSION = '0.01';


sub new {
    my $class = shift;
    my %params = @_;

    my $self = {CenterX => 0,
		CenterY => 0,
		Sides   => 3,
		Radius  => 50,
		Angle   => 0.0,
               };

    foreach my $name (keys %params) {
	$self->{$name} = $params{$name} if exists $self->{$name};
    }

    ($self->{Sides} >= 3) or die "Sides is too small.";

    bless($self, $class);
}

sub center {
    my ($self, $x, $y) = @_;
    return ($self->{CenterX}, $self->{CenterY})
      if !defined $x || !defined $y;
    $self->{CenterX} = $x;
    $self->{CenterY} = $y;
}
sub sides {
    my ($self, $sides) = @_;
    return $self->{Sides} if not defined $sides;

    ($sides >= 3) or die "Sides is too smaill.";
    $self->{Sides} = $sides;
}
sub radius {
    my ($self, $radius) = @_;
    return $self->{Radius} if not defined $radius;
    $self->{Radius} = $radius;
}
sub angle {
    my ($self, $angle) = @_;
    return $self->{Angle} if not defined $angle;
    $self->{Angle} = $angle;
}

sub points {
    my ($self) = @_;

    my @points;

    my $rad = - pi / 2 + $self->{Angle};     # -90 degree
    for (my $i = 0 ; $i < $self->{Sides} ; $i++) {
	push @points, {x => cos($rad) * $self->{Radius} + $self->{CenterX},
		       y => sin($rad) * $self->{Radius} + $self->{CenterY}};

        $rad += pi * 2 / $self->{Sides};
    }

    return @points;
}

1;
__END__