File Coverage

blib/lib/SecondLife/Vector.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	32	35	91.4

package SecondLife::Vector;
{
  $SecondLife::Vector::VERSION = '0.900';
}
# ABSTRACT: Second Life's vectors (an x, y and z representing a location );
use Any::Moose;
use Regexp::Common qw/ RE_num_real /;

has [qw(x y z)] => (is=>'rw', isa=>'Num');
use overload q{""} => \&stringify;

sub BUILDARGS {
    my $self = shift;
    if ( @_ == 1 ) {
        my( $vec ) = @_;
        my $num = RE_num_real();
        if ( $vec =~ /^ [(<] \s* ($num), \s* ($num), \s* ($num) \s* [)>] $/xo ) {
            return { x=> $1, y=> $2, z=> $3 };
        }
        else {
            require Carp;
            Carp::croak( "Could not parse a vector from $vec" );
        }
    }
    else {
        return { @_ };
    }
}

sub stringify {
    my $self = shift;
    return "<".join(", ",$self->x,$self->y,$self->z).">";
}

no Any::Moose;
__PACKAGE__->meta->make_immutable;

1;


__END__