Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created November 26, 2019 20:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/89c6f168f208874990f5d350d1579f31 to your computer and use it in GitHub Desktop.
Save Whateverable/89c6f168f208874990f5d350d1579f31 to your computer and use it in GitHub Desktop.
greppable6
[s|m|rx]:P5
File Code
JNTHN/OpenAPI-Schema-Validate
…/Validate.pm6 :229:
$!rx = EVAL 'rx:P5/' ~ $!pattern ~ '/';
KOORCHIK/LIVR
…/Special.pm6 :31:
my $url-re = rx:P5`^(?:(?:https?)://(?:(?:(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0-9]*[a-zA-Z0-9]|[a…
KOORCHIK/LIVR
…/Special.pm6 :32:
my $anchor-re = rx:P5/#[^#]*$/;
KOORCHIK/LIVR
…/String.pm6 :91:
# $flagged-re = $is-ignore-case ?? rx:i:P5/$re/ !! rx:P5/$re/;
KOORCHIK/LIVR
…/02-rules-registration.t :32:
return 'NOT_ALPHANUMERIC' if $value !~~ rx:P5/^[a-z0-9]+$/;
SKAJI/HTTP-Tinyish
…/Base.pm6 :46:
my $token = rx:P5/[^][\x00-\x1f\x7f()<>@,;:\\"\/?={} \t]+/; #
jaffa4/inistorage
…/Storage.pm :438:
while ( $file ~~ m:P5:c($p)/(?m)^\s*(\w+)\s*\=(.*)|^\s*\[(.+?)\]/) {
perl6/doc
…/5to6-nutshell.pod6 :1062:
next if $line ~~ m:P5/[aeiou]/ ; # Perl 6, using P5 modifier
tony-o/perl6-html-parser-xml
…/S05.html :1483:
<pre> m:P5/(?mi)^(?:[a-z]|\d){1,2}(?=\s)/</pre>
zoffixznet/perl6-Pastebin-Shadowcat
…/Shadowcat.pm6 :22:
my $paste_url = $what ~~ m:P5/\D/ ?? $what !! $!pastebin_url ~ $what;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment