File Coverage

blib/lib/Math/VectorXYZ/2D.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	3	0.0
total	35	42	83.3

package Math::VectorXYZ::2D;
use base Math::VectorXYZ;

our $VERSION = '1.01';

use 5.006;
use strict;
use warnings;
use Carp;

use Exporter 'import';
our @EXPORT = ('Vec');

#----------------------------------------- object constructors ---------------------------------------
#
# Instructions: Provide a list of two numbers (x,y) to the constructor
#
#----------------------------------------------------------------------------------------------------

sub new {

    my $class = shift;

    if ( @_ != 2 ) {
        croak '*** Error; syntax is "$vec = VectorXYZ->new(x,y)" ***';
    }

    return bless [ @_, 0 ], $class;
}

sub Vec {

    if ( @_ != 2 ) {
        croak '*** Error; syntax is "$vec = Vec(x,y)" ***';
    }

    return bless [ @_, 0 ], __PACKAGE__;
}

#----------------------------------------- object methods ---------------------------------------
#
# Inherited from parent class except as given below:
#
#----------------------------------------------------------------------------------------------------

sub as_string {
    my $self = shift;
    return "<" . join(",", @$self[0,1]) . ">"; #
}

1;

__END__