# # This file is part of Games-RailRoad # # This software is copyright (c) 2008 by Jerome Quelin. # # This is free software; you can redistribute it and/or modify it under # the same terms as the Perl 5 programming language system itself. # use 5.010; use strict; use warnings; package Games::RailRoad::Node::Cross::E_NE_SW_W; BEGIN { $Games::RailRoad::Node::Cross::E_NE_SW_W::VERSION = '1.101330'; } # ABSTRACT: a given type of node... use Moose; extends qw{ Games::RailRoad::Node::Cross }; # -- private methods sub _next_map { return { 'e' => 'w', 'ne' => 'sw', 'sw' => 'ne', 'w' => 'e', }; } sub _transform_map { my $prefix = 'Games::RailRoad::Node::'; return { '-e' => $prefix . 'Switch::NE_SW_W', '-ne' => $prefix . 'Switch::E_SW_W', '-sw' => $prefix . 'Switch::E_NE_W', '-w' => $prefix . 'Switch::E_NE_SW', }; } __PACKAGE__->meta->make_immutable; 1; =pod =head1 NAME Games::RailRoad::Node::Cross::E_NE_SW_W - a given type of node... =head1 VERSION version 1.101330 =head1 DESCRIPTION This package provides a node object. Refer to L for a description of the various node types. =head1 AUTHOR Jerome Quelin =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2008 by Jerome Quelin. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__