# # 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::Half::W; use strict; use warnings; use base qw{ Games::RailRoad::Node::Half }; # -- PRIVATE METHODS sub _transform_map { my $prefix = 'Games::RailRoad::Node'; return { 'e' => $prefix . '::Straight::E_W', 'ne' => $prefix . '::Straight::NE_W', 'se' => $prefix . '::Straight::SE_W', '-w' => $prefix, }; } 1; __END__ =head1 NAME Games::RailRoad::Node::Half::W - 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