#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use utf8; | |
use Test::More skip_all => 'Not yet implemented'; | |
use Scalar::Util qw/weaken/; | |
use Data::Dumper; | |
use lib 't/index'; | |
use TestInit; | |
ok(my $tokens = TestInit::tokens('0001'), 'Parse tokens'); | |
ok($tokens->add('Mate', 'Dependency'), 'Add Structure'); | |
my $data = $tokens->to_data->{data}; | |
diag Dumper $data; | |
done_testing; | |
__END__ | |