#!perl
# pather - some of the synopsis code in an easy to run format
use 5.24.0;
use Data::Dumper;
my $dd =
  Data::Dumper->new( [] )
  ->Terse(1)
  ->Indent(0)
  ->Useqq(1)
  ->Deparse(1)
  ->Quotekeys(0)
  ->Sortkeys(1);
sub dd (@) { $dd->Values( \@_ )->Dump }

use Game::DijkstraMap;
my $dm = Game::DijkstraMap->new( str2map => <<'EOM' );
..........
.@........
..........
..........
..........
..........
..........
..........
........x.
..........
EOM

say "1,1 next ",      dd $dm->next( 1, 1 );
say "1,1 next_best ", dd $dm->next_best( 1, 1 );

$dm->next_m('next_sq');

say "1,1 next ",      dd $dm->next( 1, 1 );
say "1,1 next_best ", dd $dm->next_best( 1, 1 );
