Games::RailRoad::Node::Cross::E_NW_SE_W - a given type of node...

  Jerome Quelin

# 
# 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_NW_SE_W;
BEGIN {
  $Games::RailRoad::Node::Cross::E_NW_SE_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',
        'nw' => 'se',
        'se' => 'nw',
        'w'  => 'e',
    };
}


sub _transform_map {
    my $prefix = 'Games::RailRoad::Node::';
    return {
        '-e'  => $prefix . 'Switch::NW_SE_W',
        '-nw' => $prefix . 'Switch::E_SE_W',
        '-se' => $prefix . 'Switch::E_NW_W',
        '-w'  => $prefix . 'Switch::E_NW_SE',
    };
}


__PACKAGE__->meta->make_immutable;
1;

__END__