File Coverage

blib/lib/FigAnim/Point.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch			n/a
condition	0	3	0.0
subroutine	2	3	66.6
pod			n/a
total	8	19	42.1

package Point;

use strict;
use warnings;

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self = {};

    $self->{x} = shift;
    $self->{y} = shift;

    bless ($self, $class);
    return $self;
}



1;