# # This file is part of Games::RailRoad. # Copyright (c) 2008 Jerome Quelin, all rights reserved. # # This program is free software; you can redistribute it and/or modify # it under the same terms as Perl itself. # package Games::RailRoad::Node::Cross::N_NE_S_SW; use strict; use warnings; use base qw{ Games::RailRoad::Node::Cross }; # -- PRIVATE METHODS sub _next_map { return { 'n' => 's', 'ne' => 'sw', 's' => 'n', 'sw' => 'ne', }; } sub _transform_map { my $prefix = 'Games::RailRoad::Node::'; return { '-n' => $prefix . 'Switch::NE_S_SW', '-ne' => $prefix . 'Switch::N_S_SW', '-s' => $prefix . 'Switch::N_NE_SW', '-sw' => $prefix . 'Switch::N_NE_S', }; } 1; __END__ =head1 NAME Games::RailRoad::Node::Cross::N_NE_S_SW - a node object =head1 DESCRIPTION This package provides a node object. Refer to C for a description of the various node types. =head1 METHODS This class implements the following methods as defined in C: =over 4 =item * new =back Refer to the documentation in C to learn more about them. =head1 SEE ALSO L. =head1 AUTHOR Jerome Quelin, C<< >> =head1 COPYRIGHT & LICENSE Copyright (c) 2008 Jerome Quelin, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut