diff options
author | Patrick Spek <p.spek@tyil.nl> | 2019-04-08 19:30:35 +0200 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2019-04-08 19:30:35 +0200 |
commit | 1bd1dff6d449ab221e191679fd8ec516b7cc1d4e (patch) | |
tree | dbb9afa885183300b40e7cd9c29dc892aa4635c3 /lib/URL/Grammar/Actions.pm6 |
Initial commit
Diffstat (limited to 'lib/URL/Grammar/Actions.pm6')
-rw-r--r-- | lib/URL/Grammar/Actions.pm6 | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/lib/URL/Grammar/Actions.pm6 b/lib/URL/Grammar/Actions.pm6 new file mode 100644 index 0000000..2015073 --- /dev/null +++ b/lib/URL/Grammar/Actions.pm6 @@ -0,0 +1,47 @@ +#! /usr/bin/env false + +use v6.d; + +unit class URL::Grammar::Actions; + +method TOP ($/) +{ + make { + scheme => $/<scheme>.made // Str, + username => $/<userinfo><username>.made // Str, + password => $/<userinfo><password>.made // Str, + hostname => $/<host><hostname>.made // Str, + port => $/<host><port>.made // Int, + path => $/<path>.made // [], + query => $/<query>.made // {}, + fragment => $/<fragment>.made // Str, + } +} + +method scheme ($/) { make ~$/ } +method username ($/) { make ~$/ } +method password ($/) { make ~$/ } +method hostname ($/) { make ~$/ } +method port ($/) { make +$/ } +method path ($/) { make $/<part>».Str } +method query ($/) { make $/<part>».made } +method query-part ($/) { make $/<key>.Str => $/<value>.Str } +method fragment ($/) { make ~$/ } + +=begin pod + +=NAME URL::Grammar::Actions +=AUTHOR Patrick Spek <p.spek@tyil.work> +=VERSION 0.1.0 + +=head1 Synopsis + +=head1 Description + +=head1 Examples + +=head1 See also + +=end pod + +# vim: ft=perl6 noet |