# file Pugs::Runtime::Perl6AST
use v6-alpha;

module v6::AST;

use v5;
$INC{"v6/AST.pm"}=1;  # mark v6::AST as "used"
use v6;

sub node( $match, $type ) {
    #say "new node $match $type\n";
    use v5; 
    $type->create( $match )
        if ref $match;   # ???
    use v6;
}

module v6::AST::Base;

use v5; 
$INC{"v6/AST/Base.pm"}=1;  # mark v6::AST::Base as "used"
use Data::Dumper;
sub create {
    #print "create new node $_[0], ", Dumper( $_[1]->data );
    #print " str ", $_[1]->flat, "\n";
    bless \( $_[1]->flat ), $_[0];
}
sub str {
    #print Dumper( ${$_[0]} );
    my $s = ${$_[0]};  
    return $s;
}
use v6;