Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: f7af24d5c4
Fetching contributors…

Cannot retrieve contributors at this time

18 lines (12 sloc) 0.374 kb
use v6;
BEGIN { @*INC.push: '../svg/lib', 'lib' }
use SVG::MatchDumper;
token fruit { banana | apple }
token currency { 'USD' | 'dollar' | 'EUR' | '$' | '' }
my $x = 'just 20,000 dollar per apple';
if $x ~~ m/:s ((\d+) ** ',') <currency> 'per' <fruit> $ / {
svg-dump($/);
} else {
die "no match";
}
# vim: ft=perl6 sw=4 ts=4 expandtab fileencoding=utf8
Jump to Line
Something went wrong with that request. Please try again.