# # 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::N_NW_S_SE; BEGIN { $Games::RailRoad::Node::Cross::N_NW_S_SE::VERSION = '1.101330'; } # ABSTRACT: a given type of node... use Moose; extends qw{ Games::RailRoad::Node::Cross }; # -- private methods sub _next_map { return { 'n' => 's', 'nw' => 'se', 's' => 'n', 'se' => 'nw', }; } sub _transform_map { my $prefix = 'Games::RailRoad::Node::'; return { '-n' => $prefix . 'Switch::NW_S_SE', '-nw' => $prefix . 'Switch::N_S_SE', '-s' => $prefix . 'Switch::N_NW_SE', '-se' => $prefix . 'Switch::N_NW_S', }; } __PACKAGE__->meta->make_immutable; 1; =pod =head1 NAME Games::RailRoad::Node::Cross::N_NW_S_SE - 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__