package
GoodMap;
use
5.006;
use
Moo;
use
namespace::autoclean;
has
xml
=> (
is
=>
'ro'
,
default
=>
sub
{ File::Spec->catfile(
't'
,
'good-map.xml'
) });
package
main;
use
5.006;
my
$map
= GoodMap->new;
ok_map(
$map
);
ok_map_functions(
$map
);
my
@routes
= <DATA>;
ok_map_routes(
$map
, \
@routes
);
__DATA__
Route 1|A1|A3|A1,A2,A3