The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Map::Tube - The great new Map::Tube!

VERSION

Version 0.01

SYNOPSIS

Here is sample map

    1 ----- 2 
  /  \    /   \
 /    \  /     \
0 ----  6 ----- 3
\     /   \    /
 \   /     \  /
   5  ---- 4 /
  /
 /
7
 \
  \
   8 
   

which can be defined as below:

{ 0 => [1,5,6], 1 => [0,2,6], 2 => [1,3,6], 3 => [2,4,6], 4 => [3,5,6], 5 => [0,4,6,7], 6 => [0,1,2,3,4,5], 7 => [5,8], 8 => [7],};

    use Map::Tube;

    my $map   = Map::Tube->new({from => 'Vauxhall', to => 'Euston'});
        my @route = $map->get_shortest_route();
        
    ...
        ...

CONSTRUCTOR

SUBROUTINES/METHODS

_process_node

_initialize_table()

show_map_chart()

get_shortest_route()

_get_name()

AUTHOR

Mohammad S Anwar, <mohammad.anwar at yahoo.com>

BUGS

Please report any bugs or feature requests to bug-map-tube at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Map-Tube. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Map::Tube

You can also look for information at:

LICENSE AND COPYRIGHT

Copyright 2010 Mohammad S Anwar.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.