File Coverage

blib/lib/Algorithm/Metric/Chessboard/Wormhole.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	6	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	4	25.0
total	31	34	91.1

use strict;
package Algorithm::Metric::Chessboard::Wormhole;

=head1 NAME

Algorithm::Metric::Chessboard::Wormhole - Model a wormhole for Algorithm::Metric::Chessboard.

=head1 DESCRIPTION

See L.

=head1 METHODS

=over

=item B

  my $wormhole =
    Algorithm::Metric::Chessboard::Wormhole->new(
                                                  x => 5,
                                                  y => 30,
                                                  id => "Warp Gate",
                                                );

C and C are mandatory.  C is optional; it's not used
internally but is provided as a space for you to store any id you
like, in case your program is interested in which wormholes were used
in a journey.

=cut

sub new {
    my ($class, %args) = @_;
    my $self = {};
    bless $self, $class;
    $self->x( $args{x} );
    $self->y( $args{y} );
    $self->id( $args{id} );
    return $self;
}

sub x {
    my ($self, $value) = @_;
    $self->{x} = $value if $value;
    return $self->{x};
}

sub y {
    my ($self, $value) = @_;
    $self->{y} = $value if $value;
    return $self->{y};
}

sub id {
    my ($self, $value) = @_;
    $self->{id} = $value if $value;
    return $self->{id};
}


=back

=head1 AUTHOR

Kake Pugh ([e-mail]).

=head1 COPYRIGHT

     Copyright (C) 2004 Kake Pugh.  All Rights Reserved.

This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1;