File Coverage

blib/lib/SecondLife/Region.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	33	39	84.6

package SecondLife::Region;
{
  $SecondLife::Region::VERSION = '0.900';
}
# ABSTRACT: Second Life's region identifiers (a name, plus a location in the 2d grid of sims)
use Any::Moose;
use overload q{""} => \&stringify;
use Regexp::Common qw/ RE_num_int /;

has 'name' => ( is=>'rw', isa=>'Str' );
has [qw( x y )] => ( is=> 'rw', isa=>'Int' );

sub BUILDARGS {
    my $self = shift;
    my( $region ) = @_;
    my $num = RE_num_int();
    if ( @_==1 ) {
        if ( $region =~ /^ (.*?) \s* \( ($num), \s* ($num) \) $/xo ) {
            return { name=> $1, x=> $2, y=> $3 };
        }
        else {
            require Carp;
            Carp::croak( "Could not parse a region from $region" );
        }
    }
    elsif ( ! (@_ % 2) ) {
        return { @_ };
    }
    else {
        require Carp;
        Carp::croak( "Invalid region constructor" );
    }
}

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


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

1;


__END__