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

Algorithm-Metric-Chessboard documentation Contained in the Algorithm-Metric-Chessboard distribution.

Index

Code Index:

NAME

Top

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

DESCRIPTION

Top

See Algorithm::Metric::Chessboard.

METHODS

Top

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

x and y are mandatory. id 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.

AUTHOR

Top

Kake Pugh (kake@earth.li).

COPYRIGHT

Top

     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.

Algorithm-Metric-Chessboard documentation Contained in the Algorithm-Metric-Chessboard distribution. 
use strict;
package Algorithm::Metric::Chessboard::Wormhole;


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};
}



1;