Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (11 sloc) 286 Bytes
use v6;
use Data::Dumper;
use XQuery::Parser::Grammar;
say @*ARGS[0];
my $filename = @*ARGS[0];
my $content = slurp $filename;
say ($content ~~ XQueryGrammar);
#say '==== match.perl ======';
#say $d.dumper( $/ );
#my %h = $/;
#say $/<Module><MainModule><Prolog><VarDecl>[0]<external>;