greppable6

query

~~

result.md

File	Code
perl6-all-modules/_tools/populate.p6	$local ~~ s/ '.git' $ //;
AKIYM/JSON-Hjson …/02-testcases.t :10:	if ($f.basename ~~ /^fail/) {
AKIYM/JSON-Hjson …/02-testcases.t :27:	if $retval.WHAT === Num && $retval.perl ~~ /e0$/ {
AKIYM/JSON-Hjson …/02-testcases.t :30:	if $retval.WHAT === Rat && $retval.perl ~~ /\.0$/ {
ALOREN/App-FindSource …/fs :45:	my @stack = do given $dira.value { .substr(0, $_ ~~ /\/$/ ?? .chars - 1 !! .chars); };
ALOREN/App-FindSource …/Searcher.pm6 :44:	return $!config-path ~~ :e;
ALOREN/App-FindSource …/Searcher.pm6 :62:	if $f ~~ :d {
ALOREN/App-FindSource …/Searcher.pm6 :64:	} elsif $f.basename ~~ $r {
ALOREN/Terminal-Table …/Table.pod :165:	=head3 add-cell($maybestr where * !~~ Str --> Generator)
ALOREN/Terminal-Table …/Table.pod :170:	=head3 add-cell($maybestr where * !~~ Str, Color::String $style --> Generator)
ALOREN/Terminal-Table …/Table.pod :320:	=item :&h-frame ~~ & (@h-frame, Bool $coloured)
ALOREN/Terminal-Table …/Table.pod :322:	=item :&v-frame ~~ & (@v-frame, @contents, Bool $coloured)
ALOREN/Terminal-Table …/Generator.pm6 :42:	if $str-style !~~ "" {
ALOREN/Terminal-Table …/Generator.pm6 :53:	if $str-style !~~ "" {
ALOREN/Terminal-Table …/Generator.pm6 :109:	multi method add-cell($maybestr where * !~~ Str) {
ALOREN/Terminal-Table …/Generator.pm6 :118:	multi method add-cell($maybestr where * !~~ Str, Color::String $style) {
ALOREN/Terminal-Table …/Shader.pm6 :18:	return str ~~ /<color-seq>/;
ALOREN/Terminal-Table …/Shader.pm6 :23:	$style ~~ s/\s+reset//;
ALOREN/Terminal-Table …/VisitorHelper.pm6 :22:	if c ~~ &cb.signature {
ALOREN/Terminal-Table …/VisitorHelper.pm6 :57:	if $s ~~ Line {
ALOREN/Terminal-Table …/self-define-style.p6 :48:	for @($c ~~ m:g/<github>/) {
ASTJ/SQL-NamedPlaceholder …/NamedPlaceholder.pm6 :11:	$query ~~ s:g/($<cq>=(<column-quote>?)$<key>=(<placeholder>)$<cq>\s*<operator>\s*)\?/$0\:$0<key>/;
ASTJ/SQL-NamedPlaceholder …/NamedPlaceholder.pm6 :13:	$query ~~ s:g/\:(<placeholder>)/{
ASTJ/SQL-NamedPlaceholder …/NamedPlaceholder.pm6 :17:	$value ~~ List ?? $value.map({"?"}).join(", ") !! '?'
ATROXAPER/Propius …/README.md :33:	`:&loader! where .signature ~~ :(:$key)` - sub with signature like (:$key).
ATROXAPER/Propius …/README.md :36:	`:&removal-listener where .signature ~~ :(:$key, :$value, :$cause)` -
ATROXAPER/Propius …/README.md :79:	### put(Any:D :$key, :&loader! where .signature ~~ :(:$key))
ATROXAPER/Propius …/Propius.pm6 :82:	for %!nodes.keys.grep: * ~~ any(@types) {
ATROXAPER/Propius …/Propius.pm6 :118:	:&!loader! where .signature ~~ :(:$key),
ATROXAPER/Propius …/Propius.pm6 :119:	:&!removal-listener where .signature ~~ :(:$key, :$value, :$cause) = {},
ATROXAPER/Propius …/Propius.pm6 :184:	multi method put(Any:D :$key, :&loader! where .signature ~~ :(:$key)) {
ATROXAPER/Propius …/Propius.pm6 :321:	:&loader! where .signature ~~ :(:$key),
ATROXAPER/Propius …/Propius.pm6 :322:	:&removal-listener where .signature ~~ :(:$key, :$value, :$cause) = sub {},
ATROXAPER/Propius …/time-based-01-size-eviction.t :13:	@removed.elems === 1 && @removed.pop ~~ %(:$key, :$value, :$cause);
ATROXAPER/Propius …/time-based-02-time-eviction.t :15:	if @removed[$_] ~~ %(:$key, :$value, :$cause) {
AZAWAWI/Inline-Go …/Go.pm6 :98:	if $parameter ~~ / (\w+) \s+ (\*? \w+ (\. \w+)? )? / {
AZAWAWI/MsgPack …/002-version.t :11:	ok $version ~~ Hash, "Version is a four-element hash";
AZAWAWI/MsgPack …/002-version.t :12:	ok $version<major> ~~ Int, "Major is an integer";
AZAWAWI/MsgPack …/002-version.t :13:	ok $version<minor> ~~ Int, "Minor is an integer";
AZAWAWI/MsgPack …/002-version.t :14:	ok $version<string> ~~ Str, "Version is a string";
AZAWAWI/MsgPack …/002-version.t :15:	ok $version<string> ~~ /\d+ '.' \d+ '.' \d+/, "Version matches x.y.z";
AZAWAWI/MsgPack …/100-pack-undef.t :11:	ok MsgPack::pack( $val ) ~~ Blob.new( 0xc0 ), "Undefined is packed correctly";
AZAWAWI/MsgPack …/100-pack-undef.t :15:	ok MsgPack::pack( $var ) ~~ Blob.new( 0xc0 ), "Undefined is packed correctly";
AZAWAWI/MsgPack …/101-pack-bool.t :8:	ok MsgPack::pack( False ) ~~ Blob.new( 0xc2 ), "Boolean False is packed correctly";
AZAWAWI/MsgPack …/101-pack-bool.t :9:	ok MsgPack::pack( True ) ~~ Blob.new( 0xc3 ), "Boolean True is packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :8:	ok MsgPack::pack( 0) ~~ Blob.new(0x00), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :9:	ok MsgPack::pack( 1) ~~ Blob.new(0x01), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :10:	ok MsgPack::pack( 127) ~~ Blob.new(0x7f), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :11:	ok MsgPack::pack( 128) ~~ Blob.new(0xcc, 0x80), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :12:	ok MsgPack::pack( 255) ~~ Blob.new(0xcc, 0xff), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :13:	ok MsgPack::pack( 256) ~~ Blob.new(0xcd, 0x01, 0x00), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :14:	ok MsgPack::pack( 65535) ~~ Blob.new(0xcd, 0xff, 0xff), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :15:	ok MsgPack::pack( 65536) ~~ Blob.new(0xce, 0x00, 0x01, 0x00, 0x00), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :19:	# ok MsgPack::pack( 4294967295) ~~ Blob.new(0xce, 0xff, 0xff, 0xff, 0xff), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :20:	# ok MsgPack::pack( 4294967296) ~~ Blob.new(0xcf, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :21:	# ok MsgPack::pack( 184467440737095) ~~ Blob.new(0xcf, 0x00, 0x00, 0xa7, 0xc5, 0xac, 0x47, 0x1b, 0x47), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :22:	# ok MsgPack::pack( 2**64 -1 ) ~~ Blob.new(0xcf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff), "Positive integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :26:	ok MsgPack::pack( -1 ) ~~ Blob.new(0xff), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :27:	ok MsgPack::pack( -16 ) ~~ Blob.new(0xf0), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :28:	ok MsgPack::pack( -32 ) ~~ Blob.new(0xe0), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :29:	ok MsgPack::pack( -33 ) ~~ Blob.new(0xd0, 0xdf), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :30:	ok MsgPack::pack( -70 ) ~~ Blob.new(0xd0, 0xba), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :31:	ok MsgPack::pack( -127 ) ~~ Blob.new(0xd0, 0x81), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :32:	ok MsgPack::pack( -128 ) ~~ Blob.new(0xd0, 0x80), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :33:	ok MsgPack::pack( -129 ) ~~ Blob.new(0xd1, 0xff, 0x7f), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :34:	ok MsgPack::pack( -32768 ) ~~ Blob.new(0xd1, 0x80, 0x00), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :35:	ok MsgPack::pack( -32769 ) ~~ Blob.new(0xd2, 0xff, 0xff, 0x7f, 0xff), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :38:	ok MsgPack::pack( -2147483648 ) ~~ Blob.new(0xd2, 0x80, 0x00, 0x00, 0x00), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :40:	# ok MsgPack::pack( -2147483649 ) ~~ Blob.new(0xd3, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff), "Negative integer packed correctly";
AZAWAWI/MsgPack …/102-pack-int.t :41:	# ok MsgPack::pack( -9223372036854775808 ) ~~ Blob.new(0xd3, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00), "Negative integer packed correctly";
AZAWAWI/MsgPack …/103-pack-float.t :8:	ok MsgPack::pack( 147.625 ) ~~ Blob.new(203,64,98,116,0,0,0,0,0), "Double packed correcly";
AZAWAWI/MsgPack …/103-pack-float.t :9:	ok MsgPack::pack( -147.625 ) ~~ Blob.new(203,192,98,116,0,0,0,0,0), "Negative double packed correcly";
AZAWAWI/MsgPack …/103-pack-float.t :10:	ok MsgPack::pack( 1.1 ) ~~ Blob.new(0xcb, 0x3f, 0xf1, 0x99, 0x99, 0x99, 0x99, 0x99, 0x9a), "Negative double packed correcly";
AZAWAWI/MsgPack …/103-pack-float.t :12:	ok MsgPack::pack( 147.00 ) ~~ MsgPack::pack( 147 ), "Double with int value packed as int";
AZAWAWI/MsgPack …/104-pack-string.t :8:	ok MsgPack::pack( 'abc') ~~ Blob.new( 0xa3, 0x61, 0x62, 0x63 ), "String packed correctly";
AZAWAWI/MsgPack …/104-pack-string.t :11:	ok MsgPack::pack( 'More than 32 characters, for test' ) ~~ any($blob-v4, $blob-v5), "String packed correctly v4/v5";
AZAWAWI/MsgPack …/104-pack-string.t :12:	ok MsgPack::pack( 'a' x 2**8 ) ~~ Blob.new( 0xda, 0x01, 0x00, 0x61 xx (2**8) ), "String packed correctly";
AZAWAWI/MsgPack …/104-pack-string.t :13:	ok MsgPack::pack( 'a' x 2**16 ) ~~ Blob.new( 0xdb, 0x00, 0x01, 0x00, 0x00, 0x61 xx (2**16) ), "String packed correctly";
AZAWAWI/MsgPack …/105-pack-bin.t :8:	ok MsgPack::pack( Blob.new(1, 2, 3) ) ~~ any(Blob.new( 0xc4, 3, 1, 2, 3 ), Blob.new( 0xa3, 1, 2, 3 )), "Bin packed correctly";
AZAWAWI/MsgPack …/105-pack-bin.t :9:	ok MsgPack::pack( Blob.new(13 xx 2**8) ) ~~ any(Blob.new( 0xc5, 0x01, 0x00, 13 xx (2**8) ), Blob.new( 0xda, 0x01, 0x00, 13 xx (2**8))), "Bin packed correctly";
AZAWAWI/MsgPack …/105-pack-bin.t :11:	#ok MsgPack::pack( Blob.new(14 xx 2**16) ) ~~ Blob.new( 0xc6, 0x00, 0x01, 0x00, 0x00, 14 xx (2**16)), "Bin packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :8:	ok MsgPack::pack( [] ) ~~ Blob.new( 0x90 ), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :9:	ok MsgPack::pack( () ) ~~ Blob.new( 0x90 ), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :10:	ok MsgPack::pack( [[],] ) ~~ Blob.new( 0x91, 0x90 ), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :11:	ok MsgPack::pack( (1,2,3) ) ~~ Blob.new( 0x93, 1,2,3), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :12:	ok MsgPack::pack( (Any, False, True) ) ~~ Blob.new( 0x93, 0xc0,0xc2,0xc3), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :14:	ok MsgPack::pack(["", "a", "bc", "def"]) ~~ Blob.new(148,160,161,97,162,98,99,163,100,101,102), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :15:	ok MsgPack::pack( [1.1,-2.2,3.3,-4.4] ) ~~ Blob.new(148,203,63,241,153,153,153,153,153,154,203,192,1,153,153,153,153,153,154,203,64,10,102,102,102,102,102,102,203,192,17,153,153,153,153,153,154), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :17:	ok MsgPack::pack( [ 1 xx 16 ] ) ~~ Blob.new( 0xdc, 0x00, 0x10, 0x01 xx 16 ), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :18:	ok MsgPack::pack( [ 'a' xx 16 ] ) ~~ Blob.new( 0xdc, 0x00, 0x10, (0xa1, 0x61) xx 16 ), "Array packed correctly";
AZAWAWI/MsgPack …/106-pack-array.t :20:	ok MsgPack::pack( [{},{ a=> 2},3] ) ~~ Blob.new(147,128,129,161,97,2,3), "Array packed correctly";
AZAWAWI/MsgPack …/107-pack-hash.t :8:	ok MsgPack::pack( { key => 'value' } ) ~~ Blob.new(129,163,107,101,121,165,118,97,108,117,101), "hash packed correctly";
AZAWAWI/MsgPack …/107-pack-hash.t :10:	ok MsgPack::pack( { a => Any, b => [ 1.1 ], c => { aa => 3, bb => [] } } ) ~~ Blob.new(131,161,97,192,161,99,130,162,98,98,144,162,97,97,3,161,98,145,203,63,241,153,153,153,153,153,154), "hash packed correctly";
AZAWAWI/MsgPack …/107-pack-hash.t :16:	ok MsgPack::pack( %hh ) ~~ Blob.new(222,0,16,161,56,8,162,49,49,11,161,53,5,161,49,1,162,49,53,15,162,49,52,14,162,49,51,13,162,49,50,12,161,54,6,161,52,4,161,48,0,161,57,9,162,49,48,10,161,55,7,161,51,3,161,50,2),"hash packed correctly";
AZAWAWI/MsgPack …/200-unpack-undef.t :8:	ok MsgPack::unpack( Blob.new( 0xc0 ) ) ~~ Any, "Undefined is packed correctly";
AZAWAWI/MsgPack …/201-unpack-bool.t :9:	ok MsgPack::unpack( Blob.new( 0xc2 ) ) ~~ Bool, "Boolean False is unpacked correctly";
AZAWAWI/MsgPack …/201-unpack-bool.t :11:	ok MsgPack::unpack( Blob.new( 0xc3 ) ) ~~ Bool, "Boolean False is unpacked correctly";
AZAWAWI/MsgPack …/202-unpack-int.t :12:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :16:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :20:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :24:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :28:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :32:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :36:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :40:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :44:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :49:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :53:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :57:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :61:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :65:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :69:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :73:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :77:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :81:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :85:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/202-unpack-int.t :89:	ok $value ~~ Int, "Type is correct";
AZAWAWI/MsgPack …/203-unpack-float.t :13:	ok $value ~~ Numeric, "Type is correct";
AZAWAWI/MsgPack …/203-unpack-float.t :20:	ok $value ~~ Numeric, "Type is correct";
AZAWAWI/MsgPack …/203-unpack-float.t :25:	ok $value ~~ Numeric, "Type is correct";
AZAWAWI/MsgPack …/203-unpack-float.t :32:	ok $value ~~ Numeric, "Type is correct";
AZAWAWI/MsgPack …/204-unpack-string.t :12:	ok $value ~~ Str, "Type is correct";
AZAWAWI/MsgPack …/204-unpack-string.t :21:	ok $value ~~ Str, "Type is correct";
AZAWAWI/MsgPack …/204-unpack-string.t :25:	ok $value ~~ Str, "Type is correct";
AZAWAWI/MsgPack …/204-unpack-string.t :29:	ok $value ~~ Str, "Type is correct";
AZAWAWI/MsgPack …/205-unpack-bin.t :16:	ok $value ~~ Blob.new(1, 2, 3), "Binary unpacked correctly";
AZAWAWI/MsgPack …/205-unpack-bin.t :19:	ok $value ~~ Blob.new(13 xx 2**8), "Binary unpacked correctly";
AZAWAWI/MsgPack …/205-unpack-bin.t :22:	ok $value ~~ Blob.new(14 xx 2**16), "Binary unpacked correctly";
AZAWAWI/MsgPack …/206-unpack-array.t :11:	ok $array ~~ [], "Array unpacked correctly";;
AZAWAWI/MsgPack …/206-unpack-array.t :14:	ok $array ~~ [ 250 xx 16 ], "Array unpacked correctly";
AZAWAWI/MsgPack …/206-unpack-array.t :17:	ok $array ~~ ["", "a", "bc", "def"], "Array unpacked correctly";
BDUGGAN/OAuth2-Client-Google …/get-calendar-data.p6 :18:	$uri ~~ / 'http://localhost:' $<port>=(<[0..9]>+)? $<path>=('/' \N+)? $ / or die "couldn't parse $uri";
BDUGGAN/OAuth2-Client-Google …/get-calendar-data.p6 :49:	if $str ~~ /\r\n\r\n/ {
BDUGGAN/OAuth2-Client-Google …/get-calendar-data.p6 :57:	$in ~~ / 'GET' .* 'code=' $<code>=(<-[&]>+) /;
BDUGGAN/WebService-AWS-S3 …/S3.pm6 :17:	$str ~~ /^ 's3://' $<bucket>=(<-[/]>+) $<path>=(.*) $/ or return;
BDUGGAN/WebService-AWS-S3 …/S3.pm6 :71:	$path = "/$path" unless $path ~~ / ^ '/' /;
BDUGGAN/WebService-AWS-S3 …/S3.pm6 :89:	$path = "/$path" unless $path ~~ / ^ '/' /;
BDUGGAN/WebService-AWS-S3 …/04-live.t :38:	ok $object.last-modified ~~ DateTime, "got a DateTime for last-modified";
BDUGGAN/WebService-AWS-S3 …/04-live.t :39:	ok $object.owner.display-name ~~ Str, "got a Str for owner.display-name";
CHSANCH/Lingua-Stem-Es …/Es.pm6 :22:	if $RV ~~ / [ándo||iéndo||ár||ér||ír] (<$pronoun>) $/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :24:	$word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :25:	$word ~~ s/á/a/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :26:	$word ~~ s/é/e/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :27:	$word ~~ s/í/i/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :28:	$word ~~ s/ó/o/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :29:	$word ~~ s/ú/u/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :30:	$word ~~ s/ü/u/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :34:	elsif $RV ~~ / [ando||iendo||ar||er||ir] (<$pronoun>) $/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :36:	$word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :40:	elsif $word ~~ /uyendo (<$pronoun>) $/ and $RV ~~ /yendo <$pronoun> $/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :42:	$word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :53:	if $R2 ~~ /(amientos||imientos||amiento||imiento||anzas||ismos||ables||ibles||istas
CHSANCH/Lingua-Stem-Es …/Es.pm6 :57:	$word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :60:	elsif $R2 ~~ /(aciones||adores||adoras||adora||antes?||ancias?||ación||ador)$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :62:	if $R2 ~~ /ic$suffix$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :63:	$word ~~ s/ic$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :66:	$word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :70:	elsif $R2 ~~ /(logías?)$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :72:	$word ~~ s/$suffix/log/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :75:	elsif $R2 ~~ /uci(ones||ón)$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :77:	$word ~~ s/uci$suffix$/u/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :80:	elsif $R2 ~~ /(encias?)$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :82:	$word ~~ s/$suffix$/ente/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :85:	elsif $R1 ~~ /amente$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :86:	if $R2 ~~ /(os||ic||ad)amente$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :88:	$word ~~ s/($suffix)amente$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :91:	elsif $R2 ~~ / ( [ at <?before iv> ] ? [iv] ) amente $/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :93:	$word ~~ s/($suffix)amente$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :97:	$word ~~ s/amente$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :101:	elsif $R2 ~~ /mente$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :102:	if $R2 ~~ / ( <[ai]>ble || ante ) mente $/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :104:	$word ~~ s/($suffix)mente$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :107:	$word ~~ s/mente$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :111:	elsif $R2 ~~ /idad(es)?$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :112:	if $R2 ~~ /(abil || ic || iv) idad (es)? $/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :114:	$word ~~ s/(abil||ic||iv) idad (es)? $//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :116:	$word ~~ s/idad(es)?$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :121:	elsif ( $R2 ~~ / (iv<[ao]>s?) $/ ) {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :123:	$R2 ~~ /at$suffix$/
CHSANCH/Lingua-Stem-Es …/Es.pm6 :124:	?? $word ~~ s/at$suffix$//
CHSANCH/Lingua-Stem-Es …/Es.pm6 :125:	!! $word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :130:	elsif $word ~~ /u(yeron||yendo||yamos||yais||ya<[ns]>?||ye<[ns]>?||yo||yó)$/ and
CHSANCH/Lingua-Stem-Es …/Es.pm6 :131:	$RV ~~ /(yeron||yendo||yamos||yais||ya<[ns]>?||ye<[ns]>?||yo||yó)$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :132:	$word ~~ s/u(yeron||yendo||yamos||yais||ya<[ns]>?||ye<[ns]>?||yo||yó)$/u/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :136:	elsif $RV ~~ /(iésemos||iéramos||iríamos||eríamos||aríamos||ásemos||áramos||ábamos
CHSANCH/Lingua-Stem-Es …/Es.pm6 :146:	$word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :149:	elsif $RV ~~ /(emos||éis||en||es)$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :151:	$word ~~ /gu$suffix$/
CHSANCH/Lingua-Stem-Es …/Es.pm6 :152:	?? $word ~~ s/gu$suffix$/g/
CHSANCH/Lingua-Stem-Es …/Es.pm6 :153:	!! $word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :159:	if $RV ~~ /(os || <[aoáíó]>)$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :161:	$word ~~ s/$suffix$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :164:	elsif $RV ~~ /<[eé]>$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :165:	if $word ~~ /gu<[eé]>$/ and $RV ~~ /u<[eé]>$/ {
CHSANCH/Lingua-Stem-Es …/Es.pm6 :166:	$word ~~ s/gu<[eé]>$/g/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :170:	$word ~~ s/<[eé]>$//;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :176:	$word ~~ s:g/á/a/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :177:	$word ~~ s:g/é/e/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :178:	$word ~~ s:g/í/i/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :179:	$word ~~ s:g/ó/o/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :180:	$word ~~ s:g/ú/u/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :188:	$R1 = $0.Str if $word ~~ / ^ .*? <$rvowels> <$rconsonants> (.*) $/;
CHSANCH/Lingua-Stem-Es …/Es.pm6 :194:	$R2 = $0.Str if $word ~~ / ^ .*? <$rvowels> <$rconsonants> .*? <$rvowels>
CHSANCH/Lingua-Stopwords …/Stopwords.pm6 :11:	if ::($module-name) ~~ Failure {
CONO/Supply-Timeout …/01-class.t :11:	ok($sup.timeout ~~ Numeric, 'Method timeout returns Numeric');
CTILMES/DB-Pg …/Geometric.pm6 :23:	$value ~~ /^ <point> $/
CTILMES/DB-Pg …/Geometric.pm6 :30:	$value ~~ /^ '{' <a=float> ',' <b=float> ',' <c=float> '}' $/
CTILMES/DB-Pg …/Geometric.pm6 :37:	$value ~~ /^ '[' <p1=point> ',' <p2=point> ']' $/
CTILMES/DB-Pg …/Geometric.pm6 :47:	$value ~~ /^ <c1=point> ',' <c2=point> $/
CTILMES/DB-Pg …/Geometric.pm6 :57:	$value ~~ /^ ('[' | '(') <point>+ % ',' (']' | ')') $/
CTILMES/DB-Pg …/Geometric.pm6 :67:	$value ~~ /^ '(' <point>+ % ',' ')' $/
CTILMES/DB-Pg …/Geometric.pm6 :75:	$value ~~ /^ '<' <point> ',' <r=float> '>' $/
CTILMES/LibGit2 …/Submodule.pm6 :12:	where .uc ~~ 'UNSPECIFIED'|'NONE'|'UNTRACKED'|'DIRTY'|'ALL';
CTILMES/LibGit2 …/11.tree.t :21:	ok $entry.name ~~ /@files/, "name - $entry.name()";
CTILMES/LibGit2 …/20-status.t :46:	ok .path ~~ /(b|c) file/, 'path';
CTILMES/Munge …/unmunge.p6 :17:	if $!.code ~~ EMUNGE_BAD_CRED
DMAESTRO/SQL-Lexer …/compound_statement.t :40:	ok @compounds[0].value.Str ~~ / ^ BEGIN .* && .* END $ /,
ELIZABETH/Hash-Util …/Util.pm6 :192:	lock_hash_recurse($_) if $_ ~~ Associative for the-hash.values;
ELIZABETH/Hash-Util …/Util.pm6 :203:	unlock_hash_recurse($_) if $_ ~~ LockedHash for the-hash.values;
ELIZABETH/List-Util …/uniq.t :106:	"a a b" ~~ m/(.) ' ' (.) ' ' (.)/;
ELIZABETH/List-Util …/uniq.t :109:	"1 1 2" ~~ m/(.) ' ' (.) ' ' (.)/;
ELIZABETH/P5-X …/P5-X.pm6 :11:	$result ~~ Failure
ELIZABETH/P5-X …/P5-X.pm6 :16:	sub chain($s, $i) { $s ~~ Int:D ?? $s && io($s.subject, $i) !! $s }
ELIZABETH/P5each …/P5each.pm6 :15:	%hash ~~ EachHash
ELIZABETH/P5each …/P5each.pm6 :30:	@array ~~ EachArray
ELIZABETH/P5getgrnam …/getgrnam.t :11:	ok $groupname ~~ m/^ \w+ /, 'did we get a name';
ELIZABETH/P5getgrnam …/getgrnam.t :16:	ok @result[3] ~~ Str, 'did we get the members by gid';
ELIZABETH/P5getgrnam …/getgrnam.t :22:	ok @result[3] ~~ Str, 'did we get the members by name';
ELIZABETH/P5getpwnam …/getpwnam.t :12:	ok $username ~~ m/^ \w+ /, 'did we get a name';
ELIZABETH/P5getpwnam …/getpwnam.t :19:	ok $username ~~ m/^ \w+ /, 'did we get a name';
ELIZABETH/P5hex …/P5hex.pm6 :7:	$s ~~ / ^ <[a..f A..F 0..9]>* $ /
ELIZABETH/P5hex …/P5hex.pm6 :16:	if $s ~~ / \D / { # something non-numeric there
ELIZABETH/P5hex …/P5hex.pm6 :17:	with $s ~~ / ^0 <[xob]> \d+ $/ { # standard 0x string
ELIZABETH/P5hex …/P5hex.pm6 :21:	with $s ~~ /^ \d+ / { # numeric with trailing
ELIZABETH/P5localtime …/01-basic.t :36:	ok $t ~~ m/^ \w\w\w \s \w\w\w \s \d\d \s \d\d\:\d\d\:\d\d \s \d\d\d\d $/,
ELIZABETH/P5oct …/P5oct.pm6 :8:	if $s ~~ / \D / { # something non-numeric there
ELIZABETH/P5oct …/P5oct.pm6 :9:	with $s ~~ / ^0 <[xob]> \d+ $/ { # standard 0x string
ELIZABETH/P5oct …/P5oct.pm6 :13:	with $s ~~ /^ \d+ / { # numeric with trailing
ELIZABETH/P5pack …/P5pack.pm6 :45:	sub is-whitespace($s) { $s eq " " || ?($s ~~ / \s /) }
ELIZABETH/P5pack …/P5pack.pm6 :106:	fill($data ~~ Str ?? $data.encode !! $data,0,0)
ELIZABETH/P5ref …/P5ref.pm6 :7:	a ~~ Array
ELIZABETH/P5ref …/P5ref.pm6 :9:	!! a ~~ Hash
ELIZABETH/P5ref …/P5ref.pm6 :11:	!! a ~~ Regex
ELIZABETH/P5ref …/P5ref.pm6 :13:	!! a ~~ Callable
ELIZABETH/P5ref …/P5ref.pm6 :15:	!! a ~~ Version
ELIZABETH/Scalar-Util …/Util.pm6 :19:	so a ~~ any(IntStr,NumStr,RatStr,ComplexStr)
ELIZABETH/Scalar-Util …/Util.pm6 :30:	a ~~ Positional
ELIZABETH/Scalar-Util …/Util.pm6 :32:	!! a ~~ Associative
ELIZABETH/Scalar-Util …/Util.pm6 :36:	our sub isvstring(\a) is export(:SUPPORTED) { a ~~ Version }
ELIZABETH/Scalar-Util …/refaddr.t :10:	ok refaddr(42) ~~ Int, 'does refaddr give an Int';
ELIZABETH/Sub-Name …/01-basic.t :8:	ok $a ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :12:	ok $b ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :16:	ok $c ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :21:	ok $a ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :25:	ok $b ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :29:	ok $c ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :36:	ok $a ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :40:	ok $b ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :44:	ok $c ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :51:	ok $d ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Name …/01-basic.t :55:	ok $e ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :8:	ok $a ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :12:	ok $b ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :16:	ok $c ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :21:	ok $a ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :25:	ok $b ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :29:	ok $c ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :36:	ok $a ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :40:	ok $b ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :44:	ok $c ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :51:	ok $d ~~ Callable, 'did we get a Callable back?';
ELIZABETH/Sub-Util …/set_subname.t :55:	ok $e ~~ Callable, 'did we get a Callable back?';
FISCHER/Lingua-Palindrome …/Palindrome.pm6 :93:	sub check-sequence(@sequence where {$_.all ~~ Str} --> Bool) {
FISCHER/Lingua-Palindrome …/Palindrome.pm6 :101:	$s ~~ s:g/<alpha>// unless $alpha;
FISCHER/Lingua-Palindrome …/Palindrome.pm6 :102:	$s ~~ s:g/<digit>// unless $digit;
FISCHER/Lingua-Palindrome …/Palindrome.pm6 :103:	$s ~~ s:g/<punct>// unless $punct;
FISCHER/Lingua-Palindrome …/Palindrome.pm6 :104:	$s ~~ s:g/\s// unless $space;
FRITH/Archive-Libarchive-Raw …/archive.p6 :34:	*@filei where { $_.all ~~ .IO.f || die "One of ( $_ ) not found" } )
FRITH/Archive-Libarchive-Raw …/extract-gz.p6 :63:	$decompressed ~~ s/\.gz//;
FRITH/Archive-Libarchive-Raw …/extract-gz.p6 :91:	sub MAIN(:$file! where { .IO.f && $_ ~~ /\.gz$/ // die "file '$file' not found or not a gzip file" })
FRITH/Archive-Libarchive-Raw …/targzipuuencode.p6 :33:	*@filei where { $_.all ~~ .IO.f || die "One of ( $_ ) not found" } )
FRITH/Archive-Libarchive …/archive-nofilter.p6 :9:	*@filei where { $_.all ~~ .IO.f || die "One of ( $_ ) not found" } )
FRITH/Archive-Libarchive …/archive.p6 :7:	*@filei where { $_.all ~~ .IO.f || die "One of ( $_ ) not found" } )
FRITH/Archive-Libarchive …/Libarchive.pm6 :36:	if $operation ~~ LibarchiveWrite|LibarchiveOverwrite {
FRITH/Archive-Libarchive …/Libarchive.pm6 :207:	submethod BUILD(LibarchiveOp :$operation!, Any :$file?, Int :$flags?, Str :$format?, :@filters? where .all ~~ Str)
FRITH/Archive-Libarchive …/Libarchive.pm6 :210:	if $!operation ~~ LibarchiveRead|LibarchiveExtract {
FRITH/Archive-Libarchive …/Libarchive.pm6 :223:	} elsif $!operation ~~ LibarchiveWrite|LibarchiveOverwrite {
FRITH/Archive-Libarchive …/Libarchive.pm6 :245:	multi method open(Str $filename! where ! .IO.f, Int :$size? = 10240, Str :$format?, :@filters? where .all ~~ Str)
FRITH/Archive-Libarchive …/Libarchive.pm6 :247:	if $!operation ~~ LibarchiveWrite|LibarchiveOverwrite {
FRITH/Archive-Libarchive …/Libarchive.pm6 :270:	multi method open(Str $filename! where .IO.f, Int :$size? = 10240, Str :$format?, :@filters? where .all ~~ Str)
FRITH/Archive-Libarchive …/Libarchive.pm6 :272:	if $!operation ~~ LibarchiveRead|LibarchiveExtract {
FRITH/Archive-Libarchive …/Libarchive.pm6 :321:	} elsif $!operation ~~ LibarchiveWrite|LibarchiveOverwrite {
FRITH/Image-QRCode …/02-create.t :20:	ok ($qrinput.defined && $qrinput.WHAT ~~ QRinput), 'QRinput_new';
FRITH/Image-QRCode …/02-create.t :32:	ok ($qrinput2.defined && $qrinput2.WHAT ~~ QRinput), 'QRinput_new2';
FRITH/Image-QRCode …/02-create.t :35:	if $version ~~ v3.2.1+ {
FRITH/Image-QRCode …/02-create.t :37:	ok ($qrinputMQR.defined && $qrinputMQR.WHAT ~~ QRinput), 'QRinput_newMQR';
FRITH/Image-QRCode …/03-data.t :29:	if $version ~~ v3.2.1+ {
FRITH/Image-QRCode …/03-data.t :48:	if $version ~~ v3.2.1+ {
FRITH/Image-QRCode …/03-data.t :62:	if $version ~~ v3.2.1+ {
FRITH/Image-QRCode …/03-data.t :75:	ok ($qrstruct.defined && $qrstruct.WHAT ~~ QRinput_Struct), 'QRinput_splitQRinputToStruct';
FRITH/Image-QRCode …/03-data.t :80:	ok ($qrstruct.defined && $qrstruct.WHAT ~~ QRinput_Struct), 'QRinput_Struct_new';
FRITH/Image-QRCode …/03-data.t :85:	ok ($qrlist.defined && $qrlist.WHAT ~~ QRcode_List), 'call QRcode_encodeInputStructured';
FRITH/Image-QRCode …/03-data.t :107:	ok ($qrlist.defined && $qrlist.WHAT ~~ QRcode_List), 'call QRcode_encodeStringStructured';
FRITH/Image-QRCode …/03-data.t :129:	ok ($qrlist.defined && $qrlist.WHAT ~~ QRcode_List), 'call QRcode_encodeString8bitStructured';
FRITH/Image-QRCode …/03-data.t :151:	ok ($qrlist.defined && $qrlist.WHAT ~~ QRcode_List), 'call QRcode_encodeDataStructured';
FRITH/Image-QRCode …/04-interface.t :9:	ok ($qrcode.defined && $qrcode.WHAT ~~ Image::QRCode), 'new object';
HANENKAMP/ArrayHash …/ArrayHash.pm6 :151:	@!array[$pos + 1 .. @!array.end].first(want($key), :k) ~~ Int
HANENKAMP/ArrayHash …/ArrayHash.pm6 :236:	if $npos ~~ Int {
HANENKAMP/ArrayHash …/ArrayHash.pm6 :295:	POST { @!array.first(want($key), :k) ~~ Nil }
HANENKAMP/ArrayHash …/ArrayHash.pm6 :309:	POST { @!array[$pos] ~~ Pair:U }
HANENKAMP/ArrayHash …/ArrayHash.pm6 :312:	@!array.first(want($pair.key), :k) ~~ Nil
HANENKAMP/ArrayHash …/ArrayHash.pm6 :317:	(@!array.first(want($pair.key), :k) ~~ Int
HANENKAMP/ArrayHash …/ArrayHash.pm6 :319:	^^ (@!array.first(want($pair.key), :k) ~~ Nil
HANENKAMP/ArrayHash …/ArrayHash.pm6 :492:	@repl.push($pos ~~ Int ?? Pair !! $p);
HANENKAMP/ArrayHash …/array-hash.t :99:	ok @array[.[1]] ~~ Pair:U, 'array 1 nullified';
HANENKAMP/ArrayHash …/array-hash.t :111:	ok @array[0] ~~ Pair:U, 'array 0 nullified';
HANENKAMP/ArrayHash …/array-hash.t :117:	ok @array[.[1]] ~~ Pair:U, 'array 1 nullified';
HANENKAMP/ArrayHash …/array-hash.t :129:	ok @array[0] ~~ Pair:U, 'array 0 nullified';
HANENKAMP/DOM-Tiny …/README.md :675:	If the current node is the root (i.e., `$dom.type ~~ Root`), this operation is a no-op. It will silently do nothing.
HANENKAMP/DOM-Tiny …/README.md :683:	If this is the root or a tag (i.e., `$dom.type ~~ Root|Tag`), the given markup will be parsed and appended to the end of the root's or tag'…
HANENKAMP/DOM-Tiny …/Tiny.pm6 :733:	If the current node is the root (i.e., C<$dom.type ~~ Root>), this
HANENKAMP/DOM-Tiny …/Tiny.pm6 :742:	If this is the root or a tag (i.e., C<$dom.type ~~ Root|Tag>), the given markup
HANENKAMP/DOM-Tiny …/Tiny.pm6 :744:	is a text node (i.e., C<$dom.type ~~ TextNode>), then the markup will be
HANENKAMP/DOM-Tiny …/Tiny.pm6 :826:	return Nil unless $!tree ~~ HasChildren;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :834:	return False unless $!tree ~~ HasChildren;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :839:	return Nil unless $!tree ~~ HasChildren;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :845:	return Nil unless $!tree ~~ Tag;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :850:	return False unless $!tree ~~ Tag;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :855:	return Nil unless $!tree ~~ Tag;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :890:	if $!tree ~~ DocumentNode {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :900:	if $!tree ~~ HasChildren {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :906:	elsif $!tree ~~ TextNode {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :927:	return Str unless $!tree ~~ Tag;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :932:	return self unless $!tree ~~ Tag;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :938:	return self unless $!tree ~~ Tag;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :946:	if $!tree ~~ Tag;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :951:	$!tree ~~ Tag ?? $!tree.attr !! {};
HANENKAMP/DOM-Tiny …/Tiny.pm6 :956:	return () unless $!tree ~~ HasChildren;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :961:	return () unless $!tree ~~ HasChildren;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :974:	if $.type ~~ HasChildren {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :995:	return () unless $!tree ~~ HasChildren;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1013:	return Nil if $!tree !~~ Tag;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1016:	my $ns = $!tree.tag ~~ /^ (.*?) ':' / ?? "xmlns:$/[0]" !! Str;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1021:	return $value if $name ~~ $ns;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1041:	if $!tree ~~ Root {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1057:	if $!tree ~~ DocumentNode {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1066:	if $!tree ~~ HasChildren {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1071:	elsif $!tree ~~ TextNode {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1096:	if $!tree ~~ Root {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1107:	$!tree ~~ Root ?? self !! self.new(:tree($!tree.root), :$!xml);
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1111:	if $!tree ~~ Tag {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1120:	$!tree ~~ Tag ?? $!tree.tag !! Nil
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1124:	if $!tree ~~ Tag {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1163:	return self if $!tree ~~ Root;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1168:	_wrap($!tree, $!tree.children, $html, :$xml) if $!tree ~~ HasChildren;
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1205:	my %split = do if $!tree ~~ DocumentNode {
HANENKAMP/DOM-Tiny …/Tiny.pm6 :1227:	return if $innermost ~~ Root;
HANENKAMP/DOM-Tiny …/CSS.pm6 :36:	return False unless $current.parent ~~ $test;
HANENKAMP/DOM-Tiny …/CSS.pm6 :44:	return False unless $previous-sibling ~~ $test;
HANENKAMP/DOM-Tiny …/CSS.pm6 :62:	return False unless $current ~~ @!combine[0];
HANENKAMP/DOM-Tiny …/CSS.pm6 :79:	$current.attr ~~ $!name
HANENKAMP/DOM-Tiny …/CSS.pm6 :109:	$current.attr{ $name } ~~ $.value-regex;
HANENKAMP/DOM-Tiny …/CSS.pm6 :120:	$current ~~ Tag && (
HANENKAMP/DOM-Tiny …/CSS.pm6 :121:	$current.tag ~~ $!name | / [ ^ | ':' ] "$unescaped" $/
HANENKAMP/DOM-Tiny …/CSS.pm6 :134:	$current ~~ none(|@!groups);
HANENKAMP/DOM-Tiny …/CSS.pm6 :197:	$current.attr ~~ / ^ [ checked | selected ] $ /
HANENKAMP/DOM-Tiny …/CSS.pm6 :205:	$current.parent ~~ Root
HANENKAMP/DOM-Tiny …/CSS.pm6 :419:	?($!tree ~~ _compile($css));
HANENKAMP/DOM-Tiny …/CSS.pm6 :423:	return () unless $!tree ~~ HasChildren;
HANENKAMP/DOM-Tiny …/CSS.pm6 :431:	take $current if $current ~~ $matcher;
HANENKAMP/DOM-Tiny …/Entities.pm6 :8:	next unless $line ~~ /^ (\S+) \s+ 'U+' (\S+) [ \s+ 'U+' (\S+) ]?/;
HANENKAMP/DOM-Tiny …/HTML.pm6 :169:	take $parent if $parent ~~ DocumentNode || $root;
HANENKAMP/DOM-Tiny …/HTML.pm6 :171:	} while $parent ~~ DocumentNode &&
HANENKAMP/DOM-Tiny …/HTML.pm6 :209:	if $node.WHAT ~~ Tag {
HANENKAMP/DOM-Tiny …/HTML.pm6 :246:	if @!children[$i] ~~ Text && $next ~~ Text {
HANENKAMP/DOM-Tiny …/HTML.pm6 :261:	next unless $node ~~ TextNode;
HANENKAMP/DOM-Tiny …/HTML.pm6 :265:	if $previous-chunk ~~ / \S $ / && $chunk ~~ /^ <-[ . ! ? , ; : \s ]>+ / {
HANENKAMP/DOM-Tiny …/HTML.pm6 :393:	$.parent ~~ Tag
HANENKAMP/DOM-Tiny …/HTML.pm6 :414:	return if $next ~~ Root;
HANENKAMP/DOM-Tiny …/HTML.pm6 :431:	if !$xml && $current !~~ Root {
HANENKAMP/DOM-Tiny …/HTML.pm6 :440:	while $parent !~~ Root && $scope ∌ $parent.tag {
HANENKAMP/DOM-Tiny …/HTML.pm6 :668:	$xml = ?($html ~~ /^ \s* '<?xml' /) without $xml;
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :11:	cmp-ok $dom.tree, '~~', Root, 'right type';
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :12:	cmp-ok $dom.tree.children[0], '~~', Tag, 'right type';
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :16:	cmp-ok $dom.tree.children[0].children[0], '~~', Tag, 'right type';
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :20:	cmp-ok $dom.tree.children[0].children[0].children[0], '~~', Text, 'right type';
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :23:	cmp-ok $dom.tree.children[0].children[0].children[1], '~~', Tag, 'right type';
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :27:	cmp-ok $dom.tree.children[0].children[0].children[1].children[0], '~~', Text, 'right type';
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :30:	cmp-ok $dom.tree.children[0].children[0].children[1].children[1], '~~', Tag, 'right type';
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :34:	cmp-ok $dom.tree.children[0].children[0].children[1].children[2], '~~', Text, 'right type';
HANENKAMP/DOM-Tiny …/014-dom-simple-nesting-with-healing.t :37:	cmp-ok $dom.tree.children[0].children[1], '~~', Text, 'right type';
HANENKAMP/DOM-Tiny …/017-dom-nodes.t :61:	is $dom.child-nodes.grep({ .type ~~ PI })».remove.first.type, Root, 'right type';
HANENKAMP/HTTP-Headers …/README.md :257:	if $name ~~ MyAppHeader {
HANENKAMP/HTTP-Headers …/Headers.pm6 :189:	method is-text { ?(self.primary ~~ /^ "text/" /) } #= True if the Content-Type is text/*
HANENKAMP/HTTP-Headers …/Headers.pm6 :192:	?(self.primary ~~ any(<
HANENKAMP/HTTP-Headers …/Headers.pm6 :198:	?(self.primary ~~ any(<
HANENKAMP/HTTP-Headers …/Headers.pm6 :286:	if $name ~~ Str {
HANENKAMP/HTTP-Headers …/Headers.pm6 :292:	if $std ~~ HTTP::Header::Standard::Name::Content-Type {
HANENKAMP/HTTP-Headers …/Headers.pod :248:	if $name ~~ MyAppHeader {
HANENKAMP/HTTP-Headers …/extending.t :14:	if $name ~~ MyAppHeader {
HANENKAMP/HTTP-Request-FormData …/FormData.pm6 :169:	$blob-value .= encode unless $blob-value ~~ Blob;
HANENKAMP/Hash-MultiValue …/MultiValue.pm6 :405:	elsif $v ~~ Pair {
HANENKAMP/IO-Glob …/README.md :21:	if "some-string" ~~ glob("some-*") { say "match string!" }
HANENKAMP/IO-Glob …/README.md :22:	if "some/path.txt".IO ~~ glob("some/*.txt") { say "match path!" }
HANENKAMP/IO-Glob …/README.md :151:	say "String" if "helloy/world" ~~ $glob; # outputs> String
HANENKAMP/IO-Glob …/README.md :152:	say "Path" if "helloy/world".IO ~~ $glob; # outputs nothing, no match
HANENKAMP/IO-Glob …/README.md :153:	say "Path 2" if "helloy{x,y/}world" ~~ $glob; # outputs> Path 2
HANENKAMP/IO-Glob …/README.md :157:	"helloy" ~~ glob("hello{x,y") && "world" ~~ glob("}world")
HANENKAMP/IO-Glob …/README.md :158:	"hello{x,y" ~~ glob("hello{x,y") && "}world" ~~ glob("}world")
HANENKAMP/IO-Glob …/Glob.pm6 :21:	if "some-string" ~~ glob("some-*") { say "match string!" }
HANENKAMP/IO-Glob …/Glob.pm6 :22:	if "some/path.txt".IO ~~ glob("some/*.txt") { say "match path!" }
HANENKAMP/IO-Glob …/Glob.pm6 :64:	has @.terms where { .elems > 0 && all($_) ~~ Term };
HANENKAMP/IO-Glob …/Glob.pm6 :71:	if $term ~~ Match {
HANENKAMP/IO-Glob …/Glob.pm6 :75:	elsif $term ~~ Expansion {
HANENKAMP/IO-Glob …/Glob.pm6 :87:	method is-ordered() returns Bool { any(@!terms) ~~ Expansion }
HANENKAMP/IO-Glob …/Glob.pm6 :97:	$candidate ~~ any(@!matchers);
HANENKAMP/IO-Glob …/Glob.pm6 :108:	if $candidate.basename ~~ $matcher {
HANENKAMP/IO-Glob …/Glob.pm6 :308:	if .smart-match ~~ Str {
HANENKAMP/IO-Glob …/Glob.pm6 :420:	say "String" if "helloy/world" ~~ $glob; # outputs> String
HANENKAMP/IO-Glob …/Glob.pm6 :421:	say "Path" if "helloy/world".IO ~~ $glob; # outputs nothing, no match
HANENKAMP/IO-Glob …/Glob.pm6 :422:	say "Path 2" if "helloy{x,y/}world" ~~ $glob; # outputs> Path 2
HANENKAMP/IO-Glob …/Glob.pm6 :426:	"helloy" ~~ glob("hello{x,y") && "world" ~~ glob("}world")
HANENKAMP/IO-Glob …/Glob.pm6 :427:	"hello{x,y" ~~ glob("hello{x,y") && "}world" ~~ glob("}world")
HANENKAMP/IO-Glob …/Glob.pm6 :434:	$candidate ~~ $!globber
HANENKAMP/IO-Glob …/Glob.pm6 :440:	[&&] (@parts Z @!globbers).flatmap: -> ($p, $g) { $p ~~ $g };
HANENKAMP/IO-Glob …/smart-match.t :11:	ok 'foo' ~~ $star-foo;
HANENKAMP/IO-Glob …/smart-match.t :12:	ok 'blahfoo' ~~ $star-foo;
HANENKAMP/IO-Glob …/smart-match.t :13:	ok 'fooblah' !~~ $star-foo;
HANENKAMP/IO-Glob …/smart-match.t :14:	ok 'bar' !~~ $star-foo;
HANENKAMP/IO-Glob …/smart-match.t :17:	ok 'foo' !~~ $dqs;
HANENKAMP/IO-Glob …/smart-match.t :18:	ok '.foo' ~~ $dqs;
HANENKAMP/IO-Glob …/smart-match.t :19:	ok '.f' !~~ $dqs;
HANENKAMP/IO-Glob …/smart-match.t :20:	ok '.bar.foo' ~~ $dqs;
HANENKAMP/IO-Glob …/smart-match.t :21:	ok '..' !~~ $dqs;
HANENKAMP/IO-Glob …/smart-match.t :22:	ok '...' ~~ $dqs;
HANENKAMP/IO-Glob …/smart-match.t :25:	ok 'foo' ~~ $star;
HANENKAMP/IO-Glob …/smart-match.t :26:	ok '.' ~~ $star;
HANENKAMP/IO-Glob …/smart-match.t :27:	ok '..' ~~ $star;
HANENKAMP/IO-Glob …/smart-match.t :28:	ok 'bsadhfwerowhefl;kasjdf' ~~ $star;
HANENKAMP/IO-Glob …/smart-match.t :29:	ok '' ~~ $star;
HANENKAMP/IO-Glob …/smart-match.t :32:	ok 't/fixtures/foo.md'.IO ~~ $fixtures-foo;
HANENKAMP/IO-Glob …/smart-match.t :33:	ok 't/fixtures/foo.txt'.IO ~~ $fixtures-foo;
HANENKAMP/IO-Glob …/smart-match.t :34:	ok 't/fixtures/bar.md'.IO !~~ $fixtures-foo;
HANENKAMP/IO-Glob …/smart-match.t :37:	ok 'some-other-bits/blah/group.getStuff.json' ~~ $hyphen-foo;
HANENKAMP/IO-Glob …/smart-match.t :38:	ok 'some-other-bits/blah/group.getStuff.md' !~~ $hyphen-foo;
HANENKAMP/IO-Glob …/sqlish.t :9:	ok 'foo' ~~ $star-foo;
HANENKAMP/IO-Glob …/sqlish.t :10:	ok 'blahfoo' ~~ $star-foo;
HANENKAMP/IO-Glob …/sqlish.t :11:	ok 'fooblah' !~~ $star-foo;
HANENKAMP/IO-Glob …/sqlish.t :12:	ok 'bar' !~~ $star-foo;
HANENKAMP/IO-Glob …/sqlish.t :15:	ok 'foo' !~~ $dqs;
HANENKAMP/IO-Glob …/sqlish.t :16:	ok '.foo' ~~ $dqs;
HANENKAMP/IO-Glob …/sqlish.t :17:	ok '.f' !~~ $dqs;
HANENKAMP/IO-Glob …/sqlish.t :18:	ok '.bar.foo' ~~ $dqs;
HANENKAMP/IO-Glob …/sqlish.t :19:	ok '..' !~~ $dqs;
HANENKAMP/IO-Glob …/sqlish.t :20:	ok '...' ~~ $dqs;
HANENKAMP/IO-Glob …/sqlish.t :23:	ok 'foo' ~~ $star;
HANENKAMP/IO-Glob …/sqlish.t :24:	ok '.' ~~ $star;
HANENKAMP/IO-Glob …/sqlish.t :25:	ok '..' ~~ $star;
HANENKAMP/IO-Glob …/sqlish.t :26:	ok 'bsadhfwerowhefl;kasjdf' ~~ $star;
HANENKAMP/IO-Glob …/sqlish.t :27:	ok '' ~~ $star;
HANENKAMP/IO-Glob …/sqlish.t :30:	ok 't/fixtures/foo.md'.IO ~~ $fixtures-foo;
HANENKAMP/IO-Glob …/sqlish.t :31:	ok 't/fixtures/foo.txt'.IO ~~ $fixtures-foo;
HANENKAMP/IO-Glob …/sqlish.t :32:	ok 't/fixtures/bar.md'.IO !~~ $fixtures-foo;
HANENKAMP/Template-Anti …/README.md :385:	$!source ~~ s:g/ < "_$blank_" > /$value/;
HANENKAMP/Template-Anti …/Anti.pm6 :448:	if $object.defined && &process ~~ Method {
HANENKAMP/Template-Anti …/Anti.pm6 :472:	return $try-file if $try-file ~~ :f;
HANENKAMP/Template-Anti …/Anti.pm6 :629:	$!source ~~ s:g/ "_$blank_" /$value/;
HANENKAMP/Template-Anti …/Selector.pm6 :27:	next if $next-node ~~ XML::Text;
HANENKAMP/Template-Anti …/Selector.pm6 :28:	next if $next-node ~~ XML::CDATA;
HANENKAMP/Template-Anti …/Selector.pm6 :29:	next if $next-node ~~ XML::PI;
HANENKAMP/Template-Anti …/Selector.pm6 :30:	next if $next-node ~~ XML::Comment;
HANENKAMP/Template-Anti …/Selector.pm6 :33:	if $next-node ~~ XML::Document;
HANENKAMP/Template-Anti …/Selector.pm6 :36:	if $next-node ~~ XML::Element;
HANENKAMP/Template-Anti …/Selector.pm6 :209:	} while $current ~~ XML::Text;
HANENKAMP/Template-Anti …/Selector.pm6 :241:	&& $node-class ~~ / << $class >> /;
HANENKAMP/Template-Anti …/Selector.pm6 :253:	&& $node-id ~~ / ^ \s* $id \s* $ /;
HANENKAMP/Template-Anti …/Selector.pm6 :269:	my $match = [||] |@text-nodes.map: { .text ~~ / $text / };
HANENKAMP/Template-Anti …/Selector.pm6 :295:	&& $attr-value ~~ /^ $match $|^ $match '-'/
HANENKAMP/Template-Anti …/Selector.pm6 :307:	&& $attr-value ~~ / $match /;
HANENKAMP/Template-Anti …/Selector.pm6 :319:	&& $attr-value ~~ / << $match >> /;
HANENKAMP/Template-Anti …/Selector.pm6 :331:	&& $attr-value ~~ / $match $ /;
HANENKAMP/Template-Anti …/Selector.pm6 :366:	&& $attr-value ~~ / ^ $match /;
HANENKAMP/Template-Anti …/extend-one-off.t :15:	$!source ~~ s:g/ "_{$blank}_" /$value/;
HANENKAMP/Template-Anti …/MyEmails.pm6 :10:	$!source ~~ s:g/ "_{$blank}_" /$value/;
HOLLI/Color-Named …/README.md :18:	say "Bazinga!" if $color ~~ Color;
HOLLI/Color-Named …/Named.pod6 :18:	say "Bazinga!" if $color ~~ Color;
HOLLI/Color-Scheme …/Scheme.pm6 :101:	unless $scheme ~~ color-scheme-angles;
HOLLI/Operator-grandpa …/01-basic.t :24:	ok $root.name ~~ "root";
HOLLI/Operator-grandpa …/01-basic.t :27:	ok $root2.name ~~ "root";
HOLLI/Test-Color …/Color.pm6 :40:	$tap ~~ /^ \s* ok / ?? 'ok' !!
HOLLI/Test-Color …/Color.pm6 :41:	$tap ~~ /^ \s* not \s ok/ ?? 'nok' !!
HOLLI/Test-Color …/Color.pm6 :42:	$tap ~~ /^ \s* \d+\.\.\d+\s*$/ ?? 'plan' !!
HOLLI/Test-Color …/Color.pm6 :43:	$tap ~~ /^ \s* "#"/ ?? 'comment' !!
HOLLI/Test-Color …/Color.pm6 :44:	$tap ~~ /^ Bail \s out \!/ ?? 'bail-out' !!
JGOFF/ANTLR4-Grammar …/Perl6.pm6 :111:	$c ~~ s:g/\\u(<[ 0 .. 9 a .. f A .. F ]> ** {4..6})/\\x[$0]/;
JGOFF/ANTLR4-Grammar …/Perl6.pm6 :112:	$c ~~ s:g/<!after \\>\'/\\\'/;
JGOFF/ANTLR4-Grammar …/Perl6.pm6 :131:	$c ~~ s:g/\\u(<[ 0 .. 9 a .. f A .. F ]> ** {4..6})/\\x[$0]/;
JGOFF/ANTLR4-Grammar …/Perl6.pm6 :132:	$c ~~ s:g/<!after \\>\'/\\\'/;
JGOFF/ANTLR4-Grammar …/Perl6.pm6 :290:	$str ~~ / ^ \' /;
JGOFF/CommonMark …/CommonMark.pm6 :291:	if $*VM.config<dll> ~~ /dll/ {
JGOFF/Perl6-Tidy …/Tidy.pm6 :249:	while self.peek( -1 ) ~~ $type;
JGOFF/Perl6-Tidy …/Tidy.pm6 :260:	while self.peek ~~ $type;
JGOFF/Pod-To-HTMLBody …/HTMLBody.pm6 :40:	'<p>' unless $node.parent ~~ Node::Item
JGOFF/Pod-To-HTMLBody …/HTMLBody.pm6 :74:	'</p>' unless $node.parent ~~ Node::Item
JGOFF/Pod-To-HTMLBody …/Tree.pm6 :27:	So this module makes certain that each node (except for the root) has a valid C<.parent> link, that way inside the L<Pod::Block::Para> handler you can check C<<$.parent !~~ Node::Item or $.html ~= '<p>'>>.
JMERELO/Wikidata-API …/README.md :11:	~~~
JMERELO/Wikidata-API …/README.md :41:	~~~
JNTHN/Cro-Core …/Cro.pm6 :240:	unless $t ~~ Cro::Transform {
JNTHN/Cro-Core …/Cro.pm6 :288:	if $comp ~~ Cro::ConnectionState {
JNTHN/Cro-Core …/Cro.pm6 :360:	$c ~~ Cro::ConnectionConditional
JNTHN/Cro-Core …/Cro.pm6 :419:	if $!connection-type ~~ Cro::Replyable {
JNTHN/Cro-Core …/Cro.pm6 :432:	if $!connection-type ~~ Cro::Replyable {
JNTHN/Cro-Core …/Cro.pm6 :450:	elsif $!connection-type !~~ Cro::Replyable {
JNTHN/Cro-Core …/Cro.pm6 :492:	if $comp.?produces ~~ Cro::Connection {
JNTHN/Cro-Core …/Cro.pm6 :506:	if $comp ~~ Cro::Source && $comp.produces ~~ Cro::Connection {
JNTHN/Cro-Core …/Cro.pm6 :507:	if $comp.produces ~~ Cro::Replyable {
JNTHN/Cro-Core …/Cro.pm6 :531:	if $replier !~~ Cro::Transform && $replier !~~ Cro::Sink {
JNTHN/Cro-Core …/Cro.pm6 :539:	if $debug && $component !~~ Cro::Sink && $component !~~ Cro::PipelineTraceTransform {
JNTHN/Cro-Core …/Cro.pm6 :552:	if $replier ~~ Cro::Transform && $replier.consumes === $expected {
JNTHN/Cro-Core …/Cro.pm6 :678:	unless $consumer.consumes ~~ ConnectionOrMessage {
JNTHN/Cro-Core …/Cro.pm6 :683:	unless $producer.produces ~~ ConnectionOrMessage {
JNTHN/Cro-Core …/composer.t :30:	ok $comp ~~ Cro::Source, 'Composing just a source produces a Cro::Source';
JNTHN/Cro-Core …/composer.t :31:	ok $comp ~~ Cro::CompositeSource, 'More specifically, a Cro::CompositeSource';
JNTHN/Cro-Core …/composer.t :58:	ok $comp ~~ Cro::Source, 'Composing source and transform produces a Cro::Source';
JNTHN/Cro-Core …/composer.t :59:	ok $comp ~~ Cro::CompositeSource, 'More specifically, a Cro::CompositeSource';
JNTHN/Cro-Core …/composer.t :79:	ok $comp ~~ Cro::Transform, 'Composing just a transform produces a Cro::Transform';
JNTHN/Cro-Core …/composer.t :80:	ok $comp ~~ Cro::CompositeTransform, 'More specifically, a Cro::CompositeTransform';
JNTHN/Cro-Core …/composer.t :114:	ok $comp ~~ Cro::Transform, 'Composing two transforms produces a Cro::Transform';
JNTHN/Cro-Core …/composer.t :115:	ok $comp ~~ Cro::CompositeTransform, 'More specifically, a Cro::CompositeTransform';
JNTHN/Cro-Core …/composer.t :144:	ok $comp ~~ Cro::Sink, 'Composing just a sink produces a Cro::Sink';
JNTHN/Cro-Core …/composer.t :145:	ok $comp ~~ Cro::CompositeSink, 'More specifically, a Cro::CompositeSink';
JNTHN/Cro-Core …/composer.t :157:	ok $comp ~~ Cro::Sink, 'Composing transforms and sink produces a Cro::Sink';
JNTHN/Cro-Core …/composer.t :158:	ok $comp ~~ Cro::CompositeSink, 'More specifically, a Cro::CompositeSink';
JNTHN/Cro-Core …/composer.t :177:	ok $comp ~~ Cro::Service, 'Composing source/transform/sink gives a Cro::Service';
JNTHN/Cro-Core …/composer.t :243:	ok $comp ~~ Cro::Service,
JNTHN/Cro-Core …/composer.t :283:	ok $comp ~~ Cro::Source,
JNTHN/Cro-Core …/composer.t :285:	ok $comp ~~ Cro::CompositeSource, 'More specifically, a Cro::CompositeSource';
JNTHN/Cro-Core …/composer.t :306:	ok $comp ~~ Cro::Source,
JNTHN/Cro-Core …/composer.t :308:	ok $comp ~~ Cro::CompositeSource, 'More specifically, a Cro::CompositeSource';
JNTHN/Cro-Core …/composer.t :332:	ok $comp ~~ Cro::Service,
JNTHN/Cro-Core …/composer.t :501:	ok $service ~~ Cro::Service,
JNTHN/Cro-Core …/composer.t :536:	ok $service ~~ Cro::Service,
JNTHN/Cro-Core …/composer.t :592:	ok $service ~~ Cro::Service,
JNTHN/Cro-Core …/composer.t :614:	ok $service ~~ Cro::Service,
JNTHN/Cro-Core …/composer.t :746:	ok $comp ~~ Cro::Connector, 'Composing just a connector produces a Cro::Connector';
JNTHN/Cro-Core …/composer.t :747:	ok $comp ~~ Cro::CompositeConnector, 'More specifically, a Cro::CompositeConnector';
JNTHN/Cro-Core …/composer.t :756:	ok @messages[0] ~~ TestMessage, 'That message is a TestMessage';
JNTHN/Cro-Core …/composer.t :770:	ok $comp ~~ Cro::Connector, 'Connector with transform each side makes a Cro::Connector';
JNTHN/Cro-Core …/composer.t :771:	ok $comp ~~ Cro::CompositeConnector, 'More specifically, a Cro::CompositeConnector';
JNTHN/Cro-Core …/composer.t :780:	ok @messages[0] ~~ TestBinaryMessage, 'That message is a TestBinaryMessage';
JNTHN/Cro-Core …/connection-conditional.t :186:	ok $pipeline ~~ Cro::Connector, 'We get back a Cro::Connector';
JNTHN/Cro-Core …/connection-conditional.t :187:	ok $pipeline ~~ Cro::CompositeConnector, 'We get back a Cro::CompositeConnector';
JNTHN/Cro-Core …/connection-state.t :65:	ok $pipeline ~~ Cro::Connector, 'Result is a Cro::Connector';
JNTHN/Cro-Core …/connection-state.t :66:	ok $pipeline ~~ Cro::CompositeConnector, 'Result is a Cro::CompositeConnector';
JNTHN/Cro-Core …/connection-state.t :83:	ok $tran ~~ Cro::CompositeTransform,
JNTHN/Cro-Core …/message-with-body.t :7:	ok Cro::MessageWithBody ~~ Cro::Message, 'Cro::MessageWithBody is a Cro::Message';
JNTHN/Cro-Core …/message-with-body.t :20:	ok $blob ~~ Blob, 'body-blob method gives a Blob';
JNTHN/Cro-Core …/message-with-body.t :39:	ok $str ~~ Str, 'body-text method gives a Str';
JNTHN/Cro-Core …/tcp.t :8:	ok Cro::TCP::Listener ~~ Cro::Source, 'TCP listener is a source';
JNTHN/Cro-Core …/tcp.t :9:	ok Cro::TCP::Listener.produces ~~ Cro::TCP::ServerConnection, 'TCP listener produces connections';
JNTHN/Cro-Core …/tcp.t :10:	ok Cro::TCP::ServerConnection ~~ Cro::Connection, 'TCP connection is a connection';
JNTHN/Cro-Core …/tcp.t :11:	ok Cro::TCP::ServerConnection ~~ Cro::Replyable, 'TCP connection is replyable';
JNTHN/Cro-Core …/tcp.t :12:	ok Cro::TCP::ServerConnection.produces ~~ Cro::TCP::Message, 'TCP connection produces TCP messages';
JNTHN/Cro-Core …/tcp.t :13:	ok Cro::TCP::Message ~~ Cro::Message, 'TCP message is a message';
JNTHN/Cro-Core …/tcp.t :14:	ok Cro::TCP::Connector ~~ Cro::Connector, 'TCP connector is a connector';
JNTHN/Cro-Core …/tcp.t :15:	ok Cro::TCP::Connector.consumes ~~ Cro::TCP::Message, 'TCP connector consumes TCP messages';
JNTHN/Cro-Core …/tcp.t :16:	ok Cro::TCP::Connector.produces ~~ Cro::TCP::Message, 'TCP connector produces TCP messages';
JNTHN/Cro-Core …/tcp.t :26:	ok $incoming ~~ Supply, 'incoming returns a Supply';
JNTHN/Cro-Core …/tcp.t :35:	ok $server-conns.receive ~~ Cro::TCP::ServerConnection,
JNTHN/Cro-Core …/tcp.t :41:	ok $server-conns.receive ~~ Cro::TCP::ServerConnection,
JNTHN/Cro-Core …/tcp.t :62:	ok $rec-supply ~~ Supply, 'Connection incoming method returns a Supply';
JNTHN/Cro-Core …/tcp.t :69:	ok $first-message ~~ Cro::TCP::Message,
JNTHN/Cro-Core …/tcp.t :71:	ok $first-message.data ~~ Blob,
JNTHN/Cro-Core …/tcp.t :78:	ok $second-message ~~ Cro::TCP::Message,
JNTHN/Cro-Core …/tcp.t :80:	ok $second-message.data ~~ Blob,
JNTHN/Cro-Core …/tcp.t :86:	ok $replier ~~ Cro::Sink, 'The TCP connection replier is a Cro::Sink';
JNTHN/Cro-Core …/tcp.t :90:	ok $sinker ~~ Supply, 'Reply sinker returns a Supply';
JNTHN/Cro-Core …/tcp.t :121:	ok $loud-service ~~ Cro::Service,
JNTHN/Cro-Core …/tcp.t :169:	ok $responses ~~ Supply, 'Connector establish method returns a Supply';
JNTHN/Cro-Core …/tcp.t :172:	ok $message ~~ Cro::TCP::Message, 'Response supply emits a TCP message';
JNTHN/Cro-Core …/uri.t :26:	elsif $! ~~ X::Cro::Uri::ParseError {
JNTHN/Cro-HTTP-Test …/Test.pm6 :169:	ok $resp.status ~~ $status, 'Status is acceptable';
JNTHN/Cro-HTTP-Test …/Test.pm6 :180:	ok $resp.content-type ~~ $content-type, 'Content type is acceptable';
JNTHN/Cro-HTTP-Test …/Test.pm6 :193:	ok $got-value ~~ $_, "$header-name header";
JNTHN/Cro-HTTP-Test …/Test.pm6 :218:	ok await($resp.body) ~~ $body, 'Body is acceptable';
JNTHN/Cro-HTTP-Test …/Test.pm6 :224:	ok await($resp.body-text) ~~ $body-text, 'Body is acceptable';
JNTHN/Cro-HTTP-Test …/Test.pm6 :227:	ok await($resp.body-blob) ~~ $body-blob, 'Body is acceptable';
JNTHN/Cro-HTTP …/akamai.t :17:	if ($body ~~ /'<html>' .* '</html>'/) {
JNTHN/Cro-HTTP …/WebToken.pm6 :16:	if $auth ~~ Hash {
JNTHN/Cro-HTTP …/Body.pm6 :43:	$existing ~~ Cro::HTTP::MultiValue
JNTHN/Cro-HTTP …/Body.pm6 :112:	$existing ~~ Cro::HTTP::MultiValue
JNTHN/Cro-HTTP …/BodyParsers.pm6 :151:	if $payload.substr(0, $end-boundary-line) !~~ /\h+/ {
JNTHN/Cro-HTTP …/BodySerializers.pm6 :22:	$body ~~ Blob
JNTHN/Cro-HTTP …/BodySerializers.pm6 :34:	$body ~~ Str
JNTHN/Cro-HTTP …/BodySerializers.pm6 :55:	$body ~~ Supply
JNTHN/Cro-HTTP …/BodySerializers.pm6 :61:	unless $chunk ~~ Blob {
JNTHN/Cro-HTTP …/BodySerializers.pm6 :74:	($body ~~ Map || $body ~~ List)
JNTHN/Cro-HTTP …/BodySerializers.pm6 :90:	if $body ~~ Cro::HTTP::Body::WWWFormUrlEncoded {
JNTHN/Cro-HTTP …/BodySerializers.pm6 :106:	if $entry ~~ Pair {
JNTHN/Cro-HTTP …/BodySerializers.pm6 :140:	if $body ~~ Cro::HTTP::Body::MultiPartFormData {
JNTHN/Cro-HTTP …/BodySerializers.pm6 :193:	body-blob => .value ~~ Blob ?? .value !! .value.Str.encode('utf-8')
JNTHN/Cro-HTTP …/Client.pm6 :256:	when $cookie-jar ~~ Bool {
JNTHN/Cro-HTTP …/Client.pm6 :259:	when $cookie-jar ~~ Cro::HTTP::Client::CookieJar {
JNTHN/Cro-HTTP …/Client.pm6 :351:	if $pipeline !~~ Pipeline2 {
JNTHN/Cro-HTTP …/Client.pm6 :561:	self!set-headers($request, $value.List) if $value ~~ Iterable;
JNTHN/Cro-HTTP …/Middleware.pm6 :12:	$request ~~ Cro::HTTP::Request
JNTHN/Cro-HTTP …/Middleware.pm6 :28:	$response ~~ Cro::HTTP::Response
JNTHN/Cro-HTTP …/Router.pm6 :86:	if $comp ~~ Cro::ConnectionState {
JNTHN/Cro-HTTP …/Router.pm6 :217:	with $request.path ~~ $!path-matcher {
JNTHN/Cro-HTTP …/Router.pm6 :248:	elsif $param ~~ Auth || $param.type ~~ Cro::HTTP::Auth {
JNTHN/Cro-HTTP …/Router.pm6 :349:	if $param ~~ Auth || $param.type ~~ Cro::HTTP::Auth {
JNTHN/Cro-HTTP …/Router.pm6 :422:	if @constraints == 1 && @constraints[0] ~~ Str:D {
JNTHN/Cro-HTTP …/Router.pm6 :607:	if $routes ~~ RouteSet {
JNTHN/Cro-HTTP …/Router.pm6 :629:	if $routes ~~ RouteSet {
JNTHN/Cro-HTTP …/Router.pm6 :642:	unless $transform ~~ Cro::Transform {
JNTHN/Cro-HTTP …/Router.pm6 :645:	unless $transform.consumes ~~ Cro::HTTP::Request {
JNTHN/Cro-HTTP …/Router.pm6 :649:	unless $transform.produces ~~ Cro::HTTP::Response {
JNTHN/Cro-HTTP …/Router.pm6 :730:	multi content(Str $content-type, $body, :$enc = $body ~~ Str ?? 'utf-8' !! Nil --> Nil) {
JNTHN/Cro-HTTP …/Router.pm6 :826:	if $headers ~~ Hash {
JNTHN/Cro-HTTP …/Router.pm6 :828:	} elsif $headers ~~ List {
JNTHN/Cro-HTTP …/Router.pm6 :889:	if .consumes ~~ Cro::HTTP::Request
JNTHN/Cro-HTTP …/Router.pm6 :890:	&& .produces ~~ Cro::HTTP::Request {
JNTHN/Cro-HTTP …/Router.pm6 :908:	if .consumes ~~ Cro::HTTP::Response
JNTHN/Cro-HTTP …/Router.pm6 :909:	&& .produces ~~ Cro::HTTP::Response {
JNTHN/Cro-HTTP …/Server.pm6 :28:	$middle ~~ Iterable ?? $middle.List !! ($middle === Any ?? () !! $middle)
JNTHN/Cro-HTTP …/Server.pm6 :42:	if $before ~~ Iterable {
JNTHN/Cro-HTTP …/Server.pm6 :53:	elsif $before ~~ Cro::HTTP::Middleware::Pair {
JNTHN/Cro-HTTP …/Server.pm6 :60:	if $after ~~ Iterable {
JNTHN/Cro-HTTP …/Persistent.pm6 :47:	if $created ~~ TSession {
JNTHN/Cro-HTTP …/FrameParser.pm6 :66:	if $result ~~ Cro::HTTP2::Frame::Data {
JNTHN/Cro-HTTP …/FrameParser.pm6 :81:	} elsif $result ~~ Cro::HTTP2::Frame::Settings {
JNTHN/Cro-HTTP …/FrameParser.pm6 :87:	} elsif $result ~~ Cro::HTTP2::Frame::Ping {
JNTHN/Cro-HTTP …/FrameSerializer.pm6 :38:	my $is-header = $frame ~~ Cro::HTTP2::Frame::Headers|Cro::HTTP2::Frame::PushPromise;
JNTHN/Cro-HTTP …/FrameSerializer.pm6 :111:	if $frame ~~ Cro::HTTP2::Frame::Headers|Cro::HTTP2::Frame::PushPromise {
JNTHN/Cro-HTTP …/FrameSerializer.pm6 :117:	} elsif $frame ~~ Cro::HTTP2::Frame::Data {
JNTHN/Cro-HTTP …/FrameSerializer.pm6 :262:	die PROTOCOL_ERROR if $num != 0 && $_ ~~ Cro::HTTP2::Frame::Settings;
JNTHN/Cro-HTTP …/FrameSerializer.pm6 :263:	die PROTOCOL_ERROR if $num != 0 && $_ ~~ Cro::HTTP2::Frame::Ping;
JNTHN/Cro-HTTP …/FrameSerializer.pm6 :264:	die PROTOCOL_ERROR if $num != 0 && $_ ~~ Cro::HTTP2::Frame::GoAway;
JNTHN/Cro-HTTP …/GeneralParser.pm6 :58:	if $_ !~~ Cro::HTTP2::Frame::Continuation
JNTHN/Cro-HTTP …/GeneralParser.pm6 :89:	if $message ~~ Cro::HTTP::Response {
JNTHN/Cro-HTTP …/GeneralParser.pm6 :153:	|| %streams{.stream-identifier}.state !~~ header-c {
JNTHN/Cro-HTTP …/GeneralParser.pm6 :184:	if .name eq ':status' && $message ~~ Cro::HTTP::Response {
JNTHN/Cro-HTTP …/GeneralParser.pm6 :186:	} elsif .name eq ':method' && $message ~~ Cro::HTTP::Request {
JNTHN/Cro-HTTP …/GeneralParser.pm6 :188:	} elsif .name eq ':path' && $message ~~ Cro::HTTP::Request {
JNTHN/Cro-HTTP …/RequestParser.pm6 :24:	|| $stream.state !~~ data
JNTHN/Cro-HTTP …/ResponseParser.pm6 :19:	|| $stream.state !~~ data
JNTHN/Cro-HTTP …/HTTP.pm6 :66:	$existing ~~ Cro::HTTP::MultiValue
JNTHN/Cro-HTTP …/http-client.t :70:	if $body ~~ Cro::HTTP::Body::MultiPartFormData
JNTHN/Cro-HTTP …/http-client.t :153:	ok $resp ~~ Cro::HTTP::Response, 'base-uri argument works';
JNTHN/Cro-HTTP …/http-client.t :157:	ok $resp ~~ Cro::HTTP::Response, 'Got a response back from GET /';
JNTHN/Cro-HTTP …/http-client.t :164:	ok $resp ~~ Cro::HTTP::Response, 'Got a response back from POST /';
JNTHN/Cro-HTTP …/http-client.t :171:	ok $resp ~~ Cro::HTTP::Response, 'Got a response back from PUT /';
JNTHN/Cro-HTTP …/http-client.t :178:	ok $resp ~~ Cro::HTTP::Response, 'Got a response back from DELETE /';
JNTHN/Cro-HTTP …/http-client.t :185:	ok $resp ~~ Cro::HTTP::Response, 'Got a response back from PATCH /';
JNTHN/Cro-HTTP …/http-client.t :197:	ok $resp ~~ Cro::HTTP::Response, 'Got a response back from GET /query?value=test';
JNTHN/Cro-HTTP …/http-client.t :204:	ok $resp ~~ Cro::HTTP::Response, 'Got a response back from GET /query';
JNTHN/Cro-HTTP …/http-client.t :221:	ok $resp ~~ Cro::HTTP::Response, 'Got a response from GET / with JSON';
JNTHN/Cro-HTTP …/http-client.t :228:	ok $resp ~~ Cro::HTTP::Response, 'Got a response from GET / with Str';
JNTHN/Cro-HTTP …/http-client.t :235:	ok $resp ~~ Cro::HTTP::Response, 'Got a response from GET / with Blob';
JNTHN/Cro-HTTP …/http-client.t :243:	ok $resp ~~ Cro::HTTP::Response, 'Got a response from GET / with urlencoded query';
JNTHN/Cro-HTTP …/http-client.t :262:	ok $resp ~~ Cro::HTTP::Response, 'Got a response from GET / with form-data';
JNTHN/Cro-HTTP …/http-client.t :469:	ok $resp ~~ Cro::HTTP::Response, 'Got a response back from GET / with HTTPS';
JNTHN/Cro-HTTP …/http-request-parser.t :8:	ok Cro::HTTP::RequestParser ~~ Cro::Transform,
JNTHN/Cro-HTTP …/http-request-parser.t :541:	ok $body ~~ Blob, 'unknown/foo .body gives Blob';
JNTHN/Cro-HTTP …/http-request-parser.t :709:	ok @parts[0].content-type ~~ Cro::MediaType,
JNTHN/Cro-HTTP …/http-request-parser.t :722:	ok @parts[1].content-type ~~ Cro::MediaType,
JNTHN/Cro-HTTP …/http-request-parser.t :764:	ok @parts[0].content-type ~~ Cro::MediaType,
JNTHN/Cro-HTTP …/http-request-parser.t :782:	ok @parts[1].content-type ~~ Cro::MediaType,
JNTHN/Cro-HTTP …/http-request-parser.t :808:	ok $body ~~ Hash, '.body of application/json with object gives Hash';
JNTHN/Cro-HTTP …/http-request-parser.t :822:	ok $body ~~ Hash, '.body of application/vnd.my-org+json with object gives Hash';
JNTHN/Cro-HTTP …/http-request.t :159:	ok $req.content-type ~~ Cro::MediaType,
JNTHN/Cro-HTTP …/http-response-parser.t :6:	ok Cro::HTTP::ResponseParser ~~ Cro::Transform,
JNTHN/Cro-HTTP …/http-response-parser.t :335:	$body ~~ Str && $body eq "abcdefghijabcdefghijabcdefghijabcdefghijabcdefghij\n"
JNTHN/Cro-HTTP …/http-response-parser.t :347:	$body ~~ Blob && $body.decode('ascii') eq "abcdefghij\n"
JNTHN/Cro-HTTP …/http-response-parser.t :420:	ok $body ~~ Hash, '.body of application/json with object gives Hash';
JNTHN/Cro-HTTP …/http-response-parser.t :434:	ok $body ~~ Hash, '.body of application/vnd.my-org+json with object gives Hash';
JNTHN/Cro-HTTP …/http-response.t :106:	ok $res.cookies[0] ~~ Cro::HTTP::Cookie, 'Cookies are returned from .cookies call';
JNTHN/Cro-HTTP …/http-router.t :12:	ok $app ~~ Cro::Transform, 'Route block with no routes gives back a Cro::Transform';
JNTHN/Cro-HTTP …/http-router.t :17:	ok $r ~~ Cro::HTTP::Response, 'Empty route set gives a response';
JNTHN/Cro-HTTP …/http-router.t :47:	ok $app ~~ Cro::Transform, 'Route block with routes gives back a Cro::Transform';
JNTHN/Cro-HTTP …/http-router.t :53:	ok $r ~~ Cro::HTTP::Response, 'Route set routes / correctly';
JNTHN/Cro-HTTP …/http-router.t :61:	ok $r ~~ Cro::HTTP::Response, 'Route set routes /about correctly';
JNTHN/Cro-HTTP …/http-router.t :69:	ok $r ~~ Cro::HTTP::Response, 'Route set routes /company/careers correctly';
JNTHN/Cro-HTTP …/http-router.t :77:	ok $r ~~ Cro::HTTP::Response, 'No matching route gets a HTTP response';
JNTHN/Cro-HTTP …/http-router.t :116:	ok $r ~~ Cro::HTTP::Response, 'Route set routes GET';
JNTHN/Cro-HTTP …/http-router.t :124:	ok $r ~~ Cro::HTTP::Response, 'Route set routes POST';
JNTHN/Cro-HTTP …/http-router.t :132:	ok $r ~~ Cro::HTTP::Response, 'Route set routes PUT';
JNTHN/Cro-HTTP …/http-router.t :138:	ok $r ~~ Cro::HTTP::Response, 'Route set routes DELETE';
JNTHN/Cro-HTTP …/http-router.t :146:	ok $r ~~ Cro::HTTP::Response, 'Route set routes PATCH';
JNTHN/Cro-HTTP …/http-router.t :1052:	content 'text/plain', "blob: {$blob ~~ Blob}, $blob.elems()"
JNTHN/Cro-HTTP …/http-router.t :1058:	content 'text/plain', "text: {$text ~~ Str}, $text.chars()"
JNTHN/Cro-HTTP …/http-router.t :1297:	$body ~~ Point
JNTHN/Cro-HTTP …/http-router.t :1417:	is $r.headers.grep({ $_.name ~~ /'Set-Cookie'/ && $_.value ~~ /'Present=Tasty'/ }).elems, 1, 'Cookie is here';
JNTHN/Cro-HTTP …/http-router.t :1425:	is $r.headers.grep({ $_.name ~~ /'Set-Cookie'/ && $_.value ~~ /'Present=Very-Tasty; Expires=' .+? '; Max-Age=3600'/ }).elems,
JNTHN/Cro-HTTP …/http-router.t :1496:	ok $r.header('cache-control') ~~ /'max-age=600'/, 'max-age is added';
JNTHN/Cro-HTTP …/http-router.t :1497:	ok $r.header('cache-control') ~~ /'public'/, 'public directive is added';
JNTHN/Cro-HTTP …/http-router.t :1613:	content 'text/plain', $body ~~ TestBody
JNTHN/Cro-HTTP …/http-router.t :1624:	content 'text/plain', $body ~~ TestBody
JNTHN/Cro-HTTP …/http-server.t :36:	ok $service ~~ Cro::Service, 'Service does Cro::Service';
JNTHN/Cro-HTTP …/http-server.t :81:	ok $service ~~ Cro::Service, 'Service does Cro::Service (HTTPS)';
JNTHN/Cro-HTTP …/http2-frame-parser.t :8:	ok Cro::HTTP2::FrameParser ~~ Cro::Transform,
JNTHN/Cro-HTTP …/http2-frame-parser.t :41:	unless $complete.status ~~ Kept {
JNTHN/Cro-HTTP …/http2-frame-parser.t :59:	if $settings ~~ Bool {
JNTHN/Cro-HTTP …/http2-frame-parser.t :84:	unless $complete.status ~~ Kept {
JNTHN/Cro-HTTP …/http2-frame-serializer.t :8:	ok Cro::HTTP2::FrameSerializer ~~ Cro::Transform,
JNTHN/Cro-HTTP …/http2-frame-serializer.t :38:	if $frame ~~ Cro::HTTP2::Frame::Settings|Cro::HTTP2::Frame::Ping {
JNTHN/Cro-HTTP …/http2-frame-serializer.t :40:	if $_ ~~ Cro::HTTP2::Frame {
JNTHN/Cro-HTTP …/http2-frame-serializer.t :90:	if $complete.status ~~ Kept {
JNTHN/Cro-HTTP …/http2-request-parser.t :42:	if $test-completed.status ~~ Kept {
JNTHN/Cro-HTTP …/http2-request-serializer.t :32:	if $test-completed.status ~~ Kept {
JNTHN/Cro-HTTP …/http2-request-serializer.t :52:	[[(* ~~ Cro::HTTP2::Frame::Headers),
JNTHN/Cro-HTTP …/http2-request-serializer.t :79:	[[(* ~~ Cro::HTTP2::Frame::Headers),
JNTHN/Cro-HTTP …/http2-request-serializer.t :83:	[(* ~~ Cro::HTTP2::Frame::Data),
JNTHN/Cro-HTTP …/http2-request-serializer.t :108:	[[(* ~~ Cro::HTTP2::Frame::Headers),
JNTHN/Cro-HTTP …/http2-request-serializer.t :112:	[(* ~~ Cro::HTTP2::Frame::Data),
JNTHN/Cro-HTTP …/http2-request-serializer.t :116:	[(* ~~ Cro::HTTP2::Frame::Data),
JNTHN/Cro-HTTP …/http2-response-parser.t :35:	if $test-completed.status ~~ Kept {
JNTHN/Cro-HTTP …/http2-response-serializer.t :33:	if $test-completed.status ~~ Kept {
JNTHN/Cro-HTTP …/http2-response-serializer.t :49:	[[(* ~~ Cro::HTTP2::Frame::Headers),
JNTHN/Cro-HTTP …/http2-response-serializer.t :65:	[[(* ~~ Cro::HTTP2::Frame::Headers),
JNTHN/Cro-HTTP …/http2-response-serializer.t :69:	[(* ~~ Cro::HTTP2::Frame::Data),
JNTHN/Cro-HTTP …/http2-response-serializer.t :87:	[[(* ~~ Cro::HTTP2::Frame::Headers),
JNTHN/Cro-HTTP …/http2-response-serializer.t :91:	[(* ~~ Cro::HTTP2::Frame::Data),
JNTHN/Cro-HTTP …/http2-response-serializer.t :95:	[(* ~~ Cro::HTTP2::Frame::Data),
JNTHN/Cro-HTTP …/uri-http.t :23:	elsif $! ~~ X::Cro::Uri::ParseError {
JNTHN/Cro-HTTP …/mime-generation.pl6 :7:	if $_ ~~ /(<-[\t]>+) \t+ ((\w+)+ % ' ')/ {
JNTHN/Cro-OpenAPI-RoutesFromDefinition …/RoutesFromDefinition.pm6 :78:	@pos.shift if @pos[0].?type ~~ Cro::HTTP::Auth;
JNTHN/Cro-OpenAPI-RoutesFromDefinition …/RoutesFromDefinition.pm6 :497:	my $model = $openapi-document ~~ /^\s*'{'/
JNTHN/Cro-OpenAPI-RoutesFromDefinition …/RoutesFromDefinition.pm6 :547:	return $req.validation-exception if $req ~~ RequestValidationError;
JNTHN/Cro-OpenAPI-RoutesFromDefinition …/AdaptHandler.pm6 :20:	if @orig-parameters[0].?type ~~ Cro::HTTP::Auth {
JNTHN/Cro-OpenAPI-RoutesFromDefinition …/Checkers.pm6 :10:	my $what = $!http-message ~~ Cro::HTTP::Request ?? 'request' !! 'response';
JNTHN/Cro-TLS …/tls.t :15:	ok Cro::TLS::Listener ~~ Cro::Source, 'TLS listener is a source';
JNTHN/Cro-TLS …/tls.t :16:	ok Cro::TLS::Listener.produces ~~ Cro::TLS::ServerConnection, 'TLS listener produces connections';
JNTHN/Cro-TLS …/tls.t :17:	ok Cro::TLS::ServerConnection ~~ Cro::Connection, 'TLS connection is a connection';
JNTHN/Cro-TLS …/tls.t :18:	ok Cro::TLS::ServerConnection ~~ Cro::Replyable, 'TLS connection is replyable';
JNTHN/Cro-TLS …/tls.t :19:	ok Cro::TLS::ServerConnection.produces ~~ Cro::TCP::Message, 'TLS connection produces TCP messages';
JNTHN/Cro-TLS …/tls.t :20:	ok Cro::TLS::Connector ~~ Cro::Connector, 'TLS connector is a connector';
JNTHN/Cro-TLS …/tls.t :21:	ok Cro::TLS::Connector.consumes ~~ Cro::TCP::Message, 'TLS connector consumes TCP messages';
JNTHN/Cro-TLS …/tls.t :22:	ok Cro::TLS::Connector.produces ~~ Cro::TCP::Message, 'TLS connector produces TCP messages';
JNTHN/Cro-TLS …/tls.t :32:	ok $incoming ~~ Supply, 'incoming returns a Supply';
JNTHN/Cro-TLS …/tls.t :41:	ok $server-conns.receive ~~ Cro::TLS::ServerConnection,
JNTHN/Cro-TLS …/tls.t :47:	ok $server-conns.receive ~~ Cro::TLS::ServerConnection,
JNTHN/Cro-TLS …/tls.t :68:	ok $rec-supply ~~ Supply, 'Connection incoming method returns a Supply';
JNTHN/Cro-TLS …/tls.t :75:	ok $first-message ~~ Cro::TCP::Message,
JNTHN/Cro-TLS …/tls.t :77:	ok $first-message.data ~~ Blob,
JNTHN/Cro-TLS …/tls.t :84:	ok $second-message ~~ Cro::TCP::Message,
JNTHN/Cro-TLS …/tls.t :86:	ok $second-message.data ~~ Blob,
JNTHN/Cro-TLS …/tls.t :92:	ok $replier ~~ Cro::Sink, 'The TLS connection replier is a Cro::Sink';
JNTHN/Cro-TLS …/tls.t :96:	ok $sinker ~~ Supply, 'Reply sinker returns a Supply';
JNTHN/Cro-TLS …/tls.t :127:	ok $loud-service ~~ Cro::Service,
JNTHN/Cro-TLS …/tls.t :175:	ok $responses ~~ Supply, 'Connector establish method returns a Supply';
JNTHN/Cro-TLS …/tls.t :178:	ok $message ~~ Cro::TCP::Message, 'Response supply emits a TCP message';
JNTHN/Cro-WebSocket …/WebSocket.pm6 :22:	|| !(($request.header('Connection') // '').lc ~~ /upgrade/)
JNTHN/Cro-WebSocket …/BodySerializers.pm6 :7:	$body ~~ Str
JNTHN/Cro-WebSocket …/BodySerializers.pm6 :18:	$body ~~ Blob
JNTHN/Cro-WebSocket …/Client.pm6 :45:	$parsed-url = Cro::Uri.parse($uri ~~ Cro::Uri
JNTHN/Cro-WebSocket …/Client.pm6 :49:	$parsed-url = $uri ~~ Cro::Uri ?? $uri !! Cro::Uri.parse($uri);
JNTHN/Cro-WebSocket …/Client.pm6 :72:	unless $resp.header('upgrade') && $resp.header('upgrade') ~~ m:i/'websocket'/ {
JNTHN/Cro-WebSocket …/Client.pm6 :75:	unless $resp.header('connection') && $resp.header('connection') ~~ m:i/^Upgrade$/ {
JNTHN/Cro-WebSocket …/Connection.pm6 :143:	unless $p.status ~~ Kept {
JNTHN/Cro-WebSocket …/Handler.pm6 :32:	if $msg ~~ CloseMessage {
JNTHN/Cro-WebSocket …/Message.pm6 :29:	:opcode($body ~~ Str ?? Text !! Binary),
JNTHN/Cro-WebSocket …/Message.pm6 :30:	:fragmented($body !~~ Str && $body !~~ Blob),
JNTHN/Cro-WebSocket …/websocket-client.t :92:	ok $ping.status ~~ Kept, 'Empty ping is recieved';
JNTHN/Cro-WebSocket …/websocket-client.t :96:	ok $ping.status ~~ Kept, 'Ping is recieved';
JNTHN/Cro-WebSocket …/websocket-client.t :121:	unless $p.status ~~ Kept {
JNTHN/Cro-WebSocket …/websocket-client.t :128:	ok $closed.status ~~ Kept, 'The connection is closed by close() call';
JNTHN/Cro-WebSocket …/websocket-frame-parser.t :6:	ok Cro::WebSocket::FrameParser ~~ Cro::Transform,
JNTHN/Cro-WebSocket …/websocket-frame-parser.t :18:	ok $frame ~~ Cro::WebSocket::Frame, $desc;
JNTHN/Cro-WebSocket …/websocket-frame-serializer.t :7:	ok Cro::WebSocket::FrameSerializer ~~ Cro::Transform,
JNTHN/Cro-WebSocket …/websocket-handler.t :33:	unless $completion.status ~~ Kept {
JNTHN/Cro-WebSocket …/websocket-handler.t :86:	unless $completion.status ~~ Kept {
JNTHN/Cro-ZeroMQ …/Sub.pm6 :13:	die "You need to specify subscribe parameter for a SUB socket" if $subscribe ~~ Nil;
JNTHN/Cro-ZeroMQ …/Sub.pm6 :25:	$_ ~~ Blob ??
JNTHN/Cro-ZeroMQ …/Sub.pm6 :27:	$_ ~~ Str ??
JNTHN/Cro-ZeroMQ …/Sub.pm6 :35:	die "Envelope part must be a Str or a Blob, {$_.WHAT} passed" if $_ !~~ Blob|Str;
JNTHN/Cro-ZeroMQ …/Sub.pm6 :38:	$_ ~~ Blob ?? $_ !! Blob.new: $_.encode
JNTHN/Cro-ZeroMQ …/Sub.pm6 :46:	my $topic = $_ ~~ Blob ?? $_ !! $_.encode;
JNTHN/Cro-ZeroMQ …/zeromq-pub-sub.t :29:	if $complete.status ~~ Kept {
JNTHN/IO-Socket-Async-SSL …/SSL.pm6 :328:	if $alpn ~~ Callable {
JNTHN/IO-Socket-Async-SSL …/SSL.pm6 :500:	if $!alpn.defined && $!alpn-result !~~ Nil|Buf {
JNTHN/IO-Socket-Async-SSL …/SSL.pm6 :506:	$!connected-promise.keep(self) if $!connected-promise.status ~~ Planned;
JNTHN/IO-Socket-Async-SSL …/SSL.pm6 :548:	if $!alpn.defined && $!alpn-result !~~ Nil|Buf {
JNTHN/IO-Socket-Async-SSL …/SSL.pm6 :553:	$!accepted-promise.keep(self) if $!accepted-promise.status ~~ Planned;
JNTHN/IO-Socket-Async-SSL …/SSL.pm6 :562:	$!accepted-promise.break($_) if $!accepted-promise.status ~~ Planned;
JNTHN/IO-Socket-Async-SSL …/SSL.pm6 :643:	elsif $name-wild ~~ /^ (<-[*]>*) '*' (<-[*]>*) $/ {
JNTHN/IO-Socket-Async-SSL …/client-server.t :154:	ok $p1.status ~~ Kept, 'Multiple clients with ALPN work';
JNTHN/IO-Socket-Async-SSL …/client-server.t :155:	ok $p2.status ~~ Kept, 'Multiple clients with ALPN work';
JNTHN/JSON-Pointer …/Pointer.pm6 :56:	$token = $token.Int if $token ~~ /^ ('0' || <[1..9]>\d*) $/;
JNTHN/JSON-Pointer …/Pointer.pm6 :74:	return fail X::JSON::Pointer::NonExistent.new(:element($part)) if $part !~~ Str;
JNTHN/JSON-Pointer …/Pointer.pm6 :79:	return fail X::JSON::Pointer::NonExistent.new(:element($part)) if $part !~~ Int;
JNTHN/OpenAPI-Model …/Model.pm6 :41:	die X::OpenAPI::Model::InvalidFormat.new if $source ~~ Failure;
JNTHN/OpenAPI-Model …/Element.pm6 :34:	return $item if $item !~~ Associative;
JNTHN/OpenAPI-Model …/Element.pm6 :40:	} elsif .value ~~ Associative|Positional {
JNTHN/OpenAPI-Model …/Element.pm6 :79:	return $item if $item !~~ OpenAPI::Model::Reference;
JNTHN/OpenAPI-Model …/Element.pm6 :100:	if $root ~~ Associative {
JNTHN/OpenAPI-Model …/Element.pm6 :111:	return $root if $root ~~ $expect;
JNTHN/OpenAPI-Model …/Element.pm6 :156:	} elsif $patterned ~~ OpenAPI::Model::Element {
JNTHN/OpenAPI-Model …/Element.pm6 :158:	} elsif $patterned ~~ Array {
JNTHN/OpenAPI-Model …/Element.pm6 :187:	%structure{$k} = $value if $value.defined && $value !~~ [];
JNTHN/OpenAPI-Model …/Element.pm6 :218:	my &ref-cond = -> $_ { $_ ~~ OpenAPI::Model::Reference && $spec<ref> };
JNTHN/OpenAPI-Model …/Element.pm6 :220:	$spec<array> ?? so $v.map({$_ ~~ $spec<type> || &ref-cond($_)}).all !!
JNTHN/OpenAPI-Model …/Element.pm6 :221:	$spec<hash> ?? so $v.values.map({$_ ~~ $spec<type> || &ref-cond($_)}).all !!
JNTHN/OpenAPI-Model …/Element.pm6 :222:	$v ~~ $spec<type> || &ref-cond($v);
JNTHN/OpenAPI-Model …/PatternedObject.pm6 :24:	%!container.map({ if .value ~~ Array {
JNTHN/OpenAPI-Model …/00-openapi-model.t :112:	ok $api.paths.pairs ~~ Seq, 'paris methods returns Seq';
JNTHN/OpenAPI-Model …/00-openapi-model.t :115:	ok $pair ~~ Pair, 'Got correct pair from pairs';
JNTHN/OpenAPI-Model …/05-references.t :99:	ok $link1 !~~ OpenAPI::Model::Reference, 'AT-KEY gives resolved link';
JNTHN/OpenAPI-Model …/05-references.t :100:	ok $link2 !~~ OpenAPI::Model::Reference, 'get-link gives resolved link';
JNTHN/OpenAPI-Model …/05-references.t :101:	ok $ref ~~ OpenAPI::Model::Reference, 'raw-get-link gives Reference object';
JNTHN/OpenAPI-Model …/05-references.t :149:	ok $ext-link ~~ OpenAPI::Model::Link, 'Link is resolved';
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :47:	binary => { $_ ~~ Blob };
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :134:	unless $value ~~ Blob && $value.defined {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :139:	unless $value ~~ Str && $value.defined {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :149:	unless $value ~~ Real && $value.defined {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :158:	unless $value ~~ Int && $value.defined {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :167:	unless $value ~~ Bool && $value.defined {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :176:	unless $value ~~ Positional && $value.defined {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :185:	unless $value ~~ Associative && $value.defined {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :195:	if $value ~~ Real {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :207:	if $value ~~ Str && $value.defined && $value.codes < $!min {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :217:	if $value ~~ Str && $value.defined && $value.codes > $!max {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :232:	if $value ~~ Str && $value !~~ $!rx {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :243:	if $value ~~ Real && (!$!exclusive && $value > $!max || $!exclusive && $value >= $!max) {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :254:	if $value ~~ Real && (!$!exclusive && $value < $!min || $!exclusive && $value <= $!min) {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :264:	if $value ~~ Positional && $value.elems < $!min {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :274:	if $value ~~ Positional && $value.elems > $!max {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :283:	if $value ~~ Positional && $value.elems != $value.unique(with => &[eqv]).elems {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :293:	if $value ~~ Positional {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :302:	if $value ~~ Associative && $value.values < $!min {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :312:	if $value ~~ Associative && $value.values > $!max {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :322:	if $value ~~ Associative && not [&&] $value{@!prop}.map(*.defined) {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :450:	if $value ~~ Associative && $value.defined {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :509:	unless $value ~~ $!checker {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :584:	when $_ !~~ Bool {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :602:	when $_ !~~ Bool {
JNTHN/OpenAPI-Schema-Validate …/Validate.pm6 :708:	if ([&&] .map(* ~~ Str)) && .elems == .unique.elems {
JNTHN/cro …/cro-websocket-message.md :15:	if $message.opcode ~~ Cro::WebSocket::Message::Close { ... }
JNTHN/cro …/CLI.pm6 :34:	if $found ~~ Cro::Tools::Template {
JNTHN/cro …/CLI.pm6 :76:	my $default = $opt.default ~~ Callable
JNTHN/cro …/CLI.pm6 :90:	if $proposed ~~ /:i ^ y/ {
JNTHN/cro …/CLI.pm6 :94:	elsif $proposed ~~ /:i ^ n/ {
JNTHN/cro …/CLI.pm6 :111:	if $proposed ~~ $opt.type {
JNTHN/cro …/CLI.pm6 :128:	if $proposed ~~ $opt.type {
JNTHN/cro …/CLI.pm6 :149:	%provided{$opt.id} = $def ~~ Callable ?? $def(%provided) !! $def;
JNTHN/cro …/CLI.pm6 :155:	unless %provided{$opt.id} ~~ $opt.type {
JNTHN/cro …/LinkTemplate.pm6 :45:	unless $gl-template ~~ Cro::Tools::LinkTemplate {
JNTHN/cro …/Runner.pm6 :138:	$first-service.keep unless $first-service.status ~~ Kept;
JNTHN/cro …/Runner.pm6 :141:	if $service-id ~~ $!service-id-filter {
JNTHN/cro …/Runner.pm6 :262:	if $line ~~ &trace-parser {
JNTHN/cro …/Web.pm6 :228:	.default ~~ Bool ?? .default !! False).List) for .options;
JNTHN/cro …/Web.pm6 :255:	if $_ ~~ Cro::Tools::Runner::Started {
JNTHN/cro …/Web.pm6 :262:	%action<tracing> = .tracing if $_ !~~ Cro::Tools::Runner::UnableToStart;
JNTHN/cro …/Web.pm6 :263:	%action<endpoints> = @endpoints if $_ ~~ Cro::Tools::Runner::Started;
JNTHN/cro …/tools-runner.t :68:	ok $log.line ~~ /200/, 'Got log line mentioning status code';
JNTHN/cro …/tools-runner.t :85:	ok $log.line ~~ /200/, 'Got log line mentioning status code';
JNTHN/cro …/tools-services.t :18:	ok $first-found ~~ Cro::Tools::Services::Service,
JNTHN/cro …/tools-services.t :21:	ok $second-found ~~ Cro::Tools::Services::Service,
JNTHN/cro …/tools-services.t :51:	ok $third-found ~~ Cro::Tools::Services::Service,
KAJI/App-Platform …/index.rst :21:	system1 ~~ system4
KAJI/App-Platform …/project.yml :14:	if $word ~~ /[ea?|u|i] rl $/;
KAJI/App-Platform …/Attach.pm6 :34:	$shell = 'ash' unless $proc.out.slurp-rest ~~ / ^ shelltest /;
KAJI/App-Platform …/Command.pm6 :17:	if $_ ~~ / Successfully / {
KAJI/App-Platform …/Container.pm6 :27:	my $found = $resolv-conf.IO.slurp ~~ / nameserver \s+ $<ip-address> = [ \d+\.\d+\.\d+\.\d+ ] /;
KAJI/App-Platform …/Container.pm6 :36:	my $out = ($proc ~~ App::Platform::Command) ?? $proc.out !! $proc.out.slurp-rest(:close);
KAJI/App-Platform …/Container.pm6 :37:	my $err = ($proc ~~ App::Platform::Command) ?? $proc.err !! $proc.err.slurp-rest;
KAJI/App-Platform …/Container.pm6 :38:	$err = '' if $err ~~ / ^ "Unable to find image" /; # Normal fetch operation
KAJI/App-Platform …/Container.pm6 :22:	"$!dockerfile-loc/Dockerfile".IO.slurp ~~ / ^ FROM \s .* alpine /
KAJI/App-Platform …/Container.pm6 :29:	$from = self.projectdir ~ "/$from" if $from !~~ / ^ "/" /;
KAJI/App-Platform …/Container.pm6 :67:	my %params = $params ~~ Hash ?? $params.hash !! ();
KAJI/App-Platform …/Container.pm6 :131:	if $content ~~ Hash {
KAJI/App-Platform …/Container.pm6 :139:	$local_target ~~ s'^\/'';
KAJI/App-Platform …/Container.pm6 :244:	if @env.Str !~~ / VIRTUAL_HOST / {
KAJI/App-Platform …/Container.pm6 :247:	if @env.Str !~~ / DOMAIN / {
KAJI/App-Platform …/Linux.pm6 :31:	} elsif $proc.err ~~ / "address already in use" / {
KAJI/App-Platform …/Environment.pm6 :37:	my $project-path = $project ~~ / ^ \/ / ?? $project !! "{self.environment.IO.dirname}/{$project}".IO.absolute;
KAJI/App-Platform …/Environment.pm6 :38:	if $data ~~ Bool and $data {
KAJI/App-Platform …/Environment.pm6 :45:	} elsif $data ~~ Hash {
KAJI/App-Platform …/Project.pm6 :42:	if $config{$key} ~~ Array {
KAJI/App-Platform …/Project.pm6 :44:	} elsif $config{$key} ~~ Hash {
KAJI/App-Platform …/99-setup.t :68:	$found = $out ~~ / $<ip-address> = [ \d+\.\d+\.\d+\.\d+ ] /;
KAJI/App-Platform …/99-setup.t :75:	$found = $out ~~ / $<ip-address> = [ \d+\.\d+\.\d+\.\d+ ] /;
KAJI/App-Platform …/99-setup.t :118:	$found = $out ~~ / $<ip-address> = [ \d+\.\d+\.\d+\.\d+ ] /;
KAJI/App-Platform …/99-setup.t :142:	ok $proc.out.slurp-rest.Str ~~ / $project \s+ \[ \✓ \] /, "project $project is up";
KAJI/App-Platform …/99-setup.t :150:	my $found = $out.lines[*-1] ~~ / address \s $<ip-address> = [ \d+\.\d+\.\d+\.\d+ ] $$ /;
KAJI/App-Platform …/author-02-project.t :96:	ok $out ~~ / DNS \s+ \[ \✓ \] /, 'service dns is up';
KAJI/App-Platform …/author-02-project.t :97:	ok $out ~~ / Proxy \s+ \[ \✓ \] /, 'service proxy is up';
KAJI/App-Platform …/author-02-project.t :111:	ok $out ~~ / honeybee \s+ \[ \✓ \] /, 'project honeybee is up';
KAJI/App-Platform …/author-02-project.t :117:	my $found = $out.lines[*-1] ~~ / address \s $<ip-address> = [ \d+\.\d+\.\d+\.\d+ ] $$ /;
KAJI/App-Platform …/author-03-environment.t :68:	ok $out ~~ / DNS \s+ \[ \✓ \] /, 'service dns is up';
KAJI/App-Platform …/author-03-environment.t :69:	ok $out ~~ / Proxy \s+ \[ \✓ \] /, 'service proxy is up';
KAJI/App-Platform …/author-03-environment.t :105:	ok $out ~~ / project\-scorpion \s+ \[ \✓ \] /, "project-scorpion run";
KAJI/App-Platform …/author-03-environment.t :106:	ok $out ~~ / project\-ant \s+ \[ \✓ \] /, "project-ant run";
KAJI/App-Platform …/author-03-environment.t :113:	my $found = $out.Str.trim ~~ / ^ $<ip-address> = [ \d+\.\d+\.\d+\.\d+ ] /;
KAJI/App-Platform …/author-03-environment.t :167:	ok $out ~~ / project\-octopus \s+ \[ \✓ \] /, "project-octopus run";
KAJI/App-Platform …/author-03-environment.t :168:	ok $out ~~ / project\-blowfish \s+ \[ \✓ \] /, "project-blowfish run";
KAJI/App-Platform …/author-03-environment.t :176:	my $found = $out.Str.trim ~~ / ^ $<ip-address> = [ \d+\.\d+\.\d+\.\d+ ] /;
KAJI/App-Platform …/author-03-environment.t :194:	ok $out ~~ / project\-scorpion \s+ \[ \✓ \] /, 'project-scorpion stop';
KAJI/App-Platform …/author-03-environment.t :195:	ok $out ~~ / project\-ant \s+ \[ \✓ \] /, 'project-ant stop';
KAJI/App-Platform …/author-03-environment.t :198:	ok $out ~~ / project\-scorpion \s+ \[ \✓ \] /, 'project-scorpion rm';
KAJI/App-Platform …/author-03-environment.t :199:	ok $out ~~ / project\-ant \s+ \[ \✓ \] /, 'project-ant rm';
KAJI/App-Platform …/author-03-environment.t :206:	ok $out ~~ / project\-octopus \s+ \[ \✓ \] /, 'project-octopus stop';
KAJI/App-Platform …/author-03-environment.t :207:	ok $out ~~ / project\-blowfish \s+ \[ \✓ \] /, 'project-blowfish stop';
KAJI/App-Platform …/author-03-environment.t :210:	ok $out ~~ / project\-octopus \s+ \[ \✓ \] /, 'project-octopus rm';
KAJI/App-Platform …/author-03-environment.t :211:	ok $out ~~ / project\-blowfish \s+ \[ \✓ \] /, 'project-blowfish rm';
KAJI/App-Platform …/author-04-examples.t :28:	next if $line ~~ / ^total /;
KAJI/App-Platform …/author-04-examples.t :40:	next if $line ~~ / ^total /;
KAJI/App-Platform …/author-04-examples.t :54:	ok $out ~~ / word \s is \s a \s palindrome /, 'got content /b/words-from-file.p6';
KAJI/App-Platform …/author-04-examples.t :58:	ok $out ~~ / ^\# /, 'shebang found on /code/examples/perl6/hello-world.p6';
KAJI/App-Platform …/author-04-examples.t :59:	ok $out ~~ / Hello \s Perl \s 6 \s World /, 'got content /code/examples/perl6/hello-world.p6';
KAJI/App-Platform …/author-04-examples.t :65:	next if $line ~~ / ^total /;
KAJI/App-Platform …/author-04-examples.t :80:	ok $out ~~ / 'uccessfully built' /, 'openldap built and executed';
KAJI/App-Platform …/author-04-examples.t :84:	ok $out ~~ / 'uid=seppo,ou=people,dc=acme,dc=company' /, 'found seppo on ldap directory';
KOORCHIK/LIVR …/README.md :68:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/README.md :206:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Common.pm6 :13:	return if $value ~~ Hash;
KOORCHIK/LIVR …/Common.pm6 :14:	return if $value ~~ Array;
KOORCHIK/LIVR …/Common.pm6 :24:	return 'CANNOT_BE_EMPTY' if !$list.defined || ($list ~~ Str && $list eq '');
KOORCHIK/LIVR …/Common.pm6 :25:	return 'FORMAT_ERROR' unless $list ~~ Array;
KOORCHIK/LIVR …/Common.pm6 :34:	return 'FORMAT_ERROR' unless $value ~~ Hash;
KOORCHIK/LIVR …/Meta.pm6 :12:	return 'FORMAT_ERROR' unless $nested-object ~~ Hash;
KOORCHIK/LIVR …/Meta.pm6 :27:	if (@args[0] ~~ Array) {
KOORCHIK/LIVR …/Meta.pm6 :39:	return 'FORMAT_ERROR' unless $values ~~ Array;
KOORCHIK/LIVR …/Meta.pm6 :72:	return 'FORMAT_ERROR' unless $objects ~~ Array;
KOORCHIK/LIVR …/Meta.pm6 :110:	return 'FORMAT_ERROR' unless $objects ~~ Array;
KOORCHIK/LIVR …/Meta.pm6 :115:	if $object !~~ Hash || !$object{$selector-field} || !%validators{ $object{$selector-field} } {
KOORCHIK/LIVR …/Meta.pm6 :155:	if $object !~~ Hash || !$object{$selector-field} || !%validators{ $object{$selector-field} } {
KOORCHIK/LIVR …/Modifiers.pm6 :6:	return if is-no-value($value) || ($value !~~ Str && $value !~~ Numeric);
KOORCHIK/LIVR …/Modifiers.pm6 :15:	return if is-no-value($value) || ($value !~~ Str && $value !~~ Numeric);
KOORCHIK/LIVR …/Modifiers.pm6 :24:	return if is-no-value($value) || ($value !~~ Str && $value !~~ Numeric);
KOORCHIK/LIVR …/Modifiers.pm6 :33:	return if is-no-value($value) || ($value !~~ Str && $value !~~ Numeric);
KOORCHIK/LIVR …/Modifiers.pm6 :42:	return if is-no-value($value) || ($value !~~ Str && $value !~~ Numeric);
KOORCHIK/LIVR …/Numeric.pm6 :7:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Numeric.pm6 :18:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Numeric.pm6 :32:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Numeric.pm6 :44:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Numeric.pm6 :58:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Numeric.pm6 :71:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Numeric.pm6 :84:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Special.pm6 :10:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Special.pm6 :15:	return 'WRONG_EMAIL' if $email-validator.parse($value.Str)<email><domain> ~~ /_/;
KOORCHIK/LIVR …/Special.pm6 :23:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Special.pm6 :36:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Special.pm6 :56:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Special.pm6 :58:	if $value ~~ $iso-date-re {
KOORCHIK/LIVR …/String.pm6 :6:	if (@args[0] ~~ Array) {
KOORCHIK/LIVR …/String.pm6 :14:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/String.pm6 :31:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/String.pm6 :43:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/String.pm6 :55:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/String.pm6 :68:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/String.pm6 :82:	if $re ~~ Regex {
KOORCHIK/LIVR …/String.pm6 :98:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/String.pm6 :110:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/String.pm6 :120:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/Utils.pm6 :4:	return False if $value ~~ Array;
KOORCHIK/LIVR …/Utils.pm6 :5:	return False if $value ~~ Hash;
KOORCHIK/LIVR …/Utils.pm6 :10:	return $value ~~ /^\-?\d<[\d.]>*$/
KOORCHIK/LIVR …/Validator.pm6 :38:	die "RULE_BUILDER [$name] SHOULD BE A CODEREF" unless $builder ~~ Block;
KOORCHIK/LIVR …/Validator.pm6 :58:	my @field-rules = $field-rules ~~ Array ?? @$field-rules !! [$field-rules];
KOORCHIK/LIVR …/Validator.pm6 :77:	unless ( $data ~~ Hash ) {
KOORCHIK/LIVR …/Validator.pm6 :124:	if $rule ~~ Hash {
KOORCHIK/LIVR …/Validator.pm6 :126:	my $args-array = $args ~~ Array ?? $args !! [$args] ;
KOORCHIK/LIVR …/Validator.pm6 :163:	if ( $data ~~ Str ) {
KOORCHIK/LIVR …/Validator.pm6 :165:	} elsif ( $data ~~ Hash ) {
KOORCHIK/LIVR …/Validator.pm6 :173:	} elsif ( $data ~~ Array ) {
KOORCHIK/LIVR …/02-rules-registration.t :10:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/02-rules-registration.t :30:	return 'FORMAT_ERROR' if $value !~~ Str && $value !~~ Numeric;
KOORCHIK/LIVR …/02-rules-registration.t :32:	return 'NOT_ALPHANUMERIC' if $value !~~ rx:P5/^[a-z0-9]+$/;
KOORCHIK/LIVR …/02-rules-registration.t :39:	ok %rules<strong_password> ~~ Block, 'Default rules should contain "strong_password" rule';
KOORCHIK/LIVR …/02-rules-registration.t :46:	ok $rules<strong_password> ~~ Block, 'Validator rules should contain "strong_password" rule';
KOORCHIK/LIVR …/02-rules-registration.t :47:	ok $rules<alphanumeric> ~~ Block, 'Validator rules should contain "alphanumeric" rule';
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :211:	die "Username $text not accepted" if $prepped-text ~~ Bool;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :218:	die "Username $text not accepted" if $prepped-text ~~ Bool;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :226:	die "Password not accepted" if $prepped-text ~~ Bool;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :235:	$name ~~ s:g/ '=' /=3d/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :236:	$name ~~ s:g/ ',' /=2c/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :244:	$name ~~ s:g:i/ '=2c' /,/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :245:	$name ~~ s:g:i/ '=3d' /=/;
MARTIMM/Auth-SCRAM …/Client.pm6 :207:	$nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/Client.pm6 :212:	$salt ~~ s/^ 's=' //;
MARTIMM/Auth-SCRAM …/Client.pm6 :216:	$iter ~~ s/^ 'i=' //;
MARTIMM/Auth-SCRAM …/Client.pm6 :232:	if $!server-final-message ~~ m/^ 'e=' / {
MARTIMM/Auth-SCRAM …/Client.pm6 :236:	elsif $!server-final-message ~~ m/^ 'v=' / {
MARTIMM/Auth-SCRAM …/Client.pm6 :239:	$sv ~~ s/^ 'v=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :147:	$!gs2-bind-flag ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :152:	$!authzid ~~ s/^ 'a=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :166:	$!username ~~ s/^ 'n=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :167:	$!username ~~ m:g/ '=' $<code>=[.?.?] /;
MARTIMM/Auth-SCRAM …/Server.pm6 :172:	return 'invalid-encoding' unless $c<code> ~~ m:i/ '2c' | '3d' /;
MARTIMM/Auth-SCRAM …/Server.pm6 :178:	$!c-nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :186:	$!reserved-mext ~~ s/^ 'm=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :196:	$!gs2-bind-flag ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :201:	$extension ~~ s/^ $<ename>=. '=' $<eval>=(.+) $//;
MARTIMM/Auth-SCRAM …/Server.pm6 :261:	$!channel-binding ~~ s/^ 'c=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :266:	$nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :274:	$client-final-without-proof ~~ s/ ',' $proof $//;
MARTIMM/Auth-SCRAM …/Server.pm6 :280:	$proof ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :298:	$nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :303:	$salt ~~ s/^ 's=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :307:	$iter ~~ s/^ 'i=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :323:	if $!server-final-message ~~ m/^ 'e=' / {
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :327:	elsif $!server-final-message ~~ m/^ 'v=' / {
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :330:	$sv ~~ s/^ 'v=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :381:	$!gs2-bind-flag ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :386:	$!authzid ~~ s/^ 'a=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :398:	$!username ~~ s/^ 'n=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :404:	$!c-nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :409:	$!reserved-mext ~~ s/^ 'm=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :414:	$!gs2-bind-flag ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :484:	$!channel-binding ~~ s/^ 'c=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :489:	$nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :561:	$name ~~ s:g/ '=2c' /,/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :562:	$name ~~ s:g/ '=3d' /=/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :568:	$name ~~ s:g/ '=' /=3d/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :569:	$name ~~ s:g/ ',' /=2c/;
MARTIMM/Auth-SCRAM …/201-SCRAM.t :55:	ok $server-first-message ~~ m/^ 'r=' <-[,]>+ ",s=$s"/,
MARTIMM/Auth-SCRAM …/201-SCRAM.t :58:	$server-first-message ~~ m/^ 'r=' $<cs-nonce>=(<-[,]>+) /;
MELEZHIK/Sparky …/sparky-runner.pl6 :222:	my %conf = $conf-file.IO ~~ :e ?? load-yaml(slurp $conf-file) !! Hash.new;
MELEZHIK/Sparky …/sparky-runner.pl6 :226:	if %conf<database> && %conf<database><engine> && %conf<database><engine> !~~ / :i sqlite / {
MELEZHIK/Sparky …/sparky-runner.pl6 :249:	if "$dir/sparky.yaml".IO ~~ :f {
MELEZHIK/Sparky …/sparky-runner.pl6 :251:	$yaml-str ~~ s:g/'%' BUILD '-' ID '%'/$SPARKY-BUILD-ID/ if $SPARKY-BUILD-ID;
MELEZHIK/Sparky …/sparky-runner.pl6 :252:	$yaml-str ~~ s:g/'%' BUILD '-' STATE '%'/$SPARKY-BUILD-STATE/ if $SPARKY-BUILD-STATE;
MELEZHIK/Sparky …/sparky-runner.pl6 :253:	$yaml-str ~~ s:g/'%' PROJECT '%'/$SPARKY-PROJECT/ if $SPARKY-PROJECT;
MELEZHIK/Sparky …/sparky-web.pl6 :33:	if "$reports-dir/$project/build-$build_id.txt".IO ~~ :f {
MELEZHIK/Sparky …/sparky-web.pl6 :41:	if "$root/$project/sparrowfile".IO ~~ :f {
MELEZHIK/Sparky …/sparky-web.pl6 :44:	if "$root/$project/sparky.yaml".IO ~~ :f {
MELEZHIK/Sparky …/sparky-web.pl6 :88:	my %conf = $conf-file.IO ~~ :e ?? load-yaml(slurp $conf-file) !! Hash.new;
MELEZHIK/Sparky …/sparky-web.pl6 :92:	if %conf<database> && %conf<database><engine> && %conf<database><engine> !~~ / :i sqlite / {
MELEZHIK/Sparky …/sparkyd :16:	next if "$dir".IO ~~ :f;
MELEZHIK/Sparky …/sparkyd :20:	next unless "$dir/sparrowfile".IO ~~ :f;
MELEZHIK/Sparky …/sparkyd :51:	$proc-run.out.get ~~ m/(\d+)/;
MELEZHIK/Sparky …/sparkyd :61:	if "$dir/sparky.yaml".IO ~~ :f {
MELEZHIK/Sparky …/db-init.pl6 :16:	my %conf = $conf-file.IO ~~ :e ?? load-yaml(slurp $conf-file) !! Hash.new;
MELEZHIK/Sparky …/db-init.pl6 :24:	if %conf<database> && %conf<database><engine> && %conf<database><engine> !~~ / :i sqlite / {
MELEZHIK/Sparky …/db-init.pl6 :48:	if $engine ~~ /:i sqlite/ {
MELEZHIK/Sparky …/bootstrap.min.js :6:	if("undefined"==typeof jQuery)throw new Error("Bootstrap's JavaScript requires jQuery");+function(a){"use strict";var b=a.fn.jquery.split(" ")[0].spl…
MELEZHIK/Sparrowdo …/README :463:	if target_os() ~~ m/centos/ {
MELEZHIK/Sparrowdo …/README.md :463:	if target_os() ~~ m/centos/ {
MELEZHIK/Sparrowdo …/sparrowdo :64:	if $conf-ini-file.IO ~~ :e {
MELEZHIK/Sparrowdo …/sparrowfile :3:	if target_os() ~~ m/centos/ {
MELEZHIK/Sparrowdo …/sparrowfile :15:	if target_os() ~~ m/minoca/ {
MELEZHIK/Sparrowdo …/sparrowfile :1:	if target_os() ~~ m/minoca/ {
MELEZHIK/Sparrowdo …/sparrowfile :9:	if target_os() ~~ m/minoca/ {
MELEZHIK/Sparrowdo …/sparrowfile :3:	if target_os() ~~ m/centos/ {
MELEZHIK/Sparrowdo …/sparrowfile :9:	if target_os() ~~ m/ubuntu/ {
MELEZHIK/Sparrowdo …/sparrowfile :2:	if target_os() ~~ m/centos/ {
MELEZHIK/Sparrowdo …/sparrowfile :3:	if target_os() ~~ m/centos/ {
MELEZHIK/Sparrowdo …/sparrowfile :10:	if target_os() ~~ m/ubuntu/ {
MELEZHIK/Sparrowdo …/Sparrowdo.pm6 :120:	if $p ~~ /(\S+)\@(.*)/ {
MELEZHIK/Sparrowdo …/Sparrowdo.pm6 :142:	if ( $name ~~ /(\S+)\@(.*)/ ) {
MELEZHIK/Sparrowdo …/Sparrowdo.pm6 :145:	for split(/\,/,$params) -> $p { %mod-args{$0.Str} = $1.Str if $p ~~ /(\S+?)\=(.*)/ };
MELEZHIK/Sparrowform …/sparrowform :12:	next unless $pid ~~ /^ \d+ $/;
MELEZHIK/Sparrowform …/sparrowform :28:	if $line ~~ /^ (\S+) ':' $/ { # set new resource
MELEZHIK/Sparrowform …/sparrowform :34:	if $line ~~ /^ \s+ (\S+) \s+ '=' \s+ (.*) $/ { # read resource attrubutes
MELEZHIK/Sparrowform …/sparrowform :55:	if $sparrow-params ~~ /task_run/ or $sparrow-params ~~ /module_run/ {
MORITZ/JSON-Tiny …/01-parse.t :200:	if $desc ~~ m/\n/ {
MORITZ/JSON-Tiny …/01-parse.t :214:	if $desc ~~ m/\n/ {
MOZNION/Backtrace-AsHTML …/AsHTML.pm6 :117:	(my $l = $line) ~~ s:global/\t/ /;
MOZNION/Log-Minimal …/Minimal.pm6 :98:	.grep({ $_.annotations ~~ Hash })
MOZNION/Log-Minimal …/050_color.t :16:	if $out ~~ m{^ <timestamp> ' [CRITICAL] ' (.+) ' at t/050_color.t line 13' \n $} {
MOZNION/Log-Minimal …/050_color.t :29:	if $out ~~ rx{^ <timestamp> ' [WARN] ' (.+) ' at t/050_color.t line 26' \n $} {
MOZNION/Log-Minimal …/050_color.t :41:	if $out ~~ rx{^ <timestamp> ' [INFO] ' (.+) ' at t/050_color.t line 38' \n $} {
MOZNION/Log-Minimal …/050_color.t :54:	if $out ~~ rx{^ <timestamp> ' [DEBUG] ' (.+) ' at t/050_color.t line 51' \n $} {
MOZNION/Router-Boost …/Boost.pm6 :61:	$p ~~ s!^'/'!!;
MZIESCHA/Bailador-Plugin-NamedQueries …/00-lint.t :48:	if $line ~~ rx/use \s+ ( <-[;]> + ) \s* ';'/ {
MZIESCHA/DBIx-NamedQueries …/00-lint.t :48:	if $line ~~ rx/use \s+ ( <-[;]> + ) \s* ';'/ {
NINE/Distribution-Builder-MakeFromJSON …/MakeFromJSON.pm6 :56:	next unless $value ~~ Map;
NINE/Distribution-Builder-MakeFromJSON …/MakeFromJSON.pm6 :77:	$makefile ~~ s:g/\%$k\%/$v/;
NINE/Distribution-Builder-MakeFromJSON …/MakeFromJSON.pm6 :89:	$so ~~ s/^.*\%s//;
NINE/Distribution-Builder-MakeFromJSON …/MakeFromJSON.pm6 :102:	$ldusr ~~ s/\%s//;
NINE/Distribution-Builder-MakeFromJSON …/MakeFromJSON.pm6 :129:	#$ldusr ~~ s/\%s//;
NINE/Inline-Perl5 …/configure.pl6 :26:	$makefile ~~ s:g/\%$k\%/$v/;
NINE/Inline-Perl5 …/Perl5.pm6 :707:	if try ::($module) ~~ Inline::Perl5::Extension {
NINE/Inline-Perl5 …/Perl5.pm6 :716:	next if try ::($package) ~~ Inline::Perl5::Extension;
NINE/Inline-Perl5 …/Extension.pm6 :58:	callframe(1).code ~~ Inline::Perl5::Caller
NINE/Inline-Perl5 …/Parent.pm6 :34:	callframe(1).code ~~ Inline::Perl5::Caller
NINE/Inline-Perl5 …/exceptions.t :14:	ok $!.Str() ~~ m/foo/, 'exception message found';
NINE/Inline-Perl5 …/exceptions.t :25:	ok $!.Str() ~~ m/foo/, 'exception message found from function call';
NINE/Inline-Perl5 …/exceptions.t :39:	ok $_.Str() ~~ m/foo/, 'exception message found from method call';
NINE/Inline-Perl5 …/exceptions.t :59:	ok $_.Str() ~~ m/foo/, 'exception message found from method call';
NINE/Inline-Perl5 …/exceptions.t :115:	ok $_.Str() ~~ m/foo/, 'exception message found from method call';
ROBERTLE/Cache-Async …/01-basics.t :19:	ok((await $cache.get("Y")) ~~ /'Y/' <digit>/, "returned content matches producer output");
ROBERTLE/CucumisSextus …/README.md :228:	if $feature.tags.first(* ~~ 'hooked') {
ROBERTLE/CucumisSextus …/cucumis6 :26:	if $c.f && $c ~~ /\.feature$/ {
ROBERTLE/CucumisSextus …/cucumis6 :79:	if $mod.f && $mod ~~ /.pm6?$/ {
ROBERTLE/CucumisSextus …/Core.pm6 :42:	while $text ~~ /\< (<-[\>]>+) \>/ {
ROBERTLE/CucumisSextus …/Core.pm6 :46:	$text ~~ s/\< $match \>/$replacement/;
ROBERTLE/CucumisSextus …/Tags.pm6 :86:	if $text ~~ m:g/^\s*('@'(<[A..Za..z0..9_.-]>+)\s*)+$/ {
ROBERTLE/CucumisSextus …/StepDefs.pm6 :105:	if $feature.tags.first(* ~~ 'hooked') {
ROBERTLE/CucumisSextus …/StepDefs.pm6 :111:	if $feature.tags.first(* ~~ 'hooked') {
SACOMO/Magento …/HTTP.pm6 :21:	$uri !~~ /'integration'/
SACOMO/Magento …/HTTP.pm6 :48:	my $content_type = 'application/' ~ ($format ~~ 'default' ?? 'json' !! $format);
SACOMO/Magento …/Utils.pm6 :39:	++$filtergroup_i when $v.values[0][0].keys.any ~~ 'field'|'value'|'condition_type';
SACOMO/Magento …/Utils.pm6 :58:	$v ~~ Array ?? "" !! "{$parent}[";
SACOMO/Magento …/Utils.pm6 :84:	Hash $data where $data ~~ Empty
SACOMO/Magento …/Utils.pm6 :120:	take build-filter($set) when $set.all ~~ Str;
SACOMO/Magento …/Utils.pm6 :121:	take nested-filters($set) when $set.all !~~ Str;
SACOMO/Magento …/Utils.pm6 :134:	) when $filters.all ~~ Str;
SACOMO/Magento …/Utils.pm6 :145:	join '', grep {$_ !~~ /^':'/}, split '/', $str ~~ m/ [\S* \s* '/V1/'] <(\S*)> /;
SACOMO/Magento …/generate-sub-docs.pl6 :32:	next if $file.path ~~ / 'Auth'|'CLI'|'Config'|'HTTP'|'Utils' /;
SACOMO/Magento …/generate-sub-docs.pl6 :57:	$path.split('/')[2..*].grep({ $_ ~~ /':'/}).map: -> $opt {
SACOMO/Magento …/generate-subs.pl6 :16:	decamelize (S/'-'$// given $line.match(/^ \S* \s* (\S*) $/).Str.split('/')[2..*].grep({ $_ !~~ /':'/}).join('-')), '-';
SACOMO/Magento …/generate-subs.pl6 :35:	my @params = $route.split('/')[2..*].grep({ $_ ~~ /':'/});
SACOMO/Magento …/generate-subs.pl6 :36:	push @params, 'search_criteria = %{}' when $route ~~ /'search'/;
SACOMO/Magento …/generate-subs.pl6 :39:	my $sub_name = decamelize (S/'-'$// given $route.split('/')[2..*].grep({ $_ !~~ /':'/}).join('-')), '-';
SACOMO/Magento …/generate-subs.pl6 :55:	print "\nour {$sub_name_count > 1 && $http_method !~~ 'DELETE' ?? 'multi' !! 'sub'} {$sub_name}{'-delete' when $http_method ~~ 'DELETE'}(";
SACOMO/Magento …/generate-subs.pl6 :58:	print "\n Hash \$config" ~ (@params.elems > 0 || $http_method ~~ 'POST'|'PUT' ?? ',' !! '');
SACOMO/Magento …/generate-subs.pl6 :66:	do (if $_ ~~ /<[Ii]>'d'$/ {
SACOMO/Magento …/generate-subs.pl6 :68:	} elsif $_ ~~ /'search_criteria'/ {
SACOMO/Magento …/generate-subs.pl6 :73:	('!' when $route !~~ /'search'/)
SACOMO/Magento …/generate-subs.pl6 :77:	print ",\n" when $http_method ~~ 'POST'|'PUT' && @params.elems > 0;
SACOMO/Magento …/generate-subs.pl6 :80:	print ("\n" when @params.elems eq 0) ~ " Hash :\$data!" when $http_method ~~ 'POST'|'PUT';
SACOMO/Magento …/generate-subs.pl6 :83:	print "\n)" ~ ($sub_name_count eq 1 || $http_method ~~ 'DELETE' ?? ' is export' !! '') ~ " \{\n";
SACOMO/Magento …/generate-subs.pl6 :86:	print " my \$query_string = search-criteria-to-query-string \$search_criteria;\n" when $route ~~ /'search'/;
SACOMO/Magento …/generate-subs.pl6 :100:	uri => "{$route_formatted}{"?\$query_string" when $route ~~ /'search'/}"{",\n content => to-json \$data" when $http_method ~~ 'POST'|'PUT'};
SACOMO/Magento …/generate-test-data.pl6 :16:	decamelize (S/'-'$// given $line.match(/^ \S* \s* (\S*) $/).Str.split('/')[2..*].grep({ $_ !~~ /':'/}).join('-')), '-';
SACOMO/Magento …/generate-test-data.pl6 :34:	my $sub_name = decamelize (S/'-'$// given $route.split('/')[2..*].grep({ $_ !~~ /':'/}).join('-')), '-';
SACOMO/Magento …/generate-test-data.pl6 :35:	next when @processed_subs (cont) $sub_name || $http_method ~~ 'DELETE'|'GET';
SACOMO/Magento …/generate-tests.pl6 :16:	decamelize (S/'-'$// given $line.match(/^ \S* \s* (\S*) $/).Str.split('/')[2..*].grep({ $_ !~~ /':'/}).join('-')), '-';
SACOMO/Magento …/generate-tests.pl6 :44:	my @params = $route.split('/')[2..*].grep({ $_ ~~ /':'/});
SACOMO/Magento …/generate-tests.pl6 :45:	push @params, 'search_criteria' when $route ~~ /'search'/;
SACOMO/Magento …/generate-tests.pl6 :48:	my $sub_name = decamelize (S/'-'$// given $route.split('/')[2..*].grep({ $_ !~~ /':'/}).join('-')), '-';
SACOMO/Magento …/generate-tests.pl6 :62:	print "\n my \%t{$this_sub_index}_data = {$mod_name}::{$sub_name}();\n" when $http_method ~~ 'POST'|'PUT';
SACOMO/Magento …/generate-tests.pl6 :64:	print " {$sub_name}{'-delete' when $http_method ~~ 'DELETE'} ";
SACOMO/Magento …/generate-tests.pl6 :65:	print "\n " when @params.elems > 0 || $http_method ~~ 'POST'|'PUT';
SACOMO/Magento …/generate-tests.pl6 :66:	print "\%config{@params.elems > 0 || $http_method ~~ 'POST'|'PUT' ?? ',' !! ''}";
SACOMO/Magento …/generate-tests.pl6 :71:	my $max_space = ($http_method ~~ 'POST'|'PUT' ?? ($param_max_length > 4 ?? $param_max_length !! 4) !! $param_max_length) + 1;
SACOMO/Magento …/generate-tests.pl6 :83:	"=> \%t{$this_sub_index}_data" when $http_method ~~ 'POST'|'PUT';
SACOMO/Magento …/00-customer.t :89:	is so $t1_results.any.grep({$_<attribute_code> ~~ 'website_id'}), True, 'customer metadata all';
SACOMO/Magento …/00-customer.t :97:	is so $t3_results.any.grep({$_<attribute_code> ~~ 'created_at'}), True, 'customer metadata form';
SACOMO/Magento …/00-customer.t :109:	is so $t6_results.any.grep({$_<frontend_label> ~~ 'Name Prefix'}), True, 'customer metadata address form';
SACOMO/Magento …/00-customer.t :113:	is so $t7_results.any.grep({$_<frontend_label> ~~ 'Name Prefix'}), True, 'customer metadata address';
SACOMO/Magento …/01-catalog.t :123:	is so $t5_results.grep({$_<attribute_code> ~~ 'image'}), True, 'products attribute sets attributes all';
SACOMO/Magento …/01-catalog.t :229:	my $t2_option_id = %t2_attribute<options>.grep({$_<label> ~~ 'Delete Me'}).head<value>.Int;
SACOMO/Magento …/01-catalog.t :323:	is $t1_results.grep({$_<code> ~~ 'date'}).head<label>, 'Date', 'products custom options types';
SACOMO/Magento …/01-catalog.t :331:	is $t3_results.grep({$_<title> ~~ 'Delete Me'}).head<type>, 'multiple', 'products custom options by sku';
SACOMO/Magento …/02-quote.t :72:	is $t1_results ~~ Int, True, 'carts billing-address new';
SACOMO/Magento …/02-quote.t :205:	is so @t1_results.any.grep({ $_<code> ~~ 'banktransfer' }), True, 'carts payment-methods by cart_id';
SACOMO/Magento …/02-quote.t :284:	is $t1_results ~~ Int, True, 'customers carts new';
SACOMO/Magento …/02-quote.t :351:	is $t3_results ~~ Int, True, 'guest carts-billing-address new';
SACOMO/Magento …/02-quote.t :481:	is $t13_results ~~ Int, True, 'guest carts-selected-payment-method update';
SACOMO/Magento …/02-quote.t :488:	is so @t14_results.any.grep({ $_<code> ~~ 'checkmo' }), True, 'guest carts-payment-methods by cart_id';
SACOMO/Magento …/02-quote.t :495:	is so @t15_results.any.grep({ $_<carrier_code> ~~ 'flatrate' }), True, 'guest carts-shipping-methods by cart_id';
SACOMO/Magento …/02-quote.t :535:	is so $t20_results.any.grep({ $_<carrier_code> ~~ 'flatrate' }), True, 'guest carts-estimate-shipping-methods assign';
SACOMO/Magento …/02-quote.t :564:	is $t23_results ~~ Int, True, 'guest carts-order place order';
SACOMO/Magento …/02-quote.t :582:	is $t1_results ~~ Int, True, 'carts mine new';
SACOMO/Magento …/02-quote.t :607:	is $t1_results ~~ Int, True, 'carts mine billing-address new';
SACOMO/Magento …/02-quote.t :716:	is $t4_results ~~ Int, True, 'carts-mine-selected-payment-method update';
SACOMO/Magento …/02-quote.t :720:	is so @t5_results.any.grep({ $_<code> ~~ 'checkmo' }), True, 'carts-mine-payment-methods by cart_id';
SACOMO/Magento …/02-quote.t :724:	is so @t6_results.any.grep({ $_<carrier_code> ~~ 'flatrate' }), True, 'carts-mine-shipping-methods by cart_id';
SACOMO/Magento …/02-quote.t :785:	is so $t1_results.any.grep({ $_<carrier_code> ~~ 'flatrate' }), True, 'carts-mine-estimate-shipping-methods assign';
SACOMO/Magento …/02-quote.t :834:	is $t1_results ~~ Int, True, 'carts-mine-order place order';
SACOMO/Magento …/02-quote.t :862:	$_<billing_address><email> ~~ $customer_email
SACOMO/Magento …/03-sales.t :146:	$_.key !~~ 'payment'|'state'|'status'|'status_histories'|'quote_id'|'order_id'|'extension_attributes'
SACOMO/Magento …/03-sales.t :154:	my %t1_order_new = %t1_order.grep({ $_.key !~~ 'payment'|'status_histories' });
SACOMO/Magento …/03-sales.t :274:	is $t1_results ~~ Int, True, 'order ship new';
SACOMO/Magento …/03-sales.t :313:	is $t1_results ~~ Int, True, 'order invoice new';
SACOMO/Magento …/03-sales.t :587:	is $t2_results ~~ Int, True, 'shipment track delete';
SACOMO/Magento …/05-bundle.t :57:	is $t1_results ~~ Int, True, 'bundle products-links new';
SACOMO/Magento …/05-bundle.t :90:	is $t2_results ~~ Int, True, 'bundle products-options update';
SACOMO/Magento …/05-bundle.t :103:	is $t1_results ~~ Int, True, 'bundle products-options-add new';
SACOMO/Magento …/05-bundle.t :111:	is so $t1_results.any.grep({$_<code> ~~ 'radio'}), True, 'bundle products-options-types all';
SACOMO/Magento …/06-cataloginventory.t :44:	is $t1_results ~~ Int, True, 'products stock-items update';
SACOMO/Magento …/06-cataloginventory.t :54:	is $t1_results<items> ~~ Array, True, 'stock items-low-stock all';
SACOMO/Magento …/07-checkout.t :101:	is $t2_results ~~ Int, True, 'carts mine-payment-information new';
SACOMO/Magento …/07-checkout.t :287:	is $t2_results ~~ Int, True, 'guest carts-payment-information new';
SACOMO/Magento …/07-checkout.t :306:	#is $t4_results ~~ Int, True, 'guest carts-set-payment-information new';
SACOMO/Magento …/08-cms.t :62:	$block_content = $t1_results<items>.grep({ $_<identifier> ~~ 'new-block' }).head<content>;
SACOMO/Magento …/08-cms.t :63:	is so $t4_results<items>.head<content> ~~ / 'Delete Me Block' /, True, 'cms block-search all';
SACOMO/Magento …/08-cms.t :139:	is $t1_results<items> ~~ Array, True, 'cms page-search all';
SACOMO/Magento …/09-configurableproduct.t :38:	my ($attribute_group_id) = gather %attribute_groups<items>.map({take $_<attribute_group_id> when $_<attribute_group_name> ~~ 'Product Details'});
SACOMO/Magento …/09-configurableproduct.t :88:	is so $t1_results.grep({$_<label> ~~ 'Collection' }), True, 'configurable products-options-all all';
SACOMO/Magento …/09-configurableproduct.t :117:	# is $t2_results ~~ Int, True, 'configurable products-options new';
SACOMO/Magento …/09-configurableproduct.t :129:	is $t3_results ~~ Int, True, 'configurable products-options update';
SACOMO/Magento …/10-directory.t :21:	is $t1_results.grep({$_<three_letter_abbreviation> ~~ 'USA'}).head<id> ~~ 'US', True, 'directory countries all';
SACOMO/Magento …/11-downloadable.t :28:	is so $t1_results.any.grep({$_<link_type> ~~ 'file'}), True, 'products downloadable-links all';
SACOMO/Magento …/11-downloadable.t :38:	is $t2_results ~~ Int, True, 'products downloadable-links new';
SACOMO/Magento …/11-downloadable.t :49:	is $t3_results ~~ Int, True, 'products downloadable-links update';
SACOMO/Magento …/11-downloadable.t :67:	is $t1_results.head<sample_type> ~~ 'url', True, 'products downloadable-links-samples all';
SACOMO/Magento …/11-downloadable.t :77:	is $t2_results ~~ Int, True, 'products downloadable-links-samples new';
SACOMO/Magento …/11-downloadable.t :88:	is $t3_results ~~ Int, True, 'products downloadable-links-samples update';
SACOMO/Magento …/11-downloadable.t :95:	is $t3_results ~~ Int, True, 'products downloadable-links-samples delete';
SACOMO/Magento …/12-eav.t :59:	is so $t1_results<items>.grep({ $_<attribute_set_name> ~~ 'Default' }), True, 'eav attribute-sets-list all';
SACOMO/Magento …/15-salesrule.t :55:	is so $t1_results<items>.grep({$_<name> ~~ 'DeleteMeSalesRuleTest'}), True, 'sales rules-search all';
SACOMO/Magento …/15-salesrule.t :171:	is $t1_results<items> ~~ Array, True, 'coupons search all';
SACOMO/Magento …/16-search.t :41:	is $t1_results<aggregations><buckets> ~~ Array, True, 'search all';
SACOMO/Magento …/17-store.t :22:	is so $t1_results.grep({$_<base_currency_code> ~~ 'USD'}), True, 'store store-configs all';
SACOMO/Magento …/17-store.t :31:	is so $t1_results.grep({$_<code> ~~ 'default'}), True, 'store store-groups all';
SACOMO/Magento …/17-store.t :40:	is so $t1_results.grep({$_<code> ~~ 'default'}), True, 'store store-views all';
SACOMO/Magento …/17-store.t :49:	is so $t1_results.grep({$_<code> ~~ 'base'}), True, 'store websites all';
SACOMO/Magento …/18-tax.t :32:	is $t1_results ~~ Int, True, 'tax classes new';
SACOMO/Magento …/18-tax.t :47:	is $t3_results ~~ Int, True, 'tax classes update';
SACOMO/Magento …/18-tax.t :184:	is $t4_results<items>.head<code> ~~ 'RuleDeleteMe', True, 'tax rules-search all';
SAMGWISE/Music-Engine …/CounterPoint.pm6 :145:	when * ~~ $!perfect-consonants.keys.any {
SAMGWISE/Music-Engine …/CounterPoint.pm6 :148:	when * ~~ $!imperfect-consonants.keys.any {
SAMGWISE/Music-Engine …/CounterPoint.pm6 :177:	and self.classify-quality(self.chromatic.interval($known, $option).Int) ~~ $quality
SAMGWISE/Music-Engine …/CurveMD.pm6 :66:	when $tuple.gist ~~ "IterationEnd" {
SAMGWISE/Result …/OK.pm6 :13:	if $!value ~~ $!type {
SAMGWISE/ScaleVec …/ScaleVec.pm6 :101:	if $step ~~ Rational {
SAMGWISE/ScaleVec …/ScaleVec.pm6 :122:	if $value ~~ Rational {
SAMGWISE/ScaleVec …/Graph.pm6 :51:	take $pv unless $pv ~~ self
SAMGWISE/ScaleVec …/System.pm6 :19:	if $symbol ~~ any(%!graph.keys)
SAMGWISE/ScaleVec …/Foundation.pm6 :28:	return $l if $r ~~ Result::Err;
SAMGWISE/ScaleVec …/Intervalic.pm6 :42:	# elsif $step ~~ Int {
SAMGWISE/Seq-PreFetch …/PreFetch.pm6 :58:	last if $current ~~ Any:U;
SAMGWISE/Slang-Predicate …/README.md :33:	<td>T ~~ True</td>
SAMGWISE/Slang-Predicate …/README.md :38:	<td>F ~~ False</td>
SAMGWISE/Slang-Predicate …/README.md :53:	<td>T ~~ True</td>
SAMGWISE/Slang-Predicate …/README.md :58:	<td>F ~~ False</td>
SAMGWISE/Slang-Predicate …/README.md :63:	<td>T ∨ F ~~ True</td>
SAMGWISE/Slang-Predicate …/README.md :68:	<td>T ∧ F ~~ False</td>
SAMGWISE/Slang-Predicate …/README.md :73:	<td>T ⊻ F ~~ True</td>
SAMGWISE/Slang-Predicate …/README.md :78:	<td>T → F ~~ False</td>
SAMGWISE/Slang-Predicate …/README.md :83:	<td>T ↔ F ~~ False</td>
SAMGWISE/Slang-Predicate …/README.md :98:	<td>¬T ~~ False</td>
SAMGWISE/Slang-Predicate …/README.md :103:	<td>⊤F ~~ True</td>
SAMGWISE/Slang-Predicate …/README.md :108:	<td>⊥T ~~ False</td>
SAMGWISE/Slang-Predicate …/Predicate.pm6 :28:	True | T | T ~~ True
SAMGWISE/Slang-Predicate …/Predicate.pm6 :29:	False | F | F ~~ False
SAMGWISE/Slang-Predicate …/Predicate.pm6 :35:	True | T | T ~~ True
SAMGWISE/Slang-Predicate …/Predicate.pm6 :36:	False | F | F ~~ False
SAMGWISE/Slang-Predicate …/Predicate.pm6 :37:	Disjunction | ∨ | T ∨ F ~~ True
SAMGWISE/Slang-Predicate …/Predicate.pm6 :38:	Conjunction | ∧ | T ∧ F ~~ False
SAMGWISE/Slang-Predicate …/Predicate.pm6 :39:	Exclusive disjunction | ⊻ or ⊕ | T ⊻ F ~~ True
SAMGWISE/Slang-Predicate …/Predicate.pm6 :40:	Conditional | → or ⇒ or ⊃ | T → F ~~ False
SAMGWISE/Slang-Predicate …/Predicate.pm6 :41:	Biconditional | ↔ or ⇔ or ≡ | T ↔ F ~~ False
SAMGWISE/Slang-Predicate …/Predicate.pm6 :47:	Negation | ¬ | ¬T ~~ False
SAMGWISE/Slang-Predicate …/Predicate.pm6 :48:	Verum | ⊤ | ⊤F ~~ True
SAMGWISE/Slang-Predicate …/Predicate.pm6 :49:	Falsum | ⊥ | ⊥T ~~ False
SAMGWISE/Test-SourceFiles …/SourceFiles.pm6 :75:	if $_.extension ~~ $extensions.any {
SCIMON/Algorithm-GooglePolylineEncoding …/GooglePolylineEncoding.pm6 :63:	multi sub encode-polyline( @pairs where { $_.all ~~ Hash } ) returns Str is export {
SCIMON/Algorithm-GooglePolylineEncoding …/GooglePolylineEncoding.pm6 :68:	multi sub encode-polyline( **@pairs where { $_.all ~~ Hash } ) returns Str is export {
SCIMON/Algorithm-GooglePolylineEncoding …/GooglePolylineEncoding.pm6 :73:	multi sub encode-polyline( *@points where { $_.all ~~ Real && $_.elems %% 2 } ) returns Str is export {
SCIMON/Algorithm-GooglePolylineEncoding …/GooglePolylineEncoding.pm6 :84:	my @values = $encoded.comb(/ .*? (.) <?{ $/[0] ~~ END-VALUES }> /).map( &decode-str );
SCIMON/Game-Sudoku …/Sudoku.pm6 :5:	subset GridCode of Str where * ~~ /^ <[0..9]> ** 81 $/;
SCIMON/Proc-InvokeEditor …/InvokeEditor.pm6 :31:	multi method editors(Proc::InvokeEditor:D: +@new-editors where { $_.all ~~ Str } --> Array[Str]) {
SCIMON/Proc-InvokeEditor …/InvokeEditor.pm6 :39:	multi method editors_env(Proc::InvokeEditor:D: +@keys where { $_.all ~~ Str } --> Array[Str] ) {
SCIMON/Proc-InvokeEditor …/InvokeEditor.pm6 :64:	if $test-file.IO ~~ :e & :x {
SCIMON/Test-HTTP-Server …/Server.pm6 :7:	multi sub get-type ( Str $path where * ~~ rx/\. html $/ ) { 'text/html' }
SCIMON/Timer-Breakable …/README.md :17:	say $timer.result if $timer.status ~~ Kept;
SCIMON/Timer-Breakable …/Breakable.pm6 :20:	say $timer.result if $timer.status ~~ Kept;
SKAJI/App-Mi6 …/Mi6.pm6 :36:	$module ~~ s:g/ '-' /::/;
SKAJI/App-Mi6 …/Mi6.pm6 :38:	$main-dir ~~ s:g/ '::' /-/;
SKAJI/App-Mi6 …/Mi6.pm6 :39:	die "Already exists $main-dir" if $main-dir.IO ~~ :d;
SKAJI/App-Mi6 …/Mi6.pm6 :152:	my $meta-file = <META6.json META.info>.grep({.IO ~~ :f & :!l})[0];
SKAJI/App-Mi6 …/Mi6.pm6 :165:	$perl ~~ s/^v//;
SKAJI/App-Mi6 …/Mi6.pm6 :214:	if $content ~~ /^^
SKAJI/App-Mi6 …/Mi6.pm6 :232:	* ~~ rx/\.precomp/,
SKAJI/App-Mi6 …/Mi6.pm6 :244:	@prune.push: * ~~ rx/<{$v}>/;
SKAJI/App-Mi6 …/Mi6.pm6 :298:	if $url ~~ m/'git@' $<host>=[.+] ':' $<repo>=[<-[:]>+] $/ {
SKAJI/App-Mi6 …/Mi6.pm6 :300:	} elsif $url ~~ m/'ssh://git@' $<rest>=[.+] / {
SKAJI/App-Mi6 …/Mi6.pm6 :309:	if $url ~~ m{ (git|https?) '://'
SKAJI/App-Mi6 …/Mi6.pm6 :329:	die "Must run in the top directory" unless "lib".IO ~~ :d;
SKAJI/App-Mi6 …/Mi6.pm6 :347:	$dir ~~ s/^ (perl6|p6) '-' //;
SKAJI/App-Mi6 …/Mi6.pm6 :349:	my @found = @module-files.grep(-> $f { $f ~~ m:i/$module . pm6?$/});
SKAJI/App-Mi6 …/JSON.pm6 :10:	$k => $v ~~ Associative ?? self.new(%($v)) !! $v;
SKAJI/App-Mi6 …/Release.pm6 :66:	%opt = |%opt, |%($res) if $res ~~ Associative;
SKAJI/App-Mi6 …/BumpVersion.pm6 :44:	die "'$answer' is not a supported version string.\n" if $answer !~~ rx/^ $VERSION-REGEXP $/;
SKAJI/App-Mi6 …/BumpVersion.pm6 :60:	next if $line ~~ /'# No BumpVersion'/;
SKAJI/App-Mi6 …/BumpVersion.pm6 :61:	if $line ~~ $PACKAGE-LINE {
SKAJI/App-Mi6 …/CheckChanges.pm6 :22:	die 'Changes file does not have {{$NEXT}} notation.' ~ "\n" if $content !~~ /'{{$NEXT}}'/;
SKAJI/App-Mi6 …/CheckChanges.pm6 :24:	if $content !~~ /^^ '{{$NEXT}}' \n+ <[\ \t]>+ \S/ {
SKAJI/App-Mi6 …/GitCommit.pm6 :22:	if $content ~~ rx{ 'ref: refs/heads/' (\S+) } {
SKAJI/App-Mi6 …/UploadToCPAN.pm6 :17:	if $answer ~~ rx:i/^y(es)?$/ {
SKAJI/App-Mi6 …/UploadToCPAN.pm6 :19:	} elsif $answer ~~ /^n(o)?$/ {
SKAJI/CPAN-Uploader-Tiny …/Tiny.pm6 :30:	$content !~~ / 'BEGIN PGP MESSAGE' /;
SKAJI/CPAN-Uploader-Tiny …/Tiny.pm6 :42:	if $line ~~ /^ $<key>=(\S+) \s+ $<value>=(\S+)/ {
SKAJI/CPAN-Uploader-Tiny …/MultiPart.pm6 :32:	$content .= encode if $content !~~ Buf;
SKAJI/HTTP-Tinyish …/Base.pm6 :14:	$header ~~ s/.*^^(HTTP\/\d[\.\d]? )/$/[0]/;
SKAJI/HTTP-Tinyish …/Base.pm6 :17:	if $header ~~ /^(.*?\x0d?\x0a\x0d?\x0a)/ {
SKAJI/HTTP-Tinyish …/Base.pm6 :37:	return unless $proto and $proto ~~ /:i ^ HTTP \/ \d+ [ \. \d+ ]? $/;
SKAJI/HTTP-Tinyish …/Base.pm6 :41:	%res<success> = so $status ~~ /^[2|304]/;
SKAJI/HTTP-Tinyish …/Base.pm6 :49:	if $header ~~ s/^($token) \: ' '?// {
SKAJI/HTTP-Tinyish …/Base.pm6 :51:	} elsif $header ~~ /^\s+/ {
SKAJI/HTTP-Tinyish …/Base.pm6 :58:	%res<headers>{$k} = [%res<headers>{$k}] unless %res<headers>{$k} ~~ Positional;
SKAJI/HTTP-Tinyish …/Base.pm6 :68:	my $length = $message ~~ Buf ?? $message.elems !! $message.chars;
SKAJI/HTTP-Tinyish …/Curl.pm6 :122:	if %opts<content> ~~ Callable {
SKAJI/HTTP-Tinyish …/Curl.pm6 :124:	$data-fh.write($chunk ~~ Str ?? $chunk.encode !! $chunk);
SKAJI/HTTP-Tinyish …/Curl.pm6 :127:	$data-fh.write(%opts<content> ~~ Str ?? %opts<content>.encode !! %opts<content>);
SKAJI/HTTP-Tinyish …/Curl.pm6 :136:	if $value ~~ Positional {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :319:	if $units ~~ m:i/deg/ {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :322:	elsif $units ~~ m:i/rad/ {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :327:	"degrees or radians (the default)") unless $units ~~ m:i/rad/;
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :372:	if $unit ~~ m:i/^$re/ {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :383:	if $unit.WHAT ~~ Num {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :559:	if $key ~~ m:i/^ell/ {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :562:	elsif $key ~~ m:i/^uni/ {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :565:	elsif $key ~~ m:i/^dis/ {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :568:	elsif $key ~~ m:i/^lon/ {
TBROWDER/Geo-Ellipsoid …/Ellipsoid.pm6 :571:	elsif $key ~~ m:i/^bea/ {
TBROWDER/Geo-Ellipsoid …/GenFuncs.pm6 :5:	if $deg ~~ m/^ (<[nNeEsSwW]>**1..1) (.*) $/ {
TBROWDER/Geo-Ellipsoid …/GenFuncs.pm6 :28:	if ($typ ~~ m:i/lon/) {
TBROWDER/Geo-Ellipsoid …/Utils.pm6 :105:	$str ~~ s:g/','/' '/;
TBROWDER/Geo-Ellipsoid …/Utils.pm6 :115:	if $D ~~ m:i/
TBROWDER/Geo-Ellipsoid …/Utils.pm6 :124:	if $c0 ~~ m:i/<[N+]>/ {
TBROWDER/Geo-Ellipsoid …/Utils.pm6 :128:	elsif $c0 ~~ m:i/<[S-]>/ {
TBROWDER/Geo-Ellipsoid …/Utils.pm6 :174:	$str ~~ s:g/','/' '/;
TBROWDER/Geo-Ellipsoid …/Utils.pm6 :184:	if $D ~~ m:i/
TBROWDER/Geo-Ellipsoid …/Utils.pm6 :193:	if $c0 ~~ m:i/<[E+]>/ {
TBROWDER/Geo-Ellipsoid …/Utils.pm6 :197:	elsif $c0 ~~ m:i/<[W-]>/ {
TBROWDER/META6-To-Man …/Man.pm6 :157:	if $res ~~ NoWrite {
TBROWDER/META6-To-Man …/Man.pm6 :161:	elsif $res ~~ NoDir {
TBROWDER/META6-To-Man …/Man.pm6 :174:	if $val ~~ / '.' (<[1..8>]> ** 1) $/ {
TBROWDER/META6-To-Man …/Man.pm6 :353:	return $d if $res ~~ CanWrite;
TBROWDER/Net-IP …/IP.pm6 :32:	if $dom ~~ &domain {
TBROWDER/Net-IP …/IP.pm6 :33:	return $dom unless $dom ~~ / '.' /;
TBROWDER/Net-IP …/IP.pm6 :58:	$ip ~~ s:g/ $sep //;
TBROWDER/Net-IP …/IP.pm6 :237:	$ip ~~ s:g/':'//;
TBROWDER/Net-IP …/IP.pm6 :293:	return 4 if $ip !~~ /\:/ and ip-is-ipv4($ip);
TBROWDER/Net-IP …/IP.pm6 :322:	if $q !~~ /^ \d ** 1..3 $/ {
TBROWDER/Net-IP …/IP.pm6 :351:	$ip ~~ s/ '::' /:!:/;
TBROWDER/Net-IP …/IP.pm6 :363:	if $q ~~ / '.' / {
TBROWDER/Net-IP …/IP.pm6 :384:	if $q !~~ / '!' / {
TBROWDER/Net-IP …/IP.pm6 :413:	unless $ip ~~ /^ <[\d\.]>+ $/ {
TBROWDER/Net-IP …/IP.pm6 :418:	if $ip ~~ /^ '.' / {
TBROWDER/Net-IP …/IP.pm6 :423:	if $ip ~~ / '.' $/ {
TBROWDER/Net-IP …/IP.pm6 :429:	if ($ip ~~ /^ (\d+) $/ and $0 < 256) { return True }
TBROWDER/Net-IP …/IP.pm6 :441:	if $ip ~~ / '..' / {
TBROWDER/Net-IP …/IP.pm6 :495:	if $ip ~~ /^ ':' <-[\:]> / {
TBROWDER/Net-IP …/IP.pm6 :501:	if $ip ~~ / <-[\:]> ':' $/ {
TBROWDER/Net-IP …/IP.pm6 :514:	if $n != 7 && $ip !~~ /'::'/ {
TBROWDER/Number-More …/convert-examples.p6 :47:	next if $line !~~ /\S/;
TBROWDER/Number-More …/convert-examples.p6 :48:	$line ~~ s:g/'|'//;
TBROWDER/Number-More …/convert-examples.p6 :51:	next if $line !~~ /\S/;
TBROWDER/Number-More …/test-base-37-62.p6 :21:	next if $num-i !~~ @base[$base-i];
TBROWDER/Number-More …/test-base-37-62.p6 :155:	$x'b ~~ s/^ 0+ /0/;
TBROWDER/Number-More …/test-base-37-62.p6 :156:	$x'b ~~ s:i/^ 0 (<[0..9a..z]>) /$0/;
TBROWDER/Number-More …/More.pm6 :159:	if $LENGTH-HANDLING ~~ &length-action && $nct > $len {
TBROWDER/Number-More …/More.pm6 :164:	if $LENGTH-HANDLING ~~ /$ :i warn $/ {
TBROWDER/Number-More …/More.pm6 :440:	if $num-i !~~ @base[$base-i] {
TBROWDER/Number-More …/More.pm6 :454:	$num-i ~~ s:i/^0b//;
TBROWDER/Number-More …/More.pm6 :458:	$num-i ~~ s:i/^0o//;
TBROWDER/Number-More …/More.pm6 :462:	$num-i ~~ s:i/^0x//;
TBROWDER/Number-More …/More.pm6 :669:	$x'b ~~ s/^ 0+ /0/;
TBROWDER/Number-More …/More.pm6 :670:	$x'b ~~ s:i/^ 0 (<[0..9a..z]>) /$0/;
TBROWDER/Proc-More …/ALL-SUBS.md :14:	:$fmt where { !$fmt.defined || $fmt ~~ &fmt }, # see token 'fmt' definition
TBROWDER/Proc-More …/ALL-SUBS.md :23:	:$fmt where { !$fmt.defined || $fmt ~~ &fmt }, # see token 'fmt' definition
TBROWDER/Proc-More …/ALL-SUBS.md :32:	:$typ where { $typ ~~ &typ } = 'u', # see token 'typ' definition
TBROWDER/Proc-More …/ALL-SUBS.md :33:	:$fmt where { !$fmt.defined || $fmt ~~ &fmt }, # see token 'fmt' definition
TBROWDER/Proc-More …/More.pm6 :37:	:$typ where { $typ ~~ &typ } = 'u', # see token 'typ' definition
TBROWDER/Proc-More …/More.pm6 :38:	:$fmt where { !$fmt.defined || $fmt ~~ &fmt }, # see token 'fmt' definition
TBROWDER/Proc-More …/More.pm6 :64:	if $line ~~ /exit|code/ && $line ~~ / (\d+) / {
TBROWDER/Proc-More …/More.pm6 :153:	:$fmt where { !$fmt.defined || $fmt ~~ &fmt }, # see token 'fmt' definition
TBROWDER/Proc-More …/More.pm6 :172:	elsif $fmt ~~ /^ :i s/ {
TBROWDER/Proc-More …/More.pm6 :175:	elsif $fmt ~~ / ':'/ {
TBROWDER/Proc-More …/More.pm6 :178:	elsif $fmt ~~ /^ :i h/ {
TBROWDER/Proc-More …/More.pm6 :192:	:$typ where { $typ ~~ &typ } = 'u', # see token 'typ' definition
TBROWDER/Proc-More …/More.pm6 :193:	:$fmt where { !$fmt.defined || $fmt ~~ &fmt }, # see token 'fmt' definition
TBROWDER/Proc-More …/030-process-time.t :65:	if !$typ ~~ /^a/ {
TBROWDER/Proc-More …/030-process-time.t :68:	elsif $typ ~~ /^a/ {
TBROWDER/Proc-More …/030-process-time.t :71:	elsif $typ ~~ /^r/ {
TBROWDER/Proc-More …/030-process-time.t :74:	elsif $typ ~~ /^u/ {
TBROWDER/Proc-More …/030-process-time.t :77:	elsif $typ ~~ /^s/ {
TBROWDER/Proc-More …/030-process-time.t :81:	elsif $fmt ~~ /^s/ {
TBROWDER/Proc-More …/030-process-time.t :85:	elsif $typ ~~ /^a/ {
TBROWDER/Proc-More …/030-process-time.t :88:	elsif $typ ~~ /^r/ {
TBROWDER/Proc-More …/030-process-time.t :91:	elsif $typ ~~ /^u/ {
TBROWDER/Proc-More …/030-process-time.t :94:	elsif $typ ~~ /^s/ {
TBROWDER/Proc-More …/030-process-time.t :98:	elsif $fmt ~~ /':'/ {
TBROWDER/Proc-More …/030-process-time.t :102:	elsif $typ ~~ /^a/ {
TBROWDER/Proc-More …/030-process-time.t :105:	elsif $typ ~~ /^r/ {
TBROWDER/Proc-More …/030-process-time.t :108:	elsif $typ ~~ /^u/ {
TBROWDER/Proc-More …/030-process-time.t :111:	elsif $typ ~~ /^s/ {
TBROWDER/Proc-More …/030-process-time.t :115:	elsif $fmt ~~ /^h/ {
TBROWDER/Proc-More …/030-process-time.t :119:	elsif $typ ~~ /^a/ {
TBROWDER/Proc-More …/030-process-time.t :122:	elsif $typ ~~ /^a/ {
TBROWDER/Proc-More …/030-process-time.t :125:	elsif $typ ~~ /^r/ {
TBROWDER/Proc-More …/030-process-time.t :128:	elsif $typ ~~ /^u/ {
TBROWDER/Proc-More …/030-process-time.t :131:	elsif $typ ~~ /^s/ {
TIMOTIMO/JSON-Fast …/Fast.pm :66:	return $text unless $text ~~ /:m <[\x[5C] \x[22] \x[00]..\x[1F] \x[10000]..\x[10FFFF]]>/;
TIMOTIMO/JSON-Fast …/Fast.pm :103:	return $obj ?? 'true' !! 'false' if $obj ~~ Bool;
TIMOTIMO/JSON-Fast …/Fast.pm :108:	return $obj.Int.Str if $obj ~~ Int;
TIMOTIMO/JSON-Fast …/Fast.pm :109:	return to-json($obj.Rat, :$pretty, :$level, :$spacing, :$sorted-keys) if $obj ~~ RatStr;
TIMOTIMO/JSON-Fast …/Fast.pm :111:	if $obj ~~ Rat {
TIMOTIMO/JSON-Fast …/Fast.pm :119:	if $obj ~~ Num {
TIMOTIMO/JSON-Fast …/Fast.pm :137:	return "\"" ~ str-escape($obj) ~ "\"" if $obj ~~ Str;
TIMOTIMO/JSON-Fast …/Fast.pm :139:	return „"$obj"“ if $obj ~~ Dateish;
TIMOTIMO/JSON-Fast …/Fast.pm :140:	return „"{$obj.DateTime.Str}"“ if $obj ~~ Instant;
TIMOTIMO/JSON-Fast …/Fast.pm :142:	if $obj ~~ Seq {
TIMOTIMO/JSON-Fast …/Fast.pm :147:	my Bool $arr = $obj ~~ Positional;
TIMOTIMO/JSON-Fast …/Fast.pm :170:	($key ~~ Str ?? str-escape($key) !! $key) ~
TIMOTIMO/JSON-Fast …/01-parse.t :202:	if $desc ~~ m/\n/ {
TIMOTIMO/JSON-Fast …/01-parse.t :221:	if $desc ~~ m/\n/ {
TIMOTIMO/JSON-Fast …/04-roundtrip.t :45:	my $source-data = $v.value ~~ Pair ?? $v.value.key !! $v.value;
TIMOTIMO/JSON-Fast …/04-roundtrip.t :47:	if $v.value ~~ Pair {
TIMOTIMO/SDL2-Raw …/Raw.pm :81:	if $*VM.config<dll> ~~ /dll/ {
TITSUKI/Algorithm-AhoCorasick …/01-basic.t :48:	ok $actual ~~ $expected, "It should match a keyword";
TITSUKI/Algorithm-AhoCorasick …/01-basic.t :55:	ok $actual ~~ $expected, "It should match none of words";
TITSUKI/Algorithm-AhoCorasick …/01-basic.t :62:	ok $actual ~~ $expected, "It should match all keywords";
TITSUKI/Algorithm-AhoCorasick …/01-basic.t :69:	ok $actual ~~ $expected, "It should match a keyword including whitespaces";
TITSUKI/Algorithm-AhoCorasick …/01-basic.t :77:	ok $actual ~~ $expected, "It should match all Japanese keywords";
TITSUKI/Algorithm-LibSVM …/07-parse.t :18:	ok myhash[0]<pairs> ~~ (1 => 0.5, 2 => 0.6);
TITSUKI/Algorithm-LibSVM …/07-parse.t :19:	ok myhash[1]<pairs> ~~ (1 => 0.2, 2 => 0.3);
TITSUKI/Chart-Gnuplot …/README.md :53:	subset FalseOnly of Bool is export where { $_ ~~ Bool:U or $_ === False };
TITSUKI/Chart-Gnuplot …/README.md :54:	subset TrueOnly of Bool is export where { $_ ~~ Bool:U or $_ === True};
TITSUKI/Chart-Gnuplot …/README.md :55:	subset LabelRotate of Cool is export where { $_ ~~ Cool:U or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/README.md :56:	subset AnyLabelRotate of Cool is export where { $_ ~~ Cool:U or $_ eq "parallel" or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/README.md :57:	subset LegendMax of Cool is export where { $_ ~~ Cool:U or $_ eq "auto" or $_ ~~ Real };
TITSUKI/Chart-Gnuplot …/README.md :58:	subset AnyTicsRotate of Cool is export where { $_ ~~ Cool:U or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/README.md :59:	subset AnyTicsOffset of Mu is export where { $_ ~~ Mu:U or $_ ~~ FalseOnly or ($_ ~~ List and $_.all ~~ Pair|Real) };
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :104:	when * ~~ Str { @args.push(sprintf("title \"%s\"", $title)) }
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :148:	when * ~~ Str { @args.push(sprintf("title \"%s\"", $title)) }
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :208:	when * ~~ Str { @args.push(sprintf("title \"%s\"", $title)) }
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :252:	when * ~~ Str { @args.push(sprintf("title \"%s\"", $title)) }
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :768:	subset FalseOnly of Bool is export where { $_ ~~ Bool:U or $_ === False };
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :769:	subset TrueOnly of Bool is export where { $_ ~~ Bool:U or $_ === True};
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :770:	subset LabelRotate of Cool is export where { $_ ~~ Cool:U or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :771:	subset AnyLabelRotate of Cool is export where { $_ ~~ Cool:U or $_ eq "parallel" or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :772:	subset LegendMax of Cool is export where { $_ ~~ Cool:U or $_ eq "auto" or $_ ~~ Real };
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :773:	subset AnyTicsRotate of Cool is export where { $_ ~~ Cool:U or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/Gnuplot.pm6 :774:	subset AnyTicsOffset of Mu is export where { $_ ~~ Mu:U or $_ ~~ FalseOnly or ($_ ~~ List and $_.all ~~ Pair|Real) };
TITSUKI/Chart-Gnuplot …/Label.pm6 :32:	when * ~~ Real { @args.push("rotate by $rotate") }
TITSUKI/Chart-Gnuplot …/Label.pm6 :69:	when * ~~ Real { @args.push("rotate by $rotate") }
TITSUKI/Chart-Gnuplot …/Legend.pm6 :63:	@args.push("maxcols " ~ $maxcols) if $maxcols ~~ Real;
TITSUKI/Chart-Gnuplot …/Legend.pm6 :68:	@args.push("maxrows " ~ $maxrows) if $maxrows ~~ Real;
TITSUKI/Chart-Gnuplot …/Subset.pm6 :4:	subset FalseOnly of Bool is export where { $_ ~~ Bool:U or $_ === False };
TITSUKI/Chart-Gnuplot …/Subset.pm6 :5:	subset TrueOnly of Bool is export where { $_ ~~ Bool:U or $_ === True};
TITSUKI/Chart-Gnuplot …/Subset.pm6 :6:	subset LabelRotate of Cool is export where { $_ ~~ Cool:U or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/Subset.pm6 :7:	subset AnyLabelRotate of Cool is export where { $_ ~~ Cool:U or $_ eq "parallel" or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/Subset.pm6 :8:	subset LegendMax of Cool is export where { $_ ~~ Cool:U or $_ eq "auto" or $_ ~~ Real };
TITSUKI/Chart-Gnuplot …/Subset.pm6 :9:	subset AnyTicsRotate of Cool is export where { $_ ~~ Cool:U or $_ ~~ Real or $_ === False };
TITSUKI/Chart-Gnuplot …/Subset.pm6 :10:	subset AnyTicsOffset of Mu is export where { $_ ~~ Mu:U or $_ ~~ FalseOnly or ($_ ~~ List and $_.all ~~ Pair|Real) };
TITSUKI/Chart-Gnuplot …/Tics.pm6 :49:	when * ~~ Real { @args.push("rotate by $rotate") }
TITSUKI/Chart-Gnuplot …/Util.pm6 :19:	when * ~~ FalseOnly and $enable-nooffset { $coordinate-str = "nooffset" }
TITSUKI/Chart-Gnuplot …/Util.pm6 :20:	when * ~~ Pair {
TITSUKI/Chart-Gnuplot …/Util.pm6 :23:	when * ~~ List {
TITSUKI/Chart-Gnuplot …/Util.pm6 :30:	when * ~~ Pair {
TITSUKI/Chart-Gnuplot …/Util.pm6 :33:	when * ~~ Real {
TITSUKI/Chart-Gnuplot …/02-terminal.t :9:	nok $msg ~~ /unknown/, "Chart::Gnuplot.terminal should accept \"svg\" as an argument.";
TITSUKI/Chart-Gnuplot …/02-terminal.t :15:	ok $msg ~~ /unknown/, "Chart::Gnuplot.terminal shouldn't accept \"Perl6isFun\" as an argument.";
TITSUKI/Chart-Gnuplot …/03-plot.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/03-plot.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/03-plot.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/04-splot.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/04-splot.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/04-splot.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/05-label.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/05-label.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/05-label.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/06-range.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/06-range.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/06-range.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/07-tics.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/07-tics.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/07-tics.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/08-legend.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/08-legend.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/08-legend.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/09-border.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/09-border.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/09-border.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/10-grid.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/10-grid.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/10-grid.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/11-timestamp.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/11-timestamp.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/11-timestamp.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/12-rectangle.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/12-rectangle.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/12-rectangle.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/13-ellipse.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/13-ellipse.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/13-ellipse.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/14-circle.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/14-circle.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/14-circle.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/15-polygon.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/15-polygon.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/15-polygon.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/16-title.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/16-title.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/16-title.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/17-arrow.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/17-arrow.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/17-arrow.t :12:	when * ~~ Str {
TITSUKI/Chart-Gnuplot …/18-multiplot.t :9:	when * ~~ Regex {
TITSUKI/Chart-Gnuplot …/18-multiplot.t :10:	return False unless $l ~~ $r;
TITSUKI/Chart-Gnuplot …/18-multiplot.t :12:	when * ~~ Str {
TITSUKI/MeCab …/02-lattice.t :234:	ok Set(@actual) ~~ Set(@expected[$len].split("\n", :skip-empty));
TITSUKI/MeCab …/02-lattice.t :289:	ok Set(@actual) ~~ Set(@expected[$len].split("\n", :skip-empty));
TITSUKI/Terminal-Getpass …/Getpass.pm6 :27:	last if $c.decode("utf-8") ~~ /\n/;
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :164:	if $c ~~ m:i/^\s*close\s*/ {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :170:	unless $c ~~ m:i/^\s*keep\-alive\s*/ {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :243:	if $!buf.decode('ascii') ~~ /^[GET|HEAD]/ { # pipeline
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :280:	if $result ~~ Promise {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :302:	if .key ~~ /<[\r\n]>/ {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :336:	if $body ~~ Array {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :339:	$cl += ($_ ~~ Str ?? .encode() !! $_).bytes;
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :342:	} elsif $body ~~ IO::Handle {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :446:	if $body ~~ Array {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :462:	} elsif $body ~~ IO::Handle {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :472:	if $elem ~~ Blob {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :474:	} elsif $elem ~~ Mu {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :483:	if $body ~~ Array {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :487:	} elsif $body ~~ IO::Handle {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :492:	} elsif $body ~~ Channel {
TOKUHIROM/HTTP-Server-Tiny …/Tiny.pm6 :497:	} elsif $body ~~ Supply {
TOKUHIROM/HTTP-Server-Tiny …/01-psgi.t :34:	ok $buf ~~ /hello/;
TOKUHIROM/HTTP-Server-Tiny …/02-server.t :34:	ok $buf ~~ /hello/;
TOKUHIROM/HTTP-Server-Tiny …/07-io-handle.t :30:	ok $resp<content> ~~ /HELLO/;
TOKUHIROM/HTTP-Server-Tiny …/15-p6w.t :38:	ok $buf ~~ /hello/;
TYIL/App-Assixt …/Bootstrap.pm6 :16:	if (::($lib) ~~ Failure) {
TYIL/App-Assixt …/Bump.pm6 :60:	$bump = $input.Int if $input ~~ /^$ | ^\d+$/;
TYIL/App-Assixt …/Touch.pm6 :16:	if (::($lib) ~~ Failure) {
TYIL/App-Assixt …/Upload.pm6 :57:	if ($line ~~ m:i/HTTP\/\d\.\d\s(\d+)\s(.+)/) {
TYIL/App-Assixt …/Input.pm6 :52:	if ($input ~~ m:i/y[es]?/) {
TYIL/App-Assixt …/Input.pm6 :56:	if ($input ~~ m:i/no?/) {
TYIL/App-Assixt …/Main.pm6 :31:	if (::($lib) ~~ Failure) {
TYIL/Config …/Config.pm6 :276:	return $key if $value !~~ Iterable;
TYIL/Dist-Helper …/Clean.pm6 :21:	next if ~$file ~~ /\.precomp/;
TYIL/IO-Path-Dirstack …/Dirstack.pm6 :15:	if ($change ~~ Failure) {
TYIL/IO-Path-Dirstack …/Dirstack.pm6 :38:	return $change if $change ~~ Failure;
TYIL/IRC-Client-Plugin-Github …/Github.pm6 :26:	if (::{"&{$module}"} ~~ Nil) {
TYIL/IRC-Client-Plugin-Ignore …/Ignore.pm6 :43:	multi method irc-privmsg-channel(AdminMessage $ where * ~~ /"$prefix" ignore \s+ $<target>=\S+/) { $ignore-list.add-nick(~$<target>) }
TYIL/IRC-Client-Plugin-Ignore …/Ignore.pm6 :44:	multi method irc-to-me(AdminMessage $ where * ~~ /"$prefix" ignore \s+ $<target>=\S+/) { $ignore-list.add-nick(~$<target>) }
TYIL/IRC-Client-Plugin-Ignore …/Ignore.pm6 :47:	multi method irc-privmsg-channel(AdminMessage $ where * ~~ /"$prefix" unignore \s+ $<target>=\S+/) { $ignore-list.remove-nick(~$<target>) }
TYIL/IRC-Client-Plugin-Ignore …/Ignore.pm6 :48:	multi method irc-to-me(AdminMessage $ where * ~~ /"$prefix" unignore \s+ $<target>=\S+/) { $ignore-list.remove-nick(~$<target>) }
TYIL/IRC-Client-Plugin-UrlTitle …/TypeFormatters.pm6 :11:	subset HtmlType of Str where * ~~ /^text\/html/;
TYIL/IRC-Client-Plugin-UrlTitle …/HTML.pm6 :20:	return "No title tag" if $head ~~ Bool;
TYIL/IRC-Client-Plugin-UrlTitle …/HTML.pm6 :23:	return "No title tag" if $title-tag ~~ Bool;
TYIL/MPD-Client …/Client.pm6 :22:	if ($response !~~ m/OK\sMPD\s.+/) {
UFOBAT/Bailador …/pastebin.pl6 :7:	unless 'data'.IO ~~ :d {
UFOBAT/Bailador …/App.pm :153:	if 'GET' ~~ any( $child-route.method ) && 'HEAD' !~~ any ( $child-route.method ) {
UFOBAT/Bailador …/App.pm :157:	if 'HEAD' ~~ any( $child-route.method ) && 'GET' !~~ any ( $child-route.method ) {
UFOBAT/Bailador …/App.pm :167:	if $result ~~ Bool {
UFOBAT/Bailador …/App.pm :200:	if $content ~~ IO::Path {
UFOBAT/Bailador …/CLI.pm :20:	if $data ~~ Hash {
UFOBAT/Bailador …/CLI.pm :63:	my multi sub bootup-file (Str $cmd where {$cmd ~~ any <easy tiny ogre>}, Str $app, Str $config?) is export {
UFOBAT/Bailador …/watch.pm :35:	if $e.path() !~~ /\.sw.$/ and $e.path() !~~ /\~$/ {
UFOBAT/Bailador …/watch.pm :70:	if ( $p ~~ rx{ '/'? '.precomp' [ '/' | $ ] } ) {
UFOBAT/Bailador …/watch.pm :76:	if $e.event ~~ FileRenamed && $e.path.IO ~~ :d {
UFOBAT/Bailador …/Configuration.pm :61:	has @.logs where * ~~ Pair = [
UFOBAT/Bailador …/Configuration.pm :118:	if $file.IO ~~ :e && @config-file-extensions.contains($file.IO.extension) {
UFOBAT/Bailador …/Configuration.pm :120:	} elsif $file.IO !~~ :e {
UFOBAT/Bailador …/Configuration.pm :130:	if $file.IO.extension ~~ 'yaml' | 'yml' {
UFOBAT/Bailador …/Gradual.pm :35:	if $path.IO.f and $path ~~ /\.html$/ {
UFOBAT/Bailador …/Gradual.pm :36:	if $path ~~ /\/index\.html$/ {
UFOBAT/Bailador …/Request.pm :63:	elsif $headers<CONTENT_TYPE>:exists and $headers<CONTENT_TYPE> ~~ / 'multipart/form-data;' .* 'boundary' '=' '"' ? ( <bcharnospace> ** 0..69 ) \s* '"' ? / {
UFOBAT/Bailador …/Request.pm :100:	if $header ~~ m/ ^ ( \S+ ) ':' \s+ (.+) $ / {
UFOBAT/Bailador …/Request.pm :167:	$url-path ~~ s/ '/' $ //;
UFOBAT/Bailador …/Request.pm :168:	$path ~~ s/ ^ '/' //;
UFOBAT/Bailador …/Multipart.pm :16:	if $content-disposition ~~ / << name >> '=' '"' ( <-["]>+ ) '"' / {
UFOBAT/Bailador …/Multipart.pm :19:	if $content-disposition ~~ / << filename >> '=' '"' ( <-["]>+ ) '"' / {
UFOBAT/Bailador …/Route.pm :24:	if $result ~~ Failure {
UFOBAT/Bailador …/Route.pm :108:	subset UrlMatcher where * ~~ Regex|Str;
UFOBAT/Bailador …/Route.pm :119:	@!method = 'ANY' ~~ any(@$method) ?? @all-methods !! $method;
UFOBAT/Bailador …/Route.pm :133:	if $.url-matcher ~~ Regex {
UFOBAT/Bailador …/Route.pm :140:	my Match $match = $path ~~ $.regex;
UFOBAT/Bailador …/Route.pm :161:	$.url-matcher ~~ Str ?? $.url-matcher !! $.url-matcher.perl;
UFOBAT/Bailador …/RouteHelper.pm :46:	my IO $directory = $x.value ~~ IO ?? $x.value !! $app.location.IO.child($x.value.Str);
UFOBAT/Bailador …/Test.pm :85:	if $body ~~ Supply {
UFOBAT/Bailador …/00-lint.t :48:	if $line ~~ rx/use \s+ ( <-[;]> + ) \s* ';'/ {
UFOBAT/Bailador …/04-OO-templates-mustache.t :25:	ok $resp[2] ~~ /'a happy bar'\r?\n/;
UFOBAT/Bailador …/04-OO-templates.t :23:	ok $resp[2] ~~ /'a happy bar'\r?\n/;
UFOBAT/Bailador …/04-templates-mustache.t :26:	ok $resp1[2] ~~ /'a happy bar'\r?\n/;
UFOBAT/Bailador …/04-templates-mustache.t :36:	ok $resp2[2] ~~ /'a happy bar'\r?\n/;
UFOBAT/Bailador …/04-templates.t :23:	ok $resp1[2] ~~ /^ 'a happy bar' \r?\n$/;
UFOBAT/Bailador …/04-templates.t :43:	ok $resp3[2] ~~ / '<pre>' \r? \n 'a happy bar' \r? \n /;
UFOBAT/Bailador …/30-examples-pastebin.t :42:	$html ~~ rx:s/^New paste available at \<a href\=\"paste\/(\d+)\"\>paste\/(\d+)\<\/a\>$/;
UFOBAT/I18N-LangTags …/LangTags.pm6 :62:	$tag ~~ s:i/ ^ 'nb' <|w> / 'no-bok' /; # yes, backwards
UFOBAT/I18N-LangTags …/LangTags.pm6 :63:	$tag ~~ s:i/ ^ 'nn' <|w> / 'no-nyn' /; # yes, backwards
UFOBAT/I18N-LangTags …/LangTags.pm6 :64:	$tag ~~ s:i/ ^ <ix> ( '-hakka' <|w> ) / 'zh' $1 /; # goes the right way
UFOBAT/I18N-LangTags …/LangTags.pm6 :72:	shift @supers if @supers and @supers[0] ~~ m:i/ ^ <ix> $ /;
UFOBAT/I18N-LangTags …/LangTags.pm6 :78:	$locale ~~ s:g/ '_' /-/;
UFOBAT/I18N-LangTags …/LangTags.pm6 :79:	$locale ~~ s/ [ ['.'|'@'] [ <alnum> | '-' ]+]+ $ //;
UFOBAT/I18N-LangTags …/LangTags.pm6 :92:	$tag ~~ s:i/ ^ 'iw' <|w> /he/; # Hebrew
UFOBAT/I18N-LangTags …/LangTags.pm6 :93:	$tag ~~ s:i/ ^ 'in' <|w> /id/; # Indonesian
UFOBAT/I18N-LangTags …/LangTags.pm6 :94:	$tag ~~ s:i/ ^ 'cre' <|w> /cr/; # Cree
UFOBAT/I18N-LangTags …/LangTags.pm6 :95:	$tag ~~ s:i/ ^ 'jw' <|w> /jv/; # Javanese
UFOBAT/I18N-LangTags …/LangTags.pm6 :96:	$tag ~~ s:i/ ^ <ix> '-lux' <|w> /lb/; # Luxemburger
UFOBAT/I18N-LangTags …/LangTags.pm6 :97:	$tag ~~ s:i/ ^ <ix> '-navajo' <|w> /nv/; # Navajo
UFOBAT/I18N-LangTags …/LangTags.pm6 :98:	$tag ~~ s:i/ ^ 'ji' <|w> /yi/; # Yiddish
UFOBAT/I18N-LangTags …/LangTags.pm6 :110:	$tag ~~ s:i/ ^ <ix> '-hakka' <|w> /zh-hakka/; # Hakka
UFOBAT/I18N-LangTags …/LangTags.pm6 :111:	$tag ~~ s:i/ ^ 'nb' <|w> /no-bok/; # BACKWARDS for Bokmal
UFOBAT/I18N-LangTags …/LangTags.pm6 :112:	$tag ~~ s:i/ ^ 'nn' <|w> /no-nyn/; # BACKWARDS for Nynorsk
UFOBAT/I18N-LangTags …/LangTags.pm6 :115:	$tag ~~ s:i/ ^ <ix> '-' //;
UFOBAT/I18N-LangTags …/LangTags.pm6 :123:	if $tag ~~ m:i/ ^ <ix> '-hakka' <|w> (.*)/ { push @em, "zh-hakka$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :124:	elsif $tag ~~ m:i/ ^ 'zh-hakka' <|w> (.*)/ { push @em, "x-hakka$0", "i-hakka$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :125:	elsif $tag ~~ m:i/ ^ 'he' <|w> (.*)/ { push @em, "iw$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :126:	elsif $tag ~~ m:i/ ^ 'iw' <|w>(.*)/ { push @em, "he$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :127:	elsif $tag ~~ m:i/ ^ 'in' <|w>(.*)/ { push @em, "id$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :128:	elsif $tag ~~ m:i/ ^ 'id' <|w>(.*)/ { push @em, "in$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :129:	elsif $tag ~~ m:i/ ^ <ix> '-lux' <|w>(.*)/ { push @em, "lb$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :130:	elsif $tag ~~ m:i/ ^ 'lb' <|w>(.*)/ { push @em, "i-lux$0", "x-lux$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :131:	elsif $tag ~~ m:i/ ^ <ix> '-navajo' <|w>(.*)/ { push @em, "nv$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :132:	elsif $tag ~~ m:i/ ^ 'nv' <|w>(.*)/ { push @em, "i-navajo$0", "x-navajo$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :133:	elsif $tag ~~ m:i/ ^ 'yi' <|w>(.*)/ { push @em, "ji$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :134:	elsif $tag ~~ m:i/ ^ 'ji' <|w>(.*)/ { push @em, "yi$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :135:	elsif $tag ~~ m:i/ ^ 'nb' <|w>(.*)/ { push @em, "no-bok$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :136:	elsif $tag ~~ m:i/ ^ 'no-bok' <|w>(.*)/ { push @em, "nb$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :137:	elsif $tag ~~ m:i/ ^ 'nn' <|w>(.*)/ { push @em, "no-nyn$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :138:	elsif $tag ~~ m:i/ ^ 'no-nyn' <|w>(.*)/ { push @em, "nn$0"; }
UFOBAT/I18N-LangTags …/LangTags.pm6 :144:	push @em, %alt{ $1.lc()} ~ $2 if $tag ~~ m:i/^ (<ix>) ('-' .+)/;
UFOBAT/I18N-LangTags …/List.pm6 :24:	if $node ~~ Pod::Heading
UFOBAT/I18N-LangTags …/List.pm6 :25:	and $node.contents.[0] ~~ Pod::Block::Para
UFOBAT/I18N-LangTags …/List.pm6 :31:	if $node ~~ Pod::Item {
UFOBAT/I18N-LangTags …/List.pm6 :33:	if $subnode ~~ (Pod::Block::Para|Pod::Block::Comment) {
UFOBAT/I18N-LangTags …/List.pm6 :35:	if $content ~~ Str {
UFOBAT/I18N-LangTags …/List.pm6 :71:	$alt = 'x-' ~ $/[0] if $tag ~~ / 'i-' (.*) /;
UFOBAT/I18N-LangTags …/List.pm6 :72:	$alt = 'i-' ~ $/[0] if $tag ~~ / 'x-' (.*) /;
UFOBAT/I18N-LangTags …/List.pm6 :79:	if $tag ~~ s/ ( <shave> ) // {
UFOBAT/I18N-LangTags …/List.pm6 :83:	$alt ~~ s/ ( <shave> )//;
UFOBAT/I18N-LangTags …/List.pm6 :94:	$subform ~~ s/ ^ '-' //;
UFOBAT/I18N-LangTags …/List.pm6 :95:	$subform ~~ s/ '-' $ //;
UFOBAT/I18N-LangTags …/50_super.t :43:	next unless $line ~~ m/ ^ \s* (.*?) \s* '=>' \s* (.*?) \s* $ /;
UFOBAT/I18N-LangTags …/55_super_strict.t :33:	next unless $line ~~ m/ ^ \s* (.*?) \s* '=>' \s* (.*?) \s* $ /;
UFOBAT/XML-XPath …/Actions.pm6 :88:	if $expression ~~ XML::XPath::Step {
UFOBAT/XML-XPath …/Expr.pm6 :29:	if ($.operand ~~ XML::XPath::Evaluable)
UFOBAT/XML-XPath …/Expr.pm6 :40:	} elsif ($.operand ~~ XML::XPath::Evaluable) {
UFOBAT/XML-XPath …/And.pm6 :11:	my $val_a = $a ~~ XML::Node ?? self!node-to-value($a) !! $a;
UFOBAT/XML-XPath …/And.pm6 :12:	my $val_b = $b ~~ XML::Node ?? self!node-to-value($b) !! $b;
UFOBAT/XML-XPath …/And.pm6 :18:	if $node ~~ XML::Element {
UFOBAT/XML-XPath …/Div.pm6 :11:	my $val_a = $a ~~ XML::Node ?? self!node-to-value($a) !! $a;
UFOBAT/XML-XPath …/Div.pm6 :12:	my $val_b = $b ~~ XML::Node ?? self!node-to-value($b) !! $b;
UFOBAT/XML-XPath …/Div.pm6 :26:	if $node ~~ XML::Element {
UFOBAT/XML-XPath …/Equal.pm6 :11:	my $val_a = $a ~~ XML::Node ?? self!node-to-value($a) !! $a;
UFOBAT/XML-XPath …/Equal.pm6 :12:	my $val_b = $b ~~ XML::Node ?? self!node-to-value($b) !! $b;
UFOBAT/XML-XPath …/Equal.pm6 :13:	my $value = $val_a ~~ $val_b;
UFOBAT/XML-XPath …/Equal.pm6 :19:	if $node ~~ XML::Element {
UFOBAT/XML-XPath …/Minus.pm6 :11:	my $val_a = $a ~~ XML::Node ?? self!node-to-value($a) !! $a;
UFOBAT/XML-XPath …/Minus.pm6 :12:	my $val_b = $b ~~ XML::Node ?? self!node-to-value($b) !! $b;
UFOBAT/XML-XPath …/Minus.pm6 :18:	if $node ~~ XML::Element {
UFOBAT/XML-XPath …/Mod.pm6 :11:	my $val_a = $a ~~ XML::Node ?? self!node-to-value($a) !! $a;
UFOBAT/XML-XPath …/Mod.pm6 :12:	my $val_b = $b ~~ XML::Node ?? self!node-to-value($b) !! $b;
UFOBAT/XML-XPath …/Mod.pm6 :18:	if $node ~~ XML::Element {
UFOBAT/XML-XPath …/Or.pm6 :11:	my $val_a = $a ~~ XML::Node ?? self!node-to-value($a) !! $a;
UFOBAT/XML-XPath …/Or.pm6 :12:	my $val_b = $b ~~ XML::Node ?? self!node-to-value($b) !! $b;
UFOBAT/XML-XPath …/Or.pm6 :18:	if $node ~~ XML::Element {
UFOBAT/XML-XPath …/Plus.pm6 :11:	my $val_a = $a ~~ XML::Node ?? self!node-to-value($a) !! $a;
UFOBAT/XML-XPath …/Plus.pm6 :12:	my $val_b = $b ~~ XML::Node ?? self!node-to-value($b) !! $b;
UFOBAT/XML-XPath …/Plus.pm6 :18:	if $node ~~ XML::Element {
UFOBAT/XML-XPath …/FunctionCall.pm6 :28:	if $interim ~~ Array {
UFOBAT/XML-XPath …/FunctionCall.pm6 :41:	unless $string ~~ Str {
UFOBAT/XML-XPath …/FunctionCall.pm6 :44:	if $interim ~~ Array {
UFOBAT/XML-XPath …/FunctionCall.pm6 :61:	unless $string1 ~~ Str or $string2 ~~ Str {
UFOBAT/XML-XPath …/FunctionCall.pm6 :64:	if $interim ~~ Array {
UFOBAT/XML-XPath …/Boolean.pm6 :22:	while $xml-node ~~ XML::Element {
UFOBAT/XML-XPath …/String.pm6 :33:	my $match = $r.Str ~~ /$s/;
UFOBAT/XML-XPath …/String.pm6 :42:	my $match = $r.Str ~~ m/$s/;
UFOBAT/XML-XPath …/String.pm6 :54:	if $start ~~ NaN {
UFOBAT/XML-XPath …/String.pm6 :67:	if $end ~~ NaN {
UFOBAT/XML-XPath …/NodeTest.pm6 :32:	if $xml-node ~~ XML::Element {
UFOBAT/XML-XPath …/NodeTest.pm6 :55:	if $parent.defined && not ( $parent ~~ XML::Document ) {
UFOBAT/XML-XPath …/NodeTest.pm6 :61:	last if $xml-node ~~ XML::Document;
UFOBAT/XML-XPath …/NodeTest.pm6 :68:	last if $xml-node ~~ XML::Document;
UFOBAT/XML-XPath …/NodeTest.pm6 :109:	last if $parent ~~ XML::Document;
UFOBAT/XML-XPath …/NodeTest.pm6 :118:	unless $parent ~~ XML::Document {
UFOBAT/XML-XPath …/NodeTest.pm6 :129:	last if $parent ~~ XML::Document;
UFOBAT/XML-XPath …/NodeTest.pm6 :138:	unless $parent ~~ XML::Document {
UFOBAT/XML-XPath …/NodeTest.pm6 :147:	if $xml-node ~~ XML::Document {
UFOBAT/XML-XPath …/NodeTest.pm6 :149:	} elsif $xml-node ~~ XML::Element {
UFOBAT/XML-XPath …/NodeTest.pm6 :167:	if $.value ~~ Str:U {
UFOBAT/XML-XPath …/NodeTest.pm6 :170:	if $node ~~ XML::Element {
UFOBAT/XML-XPath …/NodeTest.pm6 :203:	$take = $node ~~ XML::Text;
UFOBAT/XML-XPath …/NodeTest.pm6 :206:	$take = $node ~~ XML::Commend;
UFOBAT/XML-XPath …/NodeTest.pm6 :212:	$take = $node ~~ XML::PI;
UFOBAT/XML-XPath …/Predicates.pm6 :19:	if $predicate-result ~~ Numeric and $predicate-result !~~ Stringy and $predicate-result !~~ Bool {
UFOBAT/XML-XPath …/Predicates.pm6 :21:	} elsif $predicate-result ~~ Bool {
UFOBAT/XML-XPath …/Predicates.pm6 :23:	} elsif $predicate-result ~~ Str {
UFOBAT/XML-XPath …/Step.pm6 :41:	return $elem ~~ XML::Document ?? $elem !! $elem.ownerDocument;
UFOBAT/XML-XPath …/Types.pm6 :2:	subset Axis of Str where {$_ ~~ <child self attribute descendant descendant-or-self namespace parent ancestor ancestor-or-self following-sibling preceding-sibling following preceding>.any};
UFOBAT/XML-XPath …/Types.pm6 :3:	subset Function of Str where {$_ ~~ <last position count id local-name namespace-uri name concat starts-with contain substring-before substring-after substring string-length normalize-space translate boolean not true false lang number sum floor ceiling round>.any};
UFOBAT/XML-XPath …/Types.pm6 :4:	subset Type of Str where { $_ ~~ <comment text node processing-instruction>.any}
UFOBAT/XML-XPath …/Types.pm6 :5:	subset Operator of Str where{$_ ~~ <Equal NotEqual SmallerThan GreaterThan SmallerEqual GreaterEqual Pipe Or And Multiply Div Mod Plus Minus UnaryMinus>.any}
UFOBAT/XML-XPath …/Types.pm6 :6:	subset ResultType where * ~~ Bool|Str|Numeric|XML::Node;
UFOBAT/XML-XPath …/Utils.pm6 :6:	if $a ~~ Array {
UFOBAT/XML-XPath …/Utils.pm6 :18:	$node.name ~~ / [ (<-[:]>+) ':' ]? (<-[:]>+)/;
UGEXE/zef …/Zef.pm6 :3:	our $PRE-DIST-INTERFACE is export = ::("Distribution::Hash") ~~ Failure;
UGEXE/zef …/Zef.pm6 :8:	INIT my $INTERNAL_JSON = (so try { ::("Rakudo::Internals::JSON") !~~ Failure }) == True;
UGEXE/zef …/Zef.pm6 :20:	INIT my $INTERNAL_JSON = (so try { ::("Rakudo::Internals::JSON") !~~ Failure }) == True;
UGEXE/zef …/Zef.pm6 :137:	if (try require ::($ = $module)) ~~ Nil;
UGEXE/zef …/CLI.pm6 :23:	my @fail = |@candidates.grep: {.as !~~ any(@fetched>>.as)}
UGEXE/zef …/CLI.pm6 :79:	$wanted ~~ /^[\. | \/]/ ?? <paths>
UGEXE/zef …/CLI.pm6 :108:	.grep: { $_ ~~ none(@path-candidates.map(*.dist.identity)) }
UGEXE/zef …/CLI.pm6 :118:	.grep: { $_ ~~ none(@uri-candidates.map(*.dist.identity)) }
UGEXE/zef …/CLI.pm6 :135:	my (:@local, :@remote) := @candidates.classify: {.dist ~~ Zef::Distribution::Local ?? <local> !! <remote>}
UGEXE/zef …/CLI.pm6 :140:	my @fail = |@candidates.grep: {.as !~~ any(@installed>>.as)}
UGEXE/zef …/CLI.pm6 :159:	my @fail = @identities.grep(* !~~ any(@uninstalled.map(*.as)));
UGEXE/zef …/CLI.pm6 :309:	$identity ~~ any(grep *.defined, flat @source_files, @resource_files);
UGEXE/zef …/CLI.pm6 :314:	$identity ~~ any($candi.dist.compat.meta<provides>.values.flatmap(*.values.map(*.<file>)))
UGEXE/zef …/CLI.pm6 :358:	take $meta<provides>.values[0] ~~ Hash
UGEXE/zef …/CLI.pm6 :398:	my (:@remote, :@local) := @candidates.classify: {.dist !~~ Zef::Distribution::Local ?? <remote> !! <local>}
UGEXE/zef …/CLI.pm6 :488:	.grep(* !~~ any(@config-keys))\
UGEXE/zef …/CLI.pm6 :563:	$_ ~~ any(<--fatal --error --warn --info -v --verbose --debug --trace>)
UGEXE/zef …/CLI.pm6 :625:	?? $arg-as ~~ any($plugin-lookup.keys)
UGEXE/zef …/CLI.pm6 :674:	my $spec-target = $target ~~ m/^\w+\#.*?[\. | \/]/
UGEXE/zef …/CLI.pm6 :714:	return ($cutoff.substr(0,*-3) ~ '...') if $cutoff.substr(*-3,3) ~~ /\S\S\S/;
UGEXE/zef …/CLI.pm6 :715:	return ($cutoff.substr(0,*-2) ~ '..') if $cutoff.substr(*-2,2) ~~ /\S\S/;
UGEXE/zef …/CLI.pm6 :716:	return ($cutoff.substr(0,*-1) ~ '.') if $cutoff.substr(*-1,1) ~~ /\S/;
UGEXE/zef …/Client.pm6 :456:	when .<blacklist>.?chars && any(|.<blacklist>) ~~ any('*', $dist.meta<license> // '') {
UGEXE/zef …/Client.pm6 :459:	when .<whitelist>.?chars && any(|.<whitelist>) ~~ none('*', $dist.meta<license> // '') {
UGEXE/zef …/Config.pm6 :36:	if $node ~~ Hash {
UGEXE/zef …/Config.pm6 :38:	if $sub-node.value ~~ Str | Int && $sub-node.key eq any(<short-name module>) {
UGEXE/zef …/Config.pm6 :45:	elsif $node ~~ Array {
UGEXE/zef …/DependencySpecification.pm6 :41:	return False unless self.name ~~ /$name/;
UGEXE/zef …/DependencySpecification.pm6 :47:	&& Version.new($spec.version-matcher) ~~ Version.new($.version-matcher);
UGEXE/zef …/DependencySpecification.pm6 :53:	return False unless Version.new($spec.api-matcher) ~~ Version.new($.api-matcher);
UGEXE/zef …/Local.pm6 :20:	my $dir = $path ~~ IO::Path # Purpose: Turn whatever the user gives us to a IO::Path if possible
UGEXE/zef …/Local.pm6 :55:	my $resource-path = $resource ~~ m/^libraries\/(.*)/
UGEXE/zef …/Fetch.pm6 :10:	my @report_disabled = self.backends.map(*.<short-name>).grep({ $_ ~~ none(@report_enabled) });
UGEXE/zef …/Identity.pm6 :69:	if $id !~~ /':ver' | ':auth' | ':api'/ and URN.parse($id) -> $urn {
UGEXE/zef …/Repository.pm6 :58:	my $check-plugins := +@from ?? self!plugins.grep({.short-name ~~ any(@from)}) !! self!plugins;
UGEXE/zef …/Ecosystems.pm6 :68:	note "Failed to update $!name mirror {$_ ~~ JSONException??'Invalid JSON'!!$_}";
UGEXE/zef …/Ecosystems.pm6 :97:	for @identities.grep(* ~~ any(@wanted)) -> $wants {
UGEXE/zef …/LocalCache.pm6 :102:	for @identities.grep(* ~~ any(@wanted)) -> $wants {
UGEXE/zef …/P6CReporter.pm6 :8:	state $probe = (try require Net::HTTP::POST) !~~ Nil ?? True !! False;
UGEXE/zef …/TAP.pm6 :7:	method probe { state $probe = (try require TAP) !~~ Nil ?? True !! False }
UGEXE/zef …/Shell.pm6 :15:	# clean up the %env due to a bug in Proc complaining when .key ~~ Any|Nil|etc
UGEXE/zef …/Shell.pm6 :16:	my %env = ($env ?? $env.hash !! %*ENV.hash).grep({ .value ~~ Str }).hash;
UGEXE/zef …/SystemInfo.pm6 :5:	our $signal-handler := &::("signal") ~~ Failure ?? &::("signal-ignore") !! &::("signal");
UGEXE/zef …/SystemInfo.pm6 :18:	if $line ~~ /'CON:' \n <.ws> '-'+ \n .*? \n \N+? $<cols>=[<.digit>+]/ {
UGEXE/zef …/SystemInfo.pm6 :28:	if $tput.out.get ~~ /$<cols>=<.digit>+/ {
UGEXE/zef …/URI.pm6 :164:	elsif $id ~~ /^(.+?) '@' (.+?) ':' (.*)/ and URI.parse("ssh\:\/\/$0\@$1\/$2", :rule<URI>) -> $m {
WARRINGD/Font-AFM …/make-metrics.pl :32:	unless $lib-dir.IO ~~ :e;
WARRINGD/Font-AFM …/AFM.pm :224:	when $val ~~ $_ { $val }
WARRINGD/Font-AFM …/AFM.pm :225:	when Bool { $val ~~ 'true' }
WARRINGD/Font-AFM …/AFM.pm :239:	$name ~~ s/'.afm' $//;
WARRINGD/Font-AFM …/AFM.pm :242:	if ~$*DISTRO ~~ m:i{^VMS} {
WARRINGD/Font-AFM …/AFM.pm :259:	.first: { .IO ~~ :f });
WARRINGD/Font-AFM …/AFM.pm :264:	unless $file.IO ~~ :e;
WARRINGD/Font-AFM …/AFM.pm :295:	if %!metrics{$key} ~~ Str {
WARRINGD/Font-FreeType …/glyph-to-eps.pl :13:	if $char ~~ /^(<xdigit>**2..*)$/;
WARRINGD/Font-FreeType …/glyph-to-svg.pl :14:	if $char ~~ /^(<xdigit>**2..*)$/;
WARRINGD/Font-FreeType …/list-characters.pl :10:	my $is-printable = $char ~~ /<print>/;
WARRINGD/Font-FreeType …/render-glyph.pl :20:	if $char ~~ /^(<xdigit>**2..*)$/;
WARRINGD/Font-FreeType …/Native.pm :60:	if $*VM.config<dll> ~~ /dll/ {
WARRINGD/HTML-Canvas …/Canvas.pm :129:	if $!fillStyle ~~ Str;
WARRINGD/HTML-Canvas …/Canvas.pm :140:	if $!strokeStyle ~~ Str;
WARRINGD/HTML-Canvas …/Canvas.pm :335:	if $name ~~ PathOps {
WARRINGD/HTML-Canvas …/Canvas.pm :482:	my \fmt = $name ~~ LValue
WARRINGD/HTML-Canvas …/Canvas.pm :501:	if +args && call ~~ LValue {
WARRINGD/HTML-Canvas …/00-readme.t :9:	$read-me ~~ /^ $<waffle>=.*? +%% ["```" \n? $<code>=.*? "```" \n?] $/
WARRINGD/PDF-Class …/pdf-checker.p6 :72:	check($kid, :ent("/$k"), :$depth) if $kid ~~ Array | Hash;
WARRINGD/PDF-Class …/pdf-checker.p6 :82:	if @unknown-entries && $obj.WHAT.gist ~~ /'PDF::' .*? '::Type'/;
WARRINGD/PDF-Class …/pdf-checker.p6 :111:	check($kid, :ent("\[$_\]"), :$depth) if $kid ~~ Array | Hash;
WARRINGD/PDF-Class …/pdf-checker.p6 :138:	when ($_ ~~ 'scn'|'SCN')
WARRINGD/PDF-Class …/pdf-checker.p6 :139:	&& $op.value.tail.key ~~ 'name' {
WARRINGD/PDF-Class …/make-quick-ref.pl :24:	@class.tail ~~ s/'.pm'$//;
WARRINGD/PDF-Class …/Action.pm :39:	multi method delegate-action(Hash $dict where { .<S> ~~ ActionSubtype }) {
WARRINGD/PDF-Class …/Annot.pm :27:	my $target-type = $s ~~ /^ 'D:'? $<year>=\d**4/
WARRINGD/PDF-Class …/Loader.pm :28:	if $handler-class ~~ Failure {
WARRINGD/PDF-Class …/Loader.pm :129:	&& $t ~~ PDF::COS::Name
WARRINGD/PDF-Class …/Loader.pm :135:	&& $t ~~ PDF::COS::Name
WARRINGD/PDF-Class …/Type.pm :18:	if $class-name ~~ /^ 'PDF::' (\w+) ['::' (\w+)]? $/ {
WARRINGD/PDF-Class …/ColorSpace.pm :22:	if $class-name ~~ /^ 'PDF::' (\w+) '::' (\w+) $/ {
WARRINGD/PDF-Class …/Field.pm :46:	?( .<Type> ~~ 'Annot' );
WARRINGD/PDF-Class …/Field.pm :65:	my subset AnnotOrField of Hash where { is-annot-only($_) || $_ ~~ PDF::Field }
WARRINGD/PDF-Class …/Function.pm :32:	unless $function-type ~~ FunctionTypeInt {
WARRINGD/PDF-Class …/Function.pm :59:	if $class-name ~~ /^ 'PDF::' (\w+) ['::' (\w+)]? $/ {
WARRINGD/PDF-Class …/PostScript.pm :26:	unless $v ~~ $type;
WARRINGD/PDF-Class …/PostScript.pm :94:	$_ ~~ Bool ?? not $_ !! ($_ * -1) -1
WARRINGD/PDF-Class …/Page.pm :43:	my subset Annot of Hash where { .<Type> ~~ 'Annot' && (! .<FT> || $_ ~~ PDF::Field) }
WARRINGD/PDF-Class …/Page.pm :65:	$annots.keys.map({$annots[$_]}).grep({$_ ~~ PDF::Field})
WARRINGD/PDF-Class …/Pattern.pm :29:	unless $type-int ~~ PatternTypeInt {
WARRINGD/PDF-Class …/Pattern.pm :43:	if $class-name ~~ /^ 'PDF::' (\w+) ['::' (\w+)]? $/ {
WARRINGD/PDF-Class …/Shading.pm :36:	unless $type-int ~~ ShadingTypeInt {
WARRINGD/PDF-Class …/Shading.pm :49:	if $class-name ~~ /^ 'PDF::' (\w+) ['::' (\w+)]? $/ {
WARRINGD/PDF-Class …/Image.pm :65:	&& self.Filter ~~ 'FlateDecode'
WARRINGD/PDF-Class …/Image.pm :66:	&& $decode-parms<Predictor> ~~ PNGPredictor {
WARRINGD/PDF-Class …/Image.pm :81:	$hdr.color-type = $_ ~~ 'DeviceRGB'
WARRINGD/PDF-Class …/00-readme.t :9:	$read-me ~~ /^ $<waffle>=.*? +%% ["```" \n? $<code>=.*? "```" \n?] $/
WARRINGD/PDF-Class …/pdf-destination.t :21:	ok $dest ~~ DestinationArray, 'is destination array';
WARRINGD/PDF-Class …/pdf-destination.t :22:	ok [$page, 'Blah'] !~~ DestinationArray, 'non-destination array';
WARRINGD/PDF-Font-Loader …/FreeType.pm :72:	if $encoded.of ~~ uint16;
WARRINGD/PDF-Font-Loader …/Stream.pm :64:	unless $header ~~ type;
WBIKER/IO-Prompt …/Prompt.pm :193:	when $_ ~~ Numeric
7ojo/p6-commandline-usage …/Usage.pm6 :22:	$!text ~~ s:g/\n//;
7ojo/p6-commandline-usage …/Usage.pm6 :35:	$.text ~~ s/ '<%' \s* $key \s* '%>' \n ? /$val/;
7ojo/p6-commandline-usage …/Usage.pm6 :41:	$out ~~ s:g/ '<%' .*? '%>' \n ? //;
7ojo/p6-commandline-usage …/Usage.pm6 :42:	$out ~~ s:g/ \n ** 2..* $/\n/;
7ojo/p6-commandline-usage …/Options.pm6 :63:	$param-type = $0 if $param.perl ~~ /^ (<type>) /;
7ojo/p6-commandline-usage …/Options.pm6 :64:	$short-param = "-$0" if $param.perl ~~ / (<short-name>) /;
7ojo/p6-commandline-usage …/Options.pm6 :65:	$long-param = "--$0" if $param.perl ~~ / (<long-name>) /;
7ojo/p6-commandline-usage …/Options.pm6 :66:	$default-value = $0 if $param.perl ~~ / '=' \s* '"'? (<-["]>+) '"'? /;
7ojo/p6-commandline-usage …/Options.pm6 :76:	$param-type = 'string' if $default-value ~~ / \w /;
7ojo/p6-commandline-usage …/Options.pm6 :86:	$default-value ~~ s/ '\$HOME' /$*HOME/;
7ojo/perl6-git-simple …/Parse.pm :7:	if $out && $out.Str.lines[0] ~~ / ^\#**2 \s
Altai-man/Slang-Kazu …/README.md :12:	say "3542" ~~ 三千五百四十二; # True
Altai-man/Slang-Kazu …/README.md :13:	say '一' ~~ /<single-kazu>/; # Will match any digit from 1 to 9
Altai-man/Slang-Kazu …/Kazu.pm6 :118:	say "3542" ~~ 三千五百四十二; # True
Altai-man/Slang-Kazu …/01-basic.t :50:	is ~('一' ~~ /<single-kazu>/), "一";
Altai-man/deredere …/README.md :27:	($node.Str ~~ /src\=\"(.+?)\"/)[0].Str;
Altai-man/deredere …/scrape-images.p6 :8:	($node.Str ~~ /src\=\"(.+?)\"/)[0].Str;
Altai-man/deredere …/deredere.pm6 :71:	@data.race.map( { if $_ ~~ /https?\:\/\// {
Altai-man/perl6-Compress-Bzip2-Raw …/Raw.pm6 :104:	my Str $output = ($filename ~~ m/(.+).bz2/)[0].Str;
Altai-man/perl6-Config-Netrc …/10-testing.t :19:	ok parse($text) !~~ Nil;
Altai-man/perl6-Config-Netrc …/10-testing.t :28:	ok parse($text) !~~ Nil;
Altai-man/perl6-Config-Netrc …/10-testing.t :36:	ok parse($text) !~~ Nil;
Altai-man/perl6-Config-Netrc …/10-testing.t :44:	ok parse($text) !~~ Nil;
Altai-man/perl6-Config-Netrc …/10-testing.t :51:	ok parse($text) !~~ Nil;
Altai-man/perl6-Test-NoTabs …/NoTabs.pm6 :28:	next if ($line ~~ /^\s*'#'/);
Altai-man/perl6-Test-NoTabs …/NoTabs.pm6 :29:	next if ($line ~~ /^\s* '=' (head[1234]|over|item|begin|for|encoding)/);
Altai-man/perl6-Test-NoTabs …/NoTabs.pm6 :30:	next if ($line ~~ /^\s* '=' (cut|back|end)/ );
Altai-man/perl6-Test-NoTabs …/NoTabs.pm6 :31:	if ( $line ~~ /\t/ ) {
Altai-man/perl6-Test-NoTabs …/NoTabs.pm6 :48:	$file ~~ /:i\.pm6?/;# || $file ~~ /::/; # NYI
Altai-man/perl6-Test-NoTabs …/NoTabs.pm6 :52:	return 1 if $file ~~ /:i\.pl?6?$/;
Altai-man/perl6-Test-NoTabs …/NoTabs.pm6 :53:	return 1 if $file ~~ /\.t$/;
Altai-man/perl6-Test-NoTabs …/NoTabs.pm6 :59:	# return $file unless ($file ~~ /':' ':'/);
Altai-man/perl6-app-whiff …/Whiff.pm6 :10:	return $name if $name ~~ m{^\/} && $name.IO ~~ :x;
Bailador/Bailador …/pastebin.pl6 :7:	unless 'data'.IO ~~ :d {
Bailador/Bailador …/App.pm :153:	if 'GET' ~~ any( $child-route.method ) && 'HEAD' !~~ any ( $child-route.method ) {
Bailador/Bailador …/App.pm :157:	if 'HEAD' ~~ any( $child-route.method ) && 'GET' !~~ any ( $child-route.method ) {
Bailador/Bailador …/App.pm :167:	if $result ~~ Bool {
Bailador/Bailador …/App.pm :200:	if $content ~~ IO::Path {
Bailador/Bailador …/CLI.pm :20:	if $data ~~ Hash {
Bailador/Bailador …/CLI.pm :63:	my multi sub bootup-file (Str $cmd where {$cmd ~~ any <easy tiny ogre>}, Str $app, Str $config?) is export {
Bailador/Bailador …/watch.pm :35:	if $e.path() !~~ /\.sw.$/ and $e.path() !~~ /\~$/ {
Bailador/Bailador …/watch.pm :70:	if ( $p ~~ rx{ '/'? '.precomp' [ '/' | $ ] } ) {
Bailador/Bailador …/watch.pm :76:	if $e.event ~~ FileRenamed && $e.path.IO ~~ :d {
Bailador/Bailador …/Configuration.pm :61:	has @.logs where * ~~ Pair = [
Bailador/Bailador …/Configuration.pm :118:	if $file.IO ~~ :e && @config-file-extensions.contains($file.IO.extension) {
Bailador/Bailador …/Configuration.pm :120:	} elsif $file.IO !~~ :e {
Bailador/Bailador …/Configuration.pm :130:	if $file.IO.extension ~~ 'yaml' | 'yml' {
Bailador/Bailador …/Gradual.pm :35:	if $path.IO.f and $path ~~ /\.html$/ {
Bailador/Bailador …/Gradual.pm :36:	if $path ~~ /\/index\.html$/ {
Bailador/Bailador …/Request.pm :63:	elsif $headers<CONTENT_TYPE>:exists and $headers<CONTENT_TYPE> ~~ / 'multipart/form-data;' .* 'boundary' '=' '"' ? ( <bcharnospace> ** 0..69 ) \s* '"' ? / {
Bailador/Bailador …/Request.pm :100:	if $header ~~ m/ ^ ( \S+ ) ':' \s+ (.+) $ / {
Bailador/Bailador …/Request.pm :167:	$url-path ~~ s/ '/' $ //;
Bailador/Bailador …/Request.pm :168:	$path ~~ s/ ^ '/' //;
Bailador/Bailador …/Multipart.pm :16:	if $content-disposition ~~ / << name >> '=' '"' ( <-["]>+ ) '"' / {
Bailador/Bailador …/Multipart.pm :19:	if $content-disposition ~~ / << filename >> '=' '"' ( <-["]>+ ) '"' / {
Bailador/Bailador …/Route.pm :24:	if $result ~~ Failure {
Bailador/Bailador …/Route.pm :108:	subset UrlMatcher where * ~~ Regex|Str;
Bailador/Bailador …/Route.pm :119:	@!method = 'ANY' ~~ any(@$method) ?? @all-methods !! $method;
Bailador/Bailador …/Route.pm :133:	if $.url-matcher ~~ Regex {
Bailador/Bailador …/Route.pm :140:	my Match $match = $path ~~ $.regex;
Bailador/Bailador …/Route.pm :161:	$.url-matcher ~~ Str ?? $.url-matcher !! $.url-matcher.perl;
Bailador/Bailador …/RouteHelper.pm :46:	my IO $directory = $x.value ~~ IO ?? $x.value !! $app.location.IO.child($x.value.Str);
Bailador/Bailador …/Test.pm :85:	if $body ~~ Supply {
Bailador/Bailador …/00-lint.t :48:	if $line ~~ rx/use \s+ ( <-[;]> + ) \s* ';'/ {
Bailador/Bailador …/04-OO-templates-mustache.t :25:	ok $resp[2] ~~ /'a happy bar'\r?\n/;
Bailador/Bailador …/04-OO-templates.t :23:	ok $resp[2] ~~ /'a happy bar'\r?\n/;
Bailador/Bailador …/04-templates-mustache.t :26:	ok $resp1[2] ~~ /'a happy bar'\r?\n/;
Bailador/Bailador …/04-templates-mustache.t :36:	ok $resp2[2] ~~ /'a happy bar'\r?\n/;
Bailador/Bailador …/04-templates.t :23:	ok $resp1[2] ~~ /^ 'a happy bar' \r?\n$/;
Bailador/Bailador …/04-templates.t :43:	ok $resp3[2] ~~ / '<pre>' \r? \n 'a happy bar' \r? \n /;
Bailador/Bailador …/30-examples-pastebin.t :42:	$html ~~ rx:s/^New paste available at \<a href\=\"paste\/(\d+)\"\>paste\/(\d+)\<\/a\>$/;
Cofyc/perl6-redis …/Redis.pm :90:	if $server ~~ m/^([\d+]+ %\.) [':' (\d+)]?$/ {
Cofyc/perl6-redis …/Redis.pm :190:	if $response~~ Buf[uint8] {
Cofyc/perl6-redis …/Redis.pm :192:	} elsif $response ~~ Array {
Cofyc/perl6-redis …/Redis.pm :194:	} elsif $response ~~ Hash {
Cofyc/perl6-redis …/Redis.pm :674:	if $_ ~~ Pair {
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :98:	return $type if $type ~~ GraphQL::Object and %!resolved{$type.name}++;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :107:	if $realtype ~~ GraphQL::LazyType;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :162:	and self.queryType ~~ GraphQL::Object;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :165:	and self.type('Mutation') ~~ GraphQL::Object
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :209:	my $var = $a ~~ /<-[!]>+$/;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :213:	next unless $name ~~ /^<[_A..Za..z]><[_0..9A..Za..z]>*$/;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :215:	next unless $a.type ~~ Any;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :230:	next unless $m.name ~~ /^<[_A..Za..z]><[_0..9A..Za..z]>*$/;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :236:	next unless $sig.returns ~~ Any;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :246:	next unless $name ~~ /^<[_A..Za..z]><[_0..9A..Za..z]>*$/;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :248:	next unless $p.type ~~ Any;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :284:	my $var = $a ~~ /<-[!]>+$/;
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :326:	if not $nonnull and $type.WHAT.perl ~~ /\:D$/
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :358:	%!types{$!query} ~~ GraphQL::Object)
CurtTilmes/Perl6-GraphQL …/GraphQL.pm :386:	next if $type ∈ $defaultTypes or $typename ~~ /^__/;
CurtTilmes/Perl6-GraphQL …/Execution.pm :75:	my $type = $fieldType ~~ GraphQL::Interface | GraphQL::Union
CurtTilmes/Perl6-GraphQL …/Execution.pm :109:	if $resolvedValue ~~ Promise
CurtTilmes/Perl6-GraphQL …/Execution.pm :165:	die "Must return a List" unless $result ~~ List | Seq;
CurtTilmes/Perl6-GraphQL …/Execution.pm :178:	my $objectType = $fieldType ~~ GraphQL::Object
CurtTilmes/Perl6-GraphQL …/Execution.pm :302:	when GraphQL::Variable and $_.type ~~ GraphQL::Boolean
CurtTilmes/Perl6-GraphQL …/Execution.pm :317:	when GraphQL::Variable and $_.type ~~ GraphQL::Boolean
CurtTilmes/Perl6-GraphQL …/Execution.pm :447:	if $field.resolver ~~ Sub
CurtTilmes/Perl6-GraphQL …/Execution.pm :451:	elsif $field.resolver ~~ Method
CurtTilmes/Perl6-GraphQL …/Execution.pm :477:	elsif $objectValue ~~ Hash and $objectValue{$fieldName}:exists
CurtTilmes/Perl6-GraphQL …/Response.pm :13:	$!value = await $!value if $!value ~~ Promise;
CurtTilmes/Perl6-GraphQL …/Types.pm :146:	return Array[$!ofType.class] unless $value ~~ Array;
CurtTilmes/Perl6-GraphQL …/Types.pm :212:	@!fieldlist.grep: {.name !~~ /^__/ and
CurtTilmes/Perl6-GraphQL …/Types.pm :323:	return $!class ~~ GraphQL::InputObject
CurtTilmes/Perl6-GraphQL …/Types.pm :357:	$.enum ~~ Enumeration
CurtTilmes/Perl6-GraphQL …/Validation.pm :34:	if $type ~~ GraphQL::Union
CurtTilmes/perl6-dbi-async …/02-async.t :12:	ok $p ~~ Promise, 'Promise';
CurtTilmes/perl6-dbi-async …/03-connections.t :14:	ok $p ~~ Promise, 'Promise';
CurtTilmes/perl6-dbi-async …/03-connections.t :36:	ok $p ~~ Promise, 'Promise';
CurtTilmes/perl6-eredis …/Async.pm :143:	where * ~~ 'server'|'clients'|'memory'|'persistence'|'stats'|
CurtTilmes/perl6-eredis …/Cluster.pm :11:	if $value ~~ Failure and
CurtTilmes/perl6-eredis …/Cluster.pm :12:	$value.exception.message ~~ m:s/^MOVED (\d+) (.+\:\d+)$/ {
CurtTilmes/perl6-eredis …/02-testserver.t :12:	ok $redis ~~ Test::Redis, 'Create Test Server';
CurtTilmes/perl6-eredis …/04-basic.t :15:	ok $r ~~ Redis::Async, 'Created Object';
CurtTilmes/perl6-eredis …/05-expires.t :15:	ok $r ~~ Redis::Async, 'Created Object';
CurtTilmes/perl6-eredis …/11-info.t :18:	ok $info ~~ Hash, 'INFO hash';
CurtTilmes/perl6-eredis …/13-sets.t :25:	ok $r.srandmember('set-a') ~~ 'a'|'b'|'c', 'SRANDMEMBER';
CurtTilmes/perl6-eredis …/13-sets.t :27:	ok $r.spop('set-a') ~~ 'a'|'b'|'c', 'SPOP';
CurtTilmes/perl6-libcurl …/Easy.pm6 :305:	if $header ~~ /^HTTP\//
CurtTilmes/perl6-libcurl …/Easy.pm6 :309:	elsif $header ~~ /^(<-[:]>+) ': ' (.*)$/
CurtTilmes/perl6-libcurl …/Easy.pm6 :537:	my $blob = $param ~~ Blob ?? $param !! "$param\0".encode;
CurtTilmes/perl6-libcurl …/EasyHandle.pm6 :577:	@array[$i].value = @item[1] ~~ Blob
CurtTilmes/perl6-libcurl …/EasyHandle.pm6 :669:	.map({ $_.key ~~ /^CURL_VERSION_(.*)$/; ~$0 })
Demayl/perl6-Email-Valid …/Valid.pm6 :34:	token multicast { (<.octet>)<?{ $0 ~~ 224..239}>\.<.octet> ** 3 % '.' }
Demayl/perl6-Email-Valid …/Valid.pm6 :35:	token experiment { (<.octet>)<?{ $0 ~~ 240..255}>\.<.octet> ** 3 % '.' }
Demayl/perl6-Email-Valid …/Valid.pm6 :38:	172\.(<.octet>)<?{$0 ~~ 16..31}>\.<.octet>\.<.octet> ||
Demayl/perl6-Email-Valid …/Valid.pm6 :66:	(<d_part>) ** {1..$max_subd_parts} <?{ all($0.flat) ~~ /^. ** 2..64$/ }>
Demayl/perl6-Email-Valid …/Valid.pm6 :145:	return all(@checks) ~~ :so; # :so is for smartmatch that forces Bool context ( if we use True it will always match )
Demayl/perl6-Email-Valid …/Valid.pm6 :160:	return Nil if !@mails.elems || @mails[0] !~~ Match;
Emeric54/p6-text-caesar …/Caesar.pm6 :38:	die "Can't locate $orig" unless $orig.IO ~~ :e;
Emeric54/p6-text-caesar …/Caesar.pm6 :58:	die "Can't locate $orig !" unless $orig.IO ~~ :e;
FCO/6pm …/SixPM.pm6 :37:	$!meta.source-url = ($git-config ~~ m{ \[remote \s+ \"origin\"\] \s+ url \s+ \= \s+ <(\S*)> }).Str;
FCO/6pm …/ZefInstaller.pm6 :13:	do if $v ~~ Bool {
FCO/6pm …/SixPM.pm6 :9:	} while $cwd.resolve.absolute !~~ "/";
FCO/DateTime-Extended …/Extended.pm6 :69:	$clone .= clone(:18hour, :0minute, :0second) if self ~~ DateTime;
FCO/Heap …/01-test.t :35:	ok $h1 ~~ $h2, "Compare heaps";
FCO/Heap …/01-test.t :37:	ok $h1 !~~ $h3, "compare non equal heaps";
FCO/Heap …/01-test.t :40:	ok $h1 ~~ $h3, "Compare heaps 2";
FCO/Heap …/01-test.t :44:	ok $m1 ~~ $m2, "Compare heaps 3";
FCO/ProblemSolver …/ProblemSolver.pm6 :65:	my @keys = %!constraints.keys.grep: -> \sig { %vars ~~ sig }
FCO/ProblemSolver …/ProblemSolver.pm6 :96:	my &func = EVAL "-> $sig, | \{ [!~~] $cal \}";
FCO/ProblemSolver …/State.pm6 :31:	%!found ~~ set %!vars.keys
FCO/Test-Fuzz …/AggGenerators.pm6 :35:	.map({.grep(* !~~ ToRemove).Array})
FCO/Test-Fuzz …/Fuzzed.pm6 :33:	$return.exception.throw if $return ~~ Failure;
FCO/Test-Fuzz …/Generator.pm6 :15:	$hcoded = self.constraint_list.first({.defined and $_ !~~ Callable});
FCO/Test-Fuzz …/Generator.pm6 :23:	return so i ~~ test-type;
FCO/Test-Fuzz …/Generator.pm6 :28:	return so i ~~ $constraints;
FCO/Test-Fuzz …/Generator.pm6 :46:	@ret.push: $item if $item ~~ test-type & $constraints;
FCO/Test-Fuzz …/Generator.pm6 :48:	@ret .= unique: :with({$^a === $^b and not $^a ~~ Unique})
FCO/Test-Fuzz …/02-agg-generators.t :16:	is $sig.params.grep(* !~~ Test::Fuzz::Generator).elems, 0;
FCO/Test-Fuzz …/04-misc-class.t :22:	is $sig.params.grep(* !~~ Test::Fuzz::Generator).elems, 0,
FCO/json-stream …/Stream.pm6 :29:	@chunks .= grep: * !~~ /^\s+$/;
FCO/json-stream …/Stream.pm6 :30:	if @rest and @chunks.head ~~ @stop-words.none {
FCO/json-stream …/Stream.pm6 :35:	@rest.unshift: @new-chunks.pop while @new-chunks and @new-chunks.tail ~~ @stop-words.none;
FCO/json-stream …/Parse.pm6 :19:	%!cache{self.json-path: $i} ~= $chunk if @!subscribed.grep: { @p ~~ $_ }
FCO/json-stream …/Parse.pm6 :26:	emit self.json-path($num) => from-json %!cache{self.json-path: $num}:delete if @!subscribed.grep: { @p ~~ $_ }
FROGGS/p6-Digest-PSHA1 …/PSHA1.pm :7:	$clientbytes = $clientbytes.encode('ascii') unless $clientbytes ~~ Blob;
FROGGS/p6-Digest-PSHA1 …/PSHA1.pm :8:	$serverbytes = $serverbytes.encode('ascii') unless $serverbytes ~~ Blob;
FROGGS/p6-IDNA-Punycode …/Punycode.pm :17:	return ord($code) - ord("A") if $code ~~ /<[A..Z]>/;
FROGGS/p6-IDNA-Punycode …/Punycode.pm :18:	return ord($code) - ord("a") if $code ~~ /<[a..z]>/;
FROGGS/p6-IDNA-Punycode …/Punycode.pm :19:	return ord($code) - ord("0") + 26 if $code ~~ /<[0..9]>/;
FROGGS/p6-IDNA-Punycode …/Punycode.pm :46:	return $code unless $code ~~ s/^ 'xn--' //;
FROGGS/p6-IDNA-Punycode …/Punycode.pm :48:	if $code ~~ s/ (.*) '-' // {
FROGGS/p6-Inline-C …/Inline.pm :10:	@args.push( .type ~~ Int ?? 0 !!
FROGGS/p6-Inline-C …/Inline.pm :11:	.type ~~ Num ?? 0e0 !!
FROGGS/p6-Inline-C …/C.pm :38:	$so ~~ s/^.*\%s//;
FROGGS/p6-if …/if.t :10:	does-load-bar 'use if; use Bar:if($*PERL.version ~~ v6.c)', 'we can use $*PERL.version in :if';
FROGGS/p6-if …/if.t :11:	doesn't-load-bar 'use if; use Bar:if($*PERL.version ~~ v7)', 'we can use $*PERL.version in :if';
FROGGS/p6-overload-constant …/README.md :14:	ok 42 ~~ Str && 42 eq 'i42', 'can overload integer';
FROGGS/p6-overload-constant …/README.md :15:	ok 0.12 ~~ Str && 0.12 eq 'd0.12', 'can overload decimal';
FROGGS/p6-overload-constant …/README.md :16:	ok .1e-003 ~~ Str && .1e-003 eq 'd.1e-003', 'can overload decimal in scientific notation';
FROGGS/p6-overload-constant …/README.md :17:	ok :16<FF> ~~ Str && :16<FF> eq 'r:16<FF>', 'can overload radix';
FROGGS/p6-overload-constant …/README.md :18:	ok NaN ~~ Str && NaN eq 'nNaN', 'can overload other numish things';
FROGGS/p6-overload-constant …/01-basic.t :14:	ok 42 ~~ Str && 42 eq 'i42', 'can overload integer';
FROGGS/p6-overload-constant …/01-basic.t :15:	ok 0.12 ~~ Str && 0.12 eq 'd0.12', 'can overload decimal';
FROGGS/p6-overload-constant …/01-basic.t :16:	ok .1e-003 ~~ Str && .1e-003 eq 'd.1e-003', 'can overload decimal in scientific notation';
FROGGS/p6-overload-constant …/01-basic.t :17:	ok :16<FF> ~~ Str && :16<FF> eq 'r:16<FF>', 'can overload radix';
FROGGS/p6-overload-constant …/01-basic.t :18:	ok NaN ~~ Str && NaN eq 'nNaN', 'can overload other numish things';
FROGGS/p6-overload-constant …/01-basic.t :35:	ok 42 !~~ Str, 'overload only happens inside its scope';
Gnouc/p6-linux-process-signalinfo …/SignalInfo.pm :39:	next unless $signal ~~ Signal;
Heather/ignore …/ignore :70:	if $source ~~ /\*|\(|\)/ { $ipattern = ($source, $source) }
IanTayler/MinG …/MinG.pm6 :100:	my $repeated = $contents ~~ /'%COPYFROM'.+'%COPYTO'/;
IanTayler/MinG …/MinG.pm6 :252:	if $inp ~~ /^ <[= + \-]> \w+ / {
IanTayler/MinG …/MinG.pm6 :265:	} elsif $inp ~~ /^ \w+/ {
IanTayler/MinG …/EDMG.pm6 :50:	unless $s ~~ /<marker_first>|<marker_last>|<no_marker>/ {
IanTayler/MinG …/Text.pm6 :128:	if @lines[0] ~~ /^'TYPE='<type>/ {
JJ/p6-wikidata-API …/README.md :11:	~~~
JJ/p6-wikidata-API …/README.md :41:	~~~
Juerd/p6-mqtt …/Client.pm :17:	$str ~~ s:g[\W+] = "'$/'";
Juerd/p6-mqtt …/Client.pm :26:	$regex ~= "<!before '\$'>" if $filter ~~ /^\+/;
Juerd/p6-mqtt …/Client.pm :138:	return $!messages.grep: { .<topic> ~~ $regex };
LLFourn/p6-AttrX-InitArg …/README.md :97:	~~doesn't work in roles yet. Sorry!~~
LLFourn/p6-AttrX-InitArg …/README.md :114:	~~This trait creates a custom BUILDALL on the role/class containing
LLFourn/p6-AttrX-InitArg …/README.md :115:	the trait. If you write your own one this won't work atm.~~ This
LLFourn/p6-AttrX-InitArg …/InitArg.pm6 :59:	if $pkg.HOW ~~ Metamodel::ParametricRoleGroupHOW {
LLFourn/p6-AttrX-InitArg …/InitArg.pm6 :87:	if $pkg.HOW !~~ Metamodel::ClassHOW {
LLFourn/p6-AttrX-InitArg …/class.t :22:	ok $envoy.perl ~~ /'TOP SECRET'/;
LLFourn/p6-AttrX-InitArg …/class.t :23:	nok $envoy.gist ~~ /'TOP SECRET'/;
LLFourn/p6-AttrX-InitArg …/class.t :36:	ok $foo.perl ~~ /'constructor-name'/;
LLFourn/p6-AttrX-InitArg …/class.t :39:	ok $foo.perl ~~ /'constructor-name'/;
LLFourn/p6-AttrX-InitArg …/class.t :40:	ok $foo.perl ~~ /'wee'/;
LLFourn/p6-AttrX-InitArg …/class.t :41:	nok $foo.gist ~~ /'wee'/;
LLFourn/p6-AttrX-InitArg …/class.t :42:	ok $foo.gist ~~ /'accessor-name'/;
LLFourn/p6-AttrX-InitArg …/class.t :53:	nok $foo.perl ~~ /'no-set'/;
LLFourn/p6-AttrX-InitArg …/class.t :54:	ok $foo.gist ~~ /'no-set'/;
LLFourn/p6-AttrX-InitArg …/role.t :22:	ok $envoy.perl ~~ /'TOP SECRET'/;
LLFourn/p6-AttrX-InitArg …/role.t :23:	nok $envoy.gist ~~ /'TOP SECRET'/;
LLFourn/p6-CompUnit-Util …/Util.pm6 :286:	die "cannot have '::' in get-lexical lookup (got '$path'). Patch needed!" if $path ~~ /'::'/;
LLFourn/p6-CompUnit-Util …/01-utils.t :9:	ok find-loaded('Test') ~~ CompUnit:D, 'found Test';
LLFourn/p6-CompUnit-Util …/01-utils.t :10:	ok find-loaded('CompUnit::Util') ~~ CompUnit:D, 'found CompUnit::Util';
LLFourn/p6-CompUnit-Util …/01-utils.t :12:	ok find-loaded('Foo') ~~ Failure:D,'returns Failure';
LLFourn/p6-CompUnit-Util …/01-utils.t :14:	ok all-loaded()».short-name ~~ set('CompUnit::Util','NativeCall','Test'),
LLFourn/p6-CompUnit-Util …/01-utils.t :19:	ok $pod ~~ Pod::Block:D, 'at-unit finds $=pod';
LLFourn/p6-CompUnit-Util …/02-re-export.t :28:	#ok ( grammar { } ).HOW ~~ Metamodel::ClassHOW, 'SUPERSEDE grammar is re-exported'
LLFourn/p6-DispatchMap …/DispatchMap.pm6 :81:	if $k ~~ Pair:D {
LLFourn/p6-DispatchMap …/DispatchMap.pm6 :87:	$k := List.new($k) if not ($k.defined and $k ~~ Iterable);
LLFourn/p6-DispatchMap …/DispatchMap.pm6 :96:	if $dispatcher ~~ Dispatcher {
LLFourn/p6-DispatchMap …/01-basic.t :42:	ok $map.namespaces ~~ <things foo>.Set,".namespaces works";
LLFourn/p6-DispatchMap …/02-example.t :24:	ok $map.get-all('things',"foo") ~~ ("A literal foo","one string","something stringy");
LLFourn/p6-OO-Schema …/Schema.pm6 :6:	$path = $path ~~ Str:D ?? $path !! $node.^name;
LLFourn/p6-OO-Schema …/Schema.pm6 :26:	|| self.^shortname.lc ~~ $test.lc
LLFourn/p6-OO-Schema …/Schema.pm6 :27:	|| self.^load-from ~~ $test
LLFourn/p6-OO-Schema …/Schema.pm6 :68:	next unless $child.HOW ~~ OO::Schema::NodeHOW;
LLFourn/p6-OO-Schema …/Schema.pm6 :133:	my $node-name = $schema-node ~~ Str ?? $schema-node !! $class.^shortname;
LLFourn/p6-OO-Schema …/01-userland.t :9:	ok Ubuntu ~~ Debian;
LLFourn/p6-OO-Schema …/01-userland.t :10:	ok Ubuntu ~~ Ubuntu;
LLFourn/p6-OO-Schema …/01-userland.t :11:	ok Ubuntu ~~ POSIX;
LLFourn/p6-OO-Schema …/01-userland.t :12:	ok Ubuntu ~~ Userland;
LLFourn/p6-OO-Schema …/01-userland.t :33:	ok ku !~~ u, "sibiling nodes don't inherit";
LLFourn/p6-OO-Schema …/01-userland.t :34:	ok u ~~ APT,"role applied to {u.gist}";
LLFourn/p6-OO-Schema …/01-userland.t :35:	ok ku ~~ APT,"role applied to {ku.gist}";
LLFourn/p6-OO-Schema …/01-userland.t :45:	ok u ~~ p1,'isa Userland::Debian';
LLFourn/p6-OO-Schema …/01-userland.t :46:	ok u ~~ p2,'isa Userland::POSIX';
LLFourn/p6-OO-Schema …/01-userland.t :53:	ok $class ~~ RHEL;
LLFourn/p6-OO-Schema …/04-children.t :8:	ok Userland.children ~~ set(Windows,POSIX),".children";
LLFourn/p6-OO-Schema …/04-children.t :9:	ok Userland.children(:all) ~~ set(
LLFourn/p6-OO-Schema …/04-children.t :25:	ok GNU.children ~~ set(Debian,RHEL),"GNU.children";
LLFourn/p6-OO-Schema …/04-children.t :26:	ok GNU.children(:all) ~~ set(
Leont/build-graph6 …/Graph.pm :25:	if ($key ~~ / ^ '@(' (<[\w.-]>+) ')' $ /) -> $/ {
Leont/build-graph6 …/Graph.pm :29:	elsif ($key ~~ / ^ '%(' (<[\w.,-]>+) ')' $ /) -> $/ {
Leont/build-graph6 …/Graph.pm :208:	my @files = $.dependencies.grep({ $!graph!Build::Graph::get-node($^dep) ~~ $?CLASS or $^dep.IO.e });
Leont/build-graph6 …/Graph.pm :250:	$!pattern = $pattern ~~ Regex ?? $pattern !! EVAL $pattern;
Leont/build-graph6 …/Graph.pm :251:	@!dir = $dir ~~ Positional ?? @($dir) !! $*SPEC.splitdir($dir);
Leont/build-graph6 …/Graph.pm :261:	if self!match-dir($filename) && $filename.IO.basename ~~ $!pattern {
Leont/build-graph6 …/Graph.pm :314:	my ($plugin, $subcommand) = $command ~~ / ^ (<[^/]>+) \/ (.*) / ?? ($!graph.lookup-plugin($1), $2) !! (self, $command);
Leont/build-graph6 …/Graph.pm :319:	my ($plugin, $subtrans) = $trans ~~ / ^ (<[^/]>+) \/ (.*) / ?? ($!graph.lookup-plugin($1), $2) !! (self, $trans);
Leont/build-graph6 …/Graph.pm :325:	return $value if not $value.defined or $value[0] ~~ / \/ /;
Leont/build-graph6 …/basic.t :95:	if $runpart ~~ Callable {
Leont/build-simple6 …/Simple.pm :9:	my subset Filename of Any:D where { $_ ~~ Str|IO::Path };
Leont/build-simple6 …/basic.t :69:	if $expected ~~ Callable {
Leont/getopt-long6 …/Long.pm :18:	if $raw ~~ / ^ @names $ / {
Leont/getopt-long6 …/Long.pm :21:	elsif $!negatable && $raw ~~ / ^ 'no' '-'? @names $/ {
Leont/getopt-long6 …/Long.pm :36:	if $raw ~~ / ^ @names $ / {
Leont/getopt-long6 …/Long.pm :44:	elsif $raw ~~ / ^ @names '=' $<value>=[.*] / -> $/ {
Leont/getopt-long6 …/Long.pm :212:	if $head ~~ / ^ '--' $<name>=[\w+] $ / -> $/ {
Leont/getopt-long6 …/Long.pm :220:	elsif $!gnu-style && $head ~~ / ^ '--' $<value>=[ $<name>=[\w+] '=' .* ] / -> $/ {
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :211:	die "Username $text not accepted" if $prepped-text ~~ Bool;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :218:	die "Username $text not accepted" if $prepped-text ~~ Bool;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :226:	die "Password not accepted" if $prepped-text ~~ Bool;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :235:	$name ~~ s:g/ '=' /=3d/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :236:	$name ~~ s:g/ ',' /=2c/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :244:	$name ~~ s:g:i/ '=2c' /,/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :245:	$name ~~ s:g:i/ '=3d' /=/;
MARTIMM/Auth-SCRAM …/Client.pm6 :207:	$nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/Client.pm6 :212:	$salt ~~ s/^ 's=' //;
MARTIMM/Auth-SCRAM …/Client.pm6 :216:	$iter ~~ s/^ 'i=' //;
MARTIMM/Auth-SCRAM …/Client.pm6 :232:	if $!server-final-message ~~ m/^ 'e=' / {
MARTIMM/Auth-SCRAM …/Client.pm6 :236:	elsif $!server-final-message ~~ m/^ 'v=' / {
MARTIMM/Auth-SCRAM …/Client.pm6 :239:	$sv ~~ s/^ 'v=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :147:	$!gs2-bind-flag ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :152:	$!authzid ~~ s/^ 'a=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :166:	$!username ~~ s/^ 'n=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :167:	$!username ~~ m:g/ '=' $<code>=[.?.?] /;
MARTIMM/Auth-SCRAM …/Server.pm6 :172:	return 'invalid-encoding' unless $c<code> ~~ m:i/ '2c' | '3d' /;
MARTIMM/Auth-SCRAM …/Server.pm6 :178:	$!c-nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :186:	$!reserved-mext ~~ s/^ 'm=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :196:	$!gs2-bind-flag ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :201:	$extension ~~ s/^ $<ename>=. '=' $<eval>=(.+) $//;
MARTIMM/Auth-SCRAM …/Server.pm6 :261:	$!channel-binding ~~ s/^ 'c=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :266:	$nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/Server.pm6 :274:	$client-final-without-proof ~~ s/ ',' $proof $//;
MARTIMM/Auth-SCRAM …/Server.pm6 :280:	$proof ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :298:	$nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :303:	$salt ~~ s/^ 's=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :307:	$iter ~~ s/^ 'i=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :323:	if $!server-final-message ~~ m/^ 'e=' / {
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :327:	elsif $!server-final-message ~~ m/^ 'v=' / {
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :330:	$sv ~~ s/^ 'v=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :381:	$!gs2-bind-flag ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :386:	$!authzid ~~ s/^ 'a=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :398:	$!username ~~ s/^ 'n=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :404:	$!c-nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :409:	$!reserved-mext ~~ s/^ 'm=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :414:	$!gs2-bind-flag ~~ s/^ 'p=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :484:	$!channel-binding ~~ s/^ 'c=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :489:	$nonce ~~ s/^ 'r=' //;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :561:	$name ~~ s:g/ '=2c' /,/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :562:	$name ~~ s:g/ '=3d' /=/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :568:	$name ~~ s:g/ '=' /=3d/;
MARTIMM/Auth-SCRAM …/SCRAM.pm6 :569:	$name ~~ s:g/ ',' /=2c/;
MARTIMM/Auth-SCRAM …/201-SCRAM.t :55:	ok $server-first-message ~~ m/^ 'r=' <-[,]>+ ",s=$s"/,
MARTIMM/Auth-SCRAM …/201-SCRAM.t :58:	$server-first-message ~~ m/^ 'r=' $<cs-nonce>=(<-[,]>+) /;
MARTIMM/BSON …/BSON.pm6 :67:	) if $s ~~ /\x00/;
MARTIMM/BSON …/BSON.pm6 :148:	while $b[$index] !~~ 0x00 and $index < $l {
MARTIMM/BSON …/BSON.pm6 :158:	) unless $index < $l and $b[$index++] ~~ 0x00;
MARTIMM/BSON …/Binary.pm6 :57:	$bstr ~~ s:g/ (\d+) (<[,\)]>) /{$0.fmt('0x%02x')}$1/;
MARTIMM/BSON …/Binary.pm6 :58:	my $nspaces = ($bstr ~~ m:g/\s/).elems;
MARTIMM/BSON …/Binary.pm6 :63:	$bstr ~~ s/\.new\(/.new(\n$bin-i2/;
MARTIMM/BSON …/Binary.pm6 :64:	$bstr ~~ s:m/'))'/\n$bin-i1)/;
MARTIMM/BSON …/Binary.pm6 :140:	) unless $buf-size ~~ BSON::C-UUID-SIZE;
MARTIMM/BSON …/Binary.pm6 :148:	) unless $buf-size ~~ BSON::C-MD5-SIZE;
MARTIMM/BSON …/Document.pm6 :51:	#TODO better type checking: List $pairs where all($_) ~~ Pair
MARTIMM/BSON …/Document.pm6 :177:	when $value ~~ BSON::Document {
MARTIMM/BSON …/Document.pm6 :182:	when $value ~~ Array {
MARTIMM/BSON …/Document.pm6 :189:	when $value ~~ List {
MARTIMM/BSON …/Document.pm6 :197:	when $value ~~ Buf {
MARTIMM/BSON …/Document.pm6 :365:	if $pair ~~ Pair {
MARTIMM/BSON …/Document.pm6 :528:	if self{$key}:exists and self{$key} ~~ Array and self{$key}.can($operation) {
MARTIMM/BSON …/Document.pm6 :548:	next if $v ~~ any(Array|BSON::Document);
MARTIMM/BSON …/Document.pm6 :572:	if @!values[$idx] ~~ Array {
MARTIMM/BSON …/Document.pm6 :586:	elsif @!values[$idx] ~~ BSON::Document {
MARTIMM/BSON …/Document.pm6 :868:	while $!encoded-document[$!index] !~~ 0x00 {
MARTIMM/BSON …/Document.pm6 :1050:	my $v = $!encoded-document[$i] ~~ 0x00 ?? False !! True;
MARTIMM/BSON …/Document.pm6 :1088:	while $!encoded-document[$!index] !~~ 0x00 and $!index < $doc-size {
MARTIMM/BSON …/Document.pm6 :1094:	while $!encoded-document[$!index] !~~ 0x00 and $!index < $doc-size {
MARTIMM/BSON …/Javascript.pm6 :21:	:$!scope where (.^name eq 'BSON::Document' or $_ ~~ Any)
MARTIMM/BSON …/ObjectId.pm6 :34:	) unless $string ~~ m/ ^ <xdigit>**24 $ /;
MARTIMM/BSON …/ObjectId.pm6 :128:	$string ~~ s:g/\s+//;
MARTIMM/BSON …/Regex.pm6 :38:	) unless $options ~~ m/ ^ <[imxlsu]>* $ /;
MARTIMM/BSON …/Regex.pm6 :71:	) if $s ~~ /\x00/;
MARTIMM/BSON …/Regex.pm6 :96:	while $b[$index] !~~ 0x00 and $index < $l {
MARTIMM/BSON …/Regex.pm6 :106:	) unless $index < $l and $b[$index++] ~~ 0x00;
MARTIMM/BSON …/300-document.t :137:	ok $d<a> ~~ Num, "Number is of type Num";
MARTIMM/BSON …/300-document.t :155:	ok $d<a> ~~ Num, "Number is of type Num";
MARTIMM/BSON …/300-document.t :187:	ok $d<test-assign> ~~ BSON::TemporaryContainer, 'Temporary container';
MARTIMM/BSON …/300-document.t :188:	ok $d<test-assign2> ~~ BSON::TemporaryContainer, 'Temporary container';
MARTIMM/BSON …/300-document.t :189:	ok $d<test-assign3> ~~ BSON::TemporaryContainer, 'Temporary container';
MARTIMM/BSON …/350-document.t :17:	ok $d<b> ~~ BSON::Document, 'subdoc at b';
MARTIMM/BSON …/350-document.t :23:	ok $d<b> ~~ BSON::Document, 'subdoc at b after encode, decode';
MARTIMM/BSON …/double.pl6 :73:	$bit-string ~= '.' unless $bit-string ~~ m/\./;
MARTIMM/BSON …/double.pl6 :76:	if $bit-string ~~ m/^0\./ {
MARTIMM/BSON …/double.pl6 :95:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/double.pl6 :96:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/double.pl6 :116:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/double.pl6 :117:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/700-encodable.t :24:	$emsg ~~ s:g/\n+//;
MARTIMM/BSON …/700-encodable.t :26:	ok $_.type ~~ m/MyThing0/, 'MyThing0 is a thrown object';
MARTIMM/BSON …/700-encodable.t :57:	$emsg ~~ s:g/\n+//;
MARTIMM/BSON …/700-encodable.t :59:	ok $_.type ~~ m/MyThing1/, 'MyThing1 is a thrown object';
MARTIMM/BSON …/701-decoder.t :24:	ok $type ~~ m/ Unknown \( 0xA2 \) /, $type;
MARTIMM/BSON …/701-decoder.t :25:	ok $msg ~~ ms/ Not \(yet\) implemented/, $msg;
MARTIMM/BSON …/703-encodable.t :89:	ok $h<ff> ~~ Hash, "Data of ff is Hash";
MARTIMM/BSON …/D.pm6 :45:	$bit-string ~= '.' unless $bit-string ~~ m/\./;
MARTIMM/BSON …/D.pm6 :49:	if $bit-string ~~ m/^0\./ {
MARTIMM/BSON …/D.pm6 :70:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/D.pm6 :71:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/D.pm6 :93:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/D.pm6 :94:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/Decoder.pm :98:	unless $a.shift ~~ 0x00;
MARTIMM/BSON …/Decoder.pm :110:	while $a[ 0 ] !~~ 0x00 {
MARTIMM/BSON …/Decoder.pm :117:	unless $a.shift ~~ 0x00;
MARTIMM/BSON …/Document.pl6 :50:	if $!keys[$i] ~~ $key {
MARTIMM/BSON …/Document.pl6 :73:	return True if $k ~~ $key;
MARTIMM/BSON …/Document.pl6 :84:	if $!keys[$i] ~~ $key {
MARTIMM/BSON …/Document.pl6 :119:	if @!keys[$i] ~~ $key {
MARTIMM/BSON …/Document.pl6 :142:	return True if $k ~~ $key;
MARTIMM/BSON …/Document.pl6 :153:	if @!keys[$i] ~~ $key {
MARTIMM/BSON …/Document.pl6 :217:	if @!keys[$i] ~~ $key {
MARTIMM/BSON …/Document1.pm6 :137:	if @!keys[$i] ~~ $key {
MARTIMM/BSON …/Document1.pm6 :634:	) if $s ~~ /\x00/;
MARTIMM/BSON …/Document1.pm6 :714:	$bit-string ~= '.' unless $bit-string ~~ m/\./;
MARTIMM/BSON …/Document1.pm6 :718:	if $bit-string ~~ m/^0\./ {
MARTIMM/BSON …/Document1.pm6 :737:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/Document1.pm6 :738:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/Document1.pm6 :758:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/Document1.pm6 :759:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/Document1.pm6 :822:	while $!encoded-document[$!index] !~~ 0x00 {
MARTIMM/BSON …/Document1.pm6 :960:	$!data{$key} = $!encoded-document[$i] ~~ 0x00 ?? False !! True;
MARTIMM/BSON …/Document1.pm6 :988:	while $!encoded-document[$!index] !~~ 0x00 and $!index < $doc-size {
MARTIMM/BSON …/Document1.pm6 :994:	while $!encoded-document[$!index] !~~ 0x00 and $!index < $doc-size {
MARTIMM/BSON …/Document1.pm6 :1099:	while $b[$index] !~~ 0x00 and $index < $l {
MARTIMM/BSON …/Document1.pm6 :1106:	) unless $index < $l and $b[$index++] ~~ 0x00;
MARTIMM/BSON …/Document1.pm6 :1127:	) unless $b[$end-string-at] ~~ 0x00;
MARTIMM/BSON …/Document1.pm6 :1289:	unless $nbr-bytes ~~ BSON::C-UUID-SIZE;
MARTIMM/BSON …/Document1.pm6 :1295:	unless $nbr-bytes ~~ BSON::C-MD5-SIZE;
MARTIMM/BSON …/Document2.pm6 :137:	if @!keys[$i] ~~ $key {
MARTIMM/BSON …/Document2.pm6 :634:	) if $s ~~ /\x00/;
MARTIMM/BSON …/Document2.pm6 :714:	$bit-string ~= '.' unless $bit-string ~~ m/\./;
MARTIMM/BSON …/Document2.pm6 :718:	if $bit-string ~~ m/^0\./ {
MARTIMM/BSON …/Document2.pm6 :737:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/Document2.pm6 :738:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/Document2.pm6 :758:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/Document2.pm6 :759:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/Document2.pm6 :824:	while $!encoded-document[$!index] !~~ 0x00 {
MARTIMM/BSON …/Document2.pm6 :962:	$!data{$key} = $!encoded-document[$i] ~~ 0x00 ?? False !! True;
MARTIMM/BSON …/Document2.pm6 :993:	while $!encoded-document[$!index] !~~ 0x00 and $!index < $doc-size {
MARTIMM/BSON …/Document2.pm6 :999:	while $!encoded-document[$!index] !~~ 0x00 and $!index < $doc-size {
MARTIMM/BSON …/Document2.pm6 :1104:	while $b[$index] !~~ 0x00 and $index < $l {
MARTIMM/BSON …/Document2.pm6 :1111:	) unless $index < $l and $b[$index++] ~~ 0x00;
MARTIMM/BSON …/Document2.pm6 :1132:	) unless $b[$end-string-at] ~~ 0x00;
MARTIMM/BSON …/Document2.pm6 :1294:	unless $nbr-bytes ~~ BSON::C-UUID-SIZE;
MARTIMM/BSON …/Document2.pm6 :1300:	unless $nbr-bytes ~~ BSON::C-MD5-SIZE;
MARTIMM/BSON …/Document3.pm6 :113:	if @!keys[$i] ~~ $key {
MARTIMM/BSON …/Document3.pm6 :606:	) if $s ~~ /\x00/;
MARTIMM/BSON …/Document3.pm6 :686:	$bit-string ~= '.' unless $bit-string ~~ m/\./;
MARTIMM/BSON …/Document3.pm6 :690:	if $bit-string ~~ m/^0\./ {
MARTIMM/BSON …/Document3.pm6 :709:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/Document3.pm6 :710:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/Document3.pm6 :730:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/Document3.pm6 :731:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/Document3.pm6 :791:	while $!encoded-document[$!index] !~~ 0x00 {
MARTIMM/BSON …/Document3.pm6 :929:	$!data{$key} = $!encoded-document[$i] ~~ 0x00 ?? False !! True;
MARTIMM/BSON …/Document3.pm6 :957:	while $!encoded-document[$!index] !~~ 0x00 and $!index < $doc-size {
MARTIMM/BSON …/Document3.pm6 :963:	while $!encoded-document[$!index] !~~ 0x00 and $!index < $doc-size {
MARTIMM/BSON …/Document3.pm6 :1068:	while $b[$index] !~~ 0x00 and $index < $l {
MARTIMM/BSON …/Document3.pm6 :1075:	) unless $index < $l and $b[$index++] ~~ 0x00;
MARTIMM/BSON …/Document3.pm6 :1096:	) unless $b[$end-string-at] ~~ 0x00;
MARTIMM/BSON …/Document3.pm6 :1258:	unless $nbr-bytes ~~ BSON::C-UUID-SIZE;
MARTIMM/BSON …/Document3.pm6 :1264:	unless $nbr-bytes ~~ BSON::C-MD5-SIZE;
MARTIMM/BSON …/Double.pm6 :52:	$bit-string ~= '.' unless $bit-string ~~ m/\./;
MARTIMM/BSON …/Double.pm6 :56:	if $bit-string ~~ m/^0\./ {
MARTIMM/BSON …/Double.pm6 :77:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/Double.pm6 :78:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/Double.pm6 :100:	$bit-string ~~ s/\.//; # Remove dot
MARTIMM/BSON …/Double.pm6 :101:	$bit-string ~~ s/^1//; # Remove first 1
MARTIMM/BSON …/EDC-Tools.pm6 :22:	die "Forbidden 0x00 sequence in $s" if $s ~~ /\x00/;
MARTIMM/BSON …/EDC-Tools.pm6 :84:	while $a[$index] !~~ 0x00 { @a.push($a[$index++]); }
MARTIMM/BSON …/EDC-Tools.pm6 :86:	die 'Parse error' unless $a[$index++] ~~ 0x00;
MARTIMM/BSON …/EDC-Tools.pm6 :99:	die 'Parse error' unless $a[$index++] ~~ 0x00;
MARTIMM/BSON …/Encodable.pm :79:	die "Forbidden 0x00 sequence in $s" if $s ~~ /\x00/;
MARTIMM/BSON …/Encodable.pm :164:	while $b[ 0 ] !~~ 0x00 {
MARTIMM/BSON …/Encodable.pm :168:	die 'Parse error' unless $b.shift ~~ 0x00;
MARTIMM/BSON …/Encodable.pm :181:	die 'Parse error' unless $a.shift ~~ 0x00;
MARTIMM/PKCS5 …/PBKDF2.pm6 :51:	&$CGH.perl ~~ m/ ['sub'|'method'] \s+ ( <.ident>+ ) /;
MARTIMM/config-datalang-refine …/Refine.pm6 :88:	if $basename !~~ any(@$!config-names) {
MARTIMM/config-datalang-refine …/Refine.pm6 :94:	if $config-name ~~ m/<[/]>+/ {
MARTIMM/config-datalang-refine …/Refine.pm6 :98:	$p ~~ s/ ('/'|\\) $basename $//;
MARTIMM/config-datalang-refine …/Refine.pm6 :113:	$config-name ~~ s/\.$ext// if ?$ext;
MARTIMM/config-datalang-refine …/Refine.pm6 :136:	#$cn ~~ s/^ \\ (<[CDE]> ':') /$0/;
MARTIMM/config-datalang-refine …/Refine.pm6 :137:	#say "cd: $cn, ", $cn.IO ~~ :r and $cn.IO ~~ :f;
MARTIMM/config-datalang-refine …/Refine.pm6 :138:	$locs.push: $cn if $cn.IO ~~ :r and $cn.IO ~~ :f;
MARTIMM/config-datalang-refine …/Refine.pm6 :142:	#$cn ~~ s/^ \\ (<[CDE]> ':') /$0/;
MARTIMM/config-datalang-refine …/Refine.pm6 :143:	#say ".cd: $cn, ", $cn.IO ~~ :r and $cn.IO ~~ :f;
MARTIMM/config-datalang-refine …/Refine.pm6 :144:	$locs.push: $cn if $cn.IO ~~ :r and $cn.IO ~~ :f;
MARTIMM/config-datalang-refine …/Refine.pm6 :148:	#$cn ~~ s/^ \\ (<[CDE]> ':') /$0/;
MARTIMM/config-datalang-refine …/Refine.pm6 :149:	#say ".h: $cn, ", $cn.IO ~~ :r and $cn.IO ~~ :f;
MARTIMM/config-datalang-refine …/Refine.pm6 :150:	$locs.push: $cn if $cn.IO ~~ :r and $cn.IO ~~ :f;
MARTIMM/config-datalang-refine …/Refine.pm6 :155:	#$l ~~ s/^ \\ (<[CDE]> ':') /$0/;
MARTIMM/config-datalang-refine …/Refine.pm6 :159:	#$cn ~~ s/^ \\ (<[CDE]> ':') /$0/;
MARTIMM/config-datalang-refine …/Refine.pm6 :160:	#say "C: $cn, ", $cn.IO ~~ :r and $cn.IO ~~ :f;
MARTIMM/config-datalang-refine …/Refine.pm6 :161:	$locs.push: $cn if $cn.IO ~~ :r and $cn.IO ~~ :f;
MARTIMM/config-datalang-refine …/Refine.pm6 :173:	if ? $cn and $cn.IO ~~ :r and $cn.IO ~~ :f {
MARTIMM/config-datalang-refine …/Refine.pm6 :186:	$p ~~ s/ $*CWD '/'? //;
MARTIMM/config-datalang-refine …/Refine.pm6 :187:	$p ~~ s/ $*HOME '/'? /~\//;
MARTIMM/config-datalang-refine …/Refine.pm6 :208:	$p ~~ s/ $*CWD '/'? //;
MARTIMM/config-datalang-refine …/Refine.pm6 :209:	$p ~~ s/ $*HOME '/'? /~\//;
MARTIMM/config-datalang-refine …/Refine.pm6 :251:	$s = $s{$refine-key} if $s{$refine-key} ~~ Hash;
MARTIMM/config-datalang-refine …/Refine.pm6 :254:	next if $s{$k} ~~ Hash;
MARTIMM/config-datalang-refine …/Refine.pm6 :260:	if $filter and ( $s{$k} ~~ Bool and !$s{$k} or not $s{$k}.defined );
MARTIMM/config-datalang-refine …/Refine.pm6 :283:	if $str-mode ~~ any(C-URI-OPTS-T1|C-URI-OPTS-T2) {
MARTIMM/config-datalang-refine …/Refine.pm6 :315:	elsif $str-mode ~~ any(C-UNIX-OPTS-T1|C-UNIX-OPTS-T2|C-UNIX-OPTS-T3) {
MARTIMM/config-datalang-refine …/Refine.pm6 :400:	for ($entry ~~ /(.)+/).flat -> $c is copy {
MARTIMM/config-datalang-refine …/Refine.pm6 :408:	or $c.ord ~~ any(0x81|0x8f|0x9D) {
MARTIMM/config-datalang-refine …/Refine.pm6 :450:	if $v ~~ Hash {
MARTIMM/config-datalang-refine …/Refine.pm6 :470:	if $v ~~ Hash {
MARTIMM/config-datalang-refine …/Refine.pm6 :500:	if $h{$k} ~~ Hash {
MARTIMM/config-datalang-refine …/100-refine-toml.t :167:	ok 'port=2345' ~~ any(@$o), 'port in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :168:	nok 'workdir=/tmp' ~~ any(@$o), 'workdir not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :172:	ok 'port=2345' ~~ any(@$o), 'port in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :173:	ok 'workdir=~/p2' ~~ any(@$o), 'workdir in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :174:	ok 'vision=True' ~~ any(@$o), 'vision in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :175:	nok 'tunnel' ~~ any(@$o), 'tunnel not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :180:	ok 'workdir=/var/tmp' ~~ any(@$o), 'app workdir in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :183:	ok "text='abc def xyz'" ~~ any(@$o), 'p2 text in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :186:	ok 'workdir=~/p2' ~~ any(@$o), 'p2 workdir in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :187:	ok 'times=10,11,12' ~~ any(@$o), 'p2 times in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :194:	ok 'name=key%3Da%20string%21%20%26%40data' ~~ any(@$o), 'p3 encoded text in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :204:	ok '--port=2345' ~~ any(@$o), 'app --port in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :205:	nok '--workdir=/tmp' ~~ any(@$o), 'app --workdir /tmp not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :206:	ok '-p' ~~ any(@$o), 'app -p in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :207:	ok '-q' ~~ any(@$o), 'app -q in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :210:	ok '--port=2345' ~~ any(@$o), 'port in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :211:	ok '--workdir=~/p2' ~~ any(@$o), 'workdir ~/p2 in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :212:	ok '--vision' ~~ any(@$o), '--vision in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :213:	nok '--tunnel' ~~ any(@$o), '--tunnel not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :218:	ok '--workdir=/var/tmp' ~~ any(@$o), 'app --workdir /var/tmp in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :221:	ok "--text='abc def xyz'" ~~ any(@$o), 'p2 --text: spaced text';
MARTIMM/config-datalang-refine …/100-refine-toml.t :225:	ok '--command="touch "`date +%Y`.log' ~~ any(@$o),
MARTIMM/config-datalang-refine …/100-refine-toml.t :227:	ok '--c3tick=\'"`touch "`date +%Y`.log\'' ~~ any(@$o),
MARTIMM/config-datalang-refine …/100-refine-toml.t :231:	ok '--workdir=~/p2' ~~ any(@$o), 'p2 --workdir ~/p2 in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :232:	ok '--times=10,11,12' ~~ any(@$o), 'p2 --times in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :242:	ok '--port=2345' ~~ any(@$o), 'app --port in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :243:	nok '--workdir=/tmp' ~~ any(@$o), 'app --workdir /tmp not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :244:	nok '-p' ~~ any(@$o), 'app -p not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :245:	nok '-q' ~~ any(@$o), 'app -q not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :246:	ok '-pq' ~~ any(@$o), 'app -pq in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :247:	ok '--notest' ~~ any(@$o), 'app -notest in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :250:	ok '--port=2345' ~~ any(@$o), 'app --port in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :251:	nok '--workdir=/tmp' ~~ any(@$o), 'app --workdir /tmp not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :252:	nok '-p' ~~ any(@$o), 'app -p not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :253:	nok '-q' ~~ any(@$o), 'app -q not in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :254:	ok '-pq' ~~ any(@$o), 'app -pq in list';
MARTIMM/config-datalang-refine …/100-refine-toml.t :258:	ok "--/test" ~~ any(@$o),
MARTIMM/config-datalang-refine …/100-refine-toml.t :260:	ok "--/tunnel" ~~ any(@$o),
MARTIMM/config-datalang-refine …/200-refine-json.t :156:	ok 'port=2345' ~~ any(@$o), 'port in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :157:	nok 'workdir=/tmp' ~~ any(@$o), 'workdir not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :160:	ok 'port=2345' ~~ any(@$o), 'port in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :161:	ok 'workdir=~/p2' ~~ any(@$o), 'workdir in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :162:	ok 'vision=True' ~~ any(@$o), 'vision in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :163:	nok 'tunnel' ~~ any(@$o), 'tunnel not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :168:	ok 'workdir=/var/tmp' ~~ any(@$o), 'app workdir in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :171:	ok "text='abc def xyz'" ~~ any(@$o), 'p2 text in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :174:	ok 'workdir=~/p2' ~~ any(@$o), 'p2 workdir in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :175:	ok 'times=10,11,12' ~~ any(@$o), 'p2 times in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :182:	ok 'name=key%3Da%20string%21%20%26%40data' ~~ any(@$o), 'p3 encoded text in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :194:	ok '--port=2345' ~~ any(@$o), 'app --port in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :195:	nok '--workdir=/tmp' ~~ any(@$o), 'app --workdir /tmp not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :196:	ok '-p' ~~ any(@$o), 'app -p in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :197:	ok '-q' ~~ any(@$o), 'app -q in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :200:	ok '--port=2345' ~~ any(@$o), 'port in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :201:	ok '--workdir=~/p2' ~~ any(@$o), 'workdir ~/p2 in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :202:	ok '--vision' ~~ any(@$o), '--vision in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :203:	nok '--tunnel' ~~ any(@$o), '--tunnel not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :208:	ok '--workdir=/var/tmp' ~~ any(@$o), 'app --workdir /var/tmp in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :212:	ok "--text='abc def xyz'" ~~ any(@$o), 'p2 --text: spaced text';
MARTIMM/config-datalang-refine …/200-refine-json.t :215:	ok '--command="touch "`date +%Y`.log' ~~ any(@$o), 'p3 --command: backtick text';
MARTIMM/config-datalang-refine …/200-refine-json.t :216:	ok '--c3tick=\'"`touch "`date +%Y`.log\'' ~~ any(@$o), 'p3 --c3tick: backtick text';
MARTIMM/config-datalang-refine …/200-refine-json.t :220:	ok '--workdir=~/p2' ~~ any(@$o), 'p2 --workdir ~/p2 in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :221:	ok '--times=10,11,12' ~~ any(@$o), 'p2 --times in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :234:	ok '--port=2345' ~~ any(@$o), 'app --port in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :235:	nok '--workdir=/tmp' ~~ any(@$o), 'app --workdir /tmp not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :236:	nok '-p' ~~ any(@$o), 'app -p not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :237:	nok '-q' ~~ any(@$o), 'app -q not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :238:	ok '-pq' ~~ any(@$o), 'app -pq in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :239:	ok '--notest' ~~ any(@$o), 'app -notest in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :242:	ok '--port=2345' ~~ any(@$o), 'app --port in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :243:	nok '--workdir=/tmp' ~~ any(@$o), 'app --workdir /tmp not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :244:	nok '-p' ~~ any(@$o), 'app -p not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :245:	nok '-q' ~~ any(@$o), 'app -q not in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :246:	ok '-pq' ~~ any(@$o), 'app -pq in list';
MARTIMM/config-datalang-refine …/200-refine-json.t :250:	ok "--/test" ~~ any(@$o),
MARTIMM/config-datalang-refine …/200-refine-json.t :252:	ok "--/tunnel" ~~ any(@$o),
MARTIMM/config-datalang-refine …/wpath.t :12:	$l ~~ s/^ \\ (<[CDE]> ':') /$0/;
MARTIMM/config-datalang-refine …/wpath.t :14:	say "Test dir: ", $l.IO ~~ :d;
MARTIMM/config-datalang-refine …/wpath.t :15:	say "Test read: ", $l.IO ~~ :r;
MARTIMM/mongo-perl6-driver …/101-Server.t :44:	ok .message ~~ m:s/Too many sockets 'opened,' max is/,
MARTIMM/mongo-perl6-driver …/101-Server.t :77:	ok .message ~~ m:s/Too many sockets 'opened,' max is/,
MARTIMM/mongo-perl6-driver …/Fallback.pl6 :60:	subset CLL where $_ ~~ any(Collection|Fake-Collection|Nil);
MARTIMM/mongo-perl6-driver …/names.pl6 :68:	next unless $line ~~ m/ <[,]> /;
MARTIMM/mongo-perl6-driver …/table-role.pm6 :133:	if $record{$field-name} ~~ BSON::Document {
MARTIMM/mongo-perl6-driver …/table-role.pm6 :137:	elsif $record{$field-name} !~~ $!schema{$field-name}[C-TYPE] {
MARTIMM/mongo-perl6-driver …/table-role.pm6 :183:	if $field-spec[1] ~~ C-MANDATORY {
MARTIMM/mongo-perl6-driver …/table-role.pm6 :187:	elsif $field-spec[1] ~~ C-TYPE {
MARTIMM/mongo-perl6-driver …/table-role.pm6 :193:	elsif $field-spec[1] ~~ C-NOTINSCHEMA {
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :102:	$uname = '' if $uname ~~ m/ <[@:]> /;
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :103:	$passw = '' if $passw ~~ m/ <[@:]> /;
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :146:	if $dbrole !~~ any(@admin-roles) {
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :156:	if $dbrole !~~ any(@backup-roles) {
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :167:	if $dbrole !~~ any(@cluster-roles) {
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :178:	if $dbrole !~~ any(@alldb-roles) {
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :189:	if $dbrole !~~ any(@super-roles) {
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :206:	if $dbrole !~~ any(@user-roles) {
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :222:	last if $yn ~~ m:i/^ n | no $/;
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :242:	last unless $yn ~~ m:i/^ (y | yes ) $/;
MARTIMM/mongo-perl6-driver …/mongodb-accounting.pl6 :276:	last unless $yn ~~ m:i/^ (y | yes ) $/;
MARTIMM/mongo-perl6-driver …/start-servers.pl6 :59:	mkdir( 'Library1', 0o700) unless 'Library1'.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/start-servers.pl6 :60:	mkdir( 'Library1/Data', 0o700) unless 'Library1/Data'.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/start-servers.pl6 :61:	mkdir( 'Library2', 0o700) unless 'Library2'.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/start-servers.pl6 :62:	mkdir( 'Library2/Data', 0o700) unless 'Library2/Data'.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/start-servers.pl6 :75:	if .message ~~ m:s/exit code\: 100/ {
MARTIMM/mongo-perl6-driver …/start-servers.pl6 :90:	if .message ~~ m:s/exit code\: 100/ {
MARTIMM/mongo-perl6-driver …/start-servers.pl6 :143:	if $s1-state ~~ SS-RSGhost {
MARTIMM/mongo-perl6-driver …/start-servers.pl6 :224:	last unless $yn ~~ m:i/^ (y | yes ) $/;
MARTIMM/mongo-perl6-driver …/MongoDB.pod6 :586:	$error-code where $_ ~~ any(Int|Str) = '',
MARTIMM/mongo-perl6-driver …/Client.pm6 :243:	unless $topology ~~ TT-ReplicaSetWithPrimary;
MARTIMM/mongo-perl6-driver …/Client.pm6 :257:	if $topology !~~ TT-NotSet {
MARTIMM/mongo-perl6-driver …/Client.pm6 :413:	last if $sdata<status> ~~ SS-Standalone;
MARTIMM/mongo-perl6-driver …/Client.pm6 :424:	last if $sdata<status> ~~ SS-RSPrimary;
MARTIMM/mongo-perl6-driver …/Client.pm6 :435:	@selected-servers.push: $s if $sdata<status> ~~ SS-RSSecondary;
MARTIMM/mongo-perl6-driver …/Client.pm6 :444:	@selected-servers.push: $s if $sdata<status> ~~ SS-Mongos;
MARTIMM/mongo-perl6-driver …/Client.pm6 :520:	if $!Background-discovery.status ~~ any(Broken|Kept) {
MARTIMM/mongo-perl6-driver …/Client.pm6 :526:	$!Background-discovery.status ~~ Broken
MARTIMM/mongo-perl6-driver …/Collection.pm6 :39:	List :$criteria where all(@$criteria) ~~ Pair = (),
MARTIMM/mongo-perl6-driver …/Collection.pm6 :40:	List :$projection where all(@$projection) ~~ Pair = (),
MARTIMM/mongo-perl6-driver …/Collection.pm6 :123:	# if $name !~~ m/^ <[_ A..Z a..z]> <[\w _ \-]>* $/ {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :456:	) unless $d ~~ Hash;
MARTIMM/mongo-perl6-driver …/Collection.pm6 :459:	if $k ~~ m/ (^ '$' | '.') / {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :472:	elsif $k ~~ m/ ^ '_id' $ / {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :490:	elsif $d{$k} ~~ Hash {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :500:	if $k ~~ m/ (^ '$' | '.') / {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :513:	elsif $sub-doc{$k} ~~ Hash {
MARTIMM/mongo-perl6-driver …/Collection.pod6 :97:	List :$criteria where all(@$criteria) ~~ Pair = (),
MARTIMM/mongo-perl6-driver …/Collection.pod6 :98:	List :$projection where all(@$projection) ~~ Pair = (),
MARTIMM/mongo-perl6-driver …/Database.pm6 :127:	if $name ~~ m/^ <[\/\\\.\s\"\$\*\<\>\:\|\?]>+ $/ {
MARTIMM/mongo-perl6-driver …/Database.pm6 :133:	if $name ~~ m/^ <[\/\\\.\s\"\$]>+ $/ {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :368:	$fields where $_ ~~ any(Hash|Pair),
MARTIMM/mongo-perl6-driver …/Collection.pm6 :379:	if $!schema{$field-name} ~~ BSON::Document
MARTIMM/mongo-perl6-driver …/Collection.pm6 :380:	and $fields{$field-name} ~~ Hash {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :428:	if $record{$field-name}.^name !~~ $!schema{$field-name}[C-TYPE] {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :438:	elsif $record{$field-name}.^name ~~ BSON::Document {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :487:	if $v ~~ Array
MARTIMM/mongo-perl6-driver …/Collection.pm6 :488:	and $v[C-MANDATORY] ~~ Bool
MARTIMM/mongo-perl6-driver …/Collection.pm6 :489:	and $type ~~ m/^ ('BSON::'|'Num'|'Int'|'Str'|'Bool') / {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :494:	#elsif $v ~~ BSON::Document {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :519:	if $field-spec[1] ~~ C-MANDATORY {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :523:	elsif $field-spec[1] ~~ C-TYPE {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :529:	elsif $field-spec[1] ~~ C-NOTINSCHEMA {
MARTIMM/mongo-perl6-driver …/Collection.pm6 :533:	elsif $field-spec[1] ~~ C-EMPTYRECORD {
MARTIMM/mongo-perl6-driver …/Users.pm6 :89:	$pw-ok = ($password ~~ m/ <[a..z]> /).Bool;
MARTIMM/mongo-perl6-driver …/Users.pm6 :94:	$password ~~ m/ <[a..z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :95:	$password ~~ m/ <[A..Z]> /
MARTIMM/mongo-perl6-driver …/Users.pm6 :101:	$password ~~ m/ <[a..z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :102:	$password ~~ m/ <[A..Z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :103:	$password ~~ m/ \d /
MARTIMM/mongo-perl6-driver …/Users.pm6 :109:	$password ~~ m/ <[a..z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :110:	$password ~~ m/ <[A..Z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :111:	$password ~~ m/ \d / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :112:	$password ~~ m/ <[`~!@\#\$%^&*()\-_=+[{\]};:\'\"\\\|,<.>\/\?]> /
MARTIMM/mongo-perl6-driver …/Users.pm6 :126:	fatal-message("Username $user not accepted") if $tv-un ~~ Bool;
MARTIMM/mongo-perl6-driver …/Users.pm6 :131:	fatal-message("Password not accepted") if $tv-pw ~~ Bool;
MARTIMM/mongo-perl6-driver …/Users.pm6 :182:	$pw-ok = ($password ~~ m/ <[a..z]> /).Bool;
MARTIMM/mongo-perl6-driver …/Users.pm6 :187:	$password ~~ m/ <[a..z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :188:	$password ~~ m/ <[A..Z]> /
MARTIMM/mongo-perl6-driver …/Users.pm6 :194:	$password ~~ m/ <[a..z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :195:	$password ~~ m/ <[A..Z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :196:	$password ~~ m/ \d /
MARTIMM/mongo-perl6-driver …/Users.pm6 :202:	$password ~~ m/ <[a..z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :203:	$password ~~ m/ <[A..Z]> / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :204:	$password ~~ m/ \d / and
MARTIMM/mongo-perl6-driver …/Users.pm6 :205:	$password ~~ m/ <[`~!@\#\$%^&*()\-_=+[{\]};:\'\"\\\|,<.>\/\?]> /
MARTIMM/mongo-perl6-driver …/Users.pm6 :217:	fatal-message("Username $user not accepted") if $tv-un ~~ Bool;
MARTIMM/mongo-perl6-driver …/Users.pm6 :222:	fatal-message("Password not accepted") if $tv-un ~~ Bool;
MARTIMM/mongo-perl6-driver …/Log.pm6 :212:	if ?$cf and $cf.line == 1 and $cf.code ~~ Mu {
MARTIMM/mongo-perl6-driver …/Log.pm6 :225:	if ?$cf and $type ~~ Sub
MARTIMM/mongo-perl6-driver …/Log.pm6 :226:	and $cf.code.name ~~ m/[trace|debug|info|warn|error|fatal] '-message'/ {
MARTIMM/mongo-perl6-driver …/Log.pm6 :232:	next if $cf.code ~~ $type and $cf.code.name ~~ m/dispatch/;
MARTIMM/mongo-perl6-driver …/Log.pm6 :233:	last if $cf.code ~~ $type;
MARTIMM/mongo-perl6-driver …/Log.pm6 :259:	$file ~~ s/$*CWD/\./;
MARTIMM/mongo-perl6-driver …/Log.pm6 :336:	$dt-str ~~ s:g/ <[T]> / /;
MARTIMM/mongo-perl6-driver …/Log.pm6 :337:	$dt-str ~~ s:g/ <[Z]> //;
MARTIMM/mongo-perl6-driver …/Log.pm6 :340:	if $fh ~~ any( $*OUT, $*ERR) {
MARTIMM/mongo-perl6-driver …/Log.pm6 :356:	$fh.print(color('reset')) if $fh ~~ any( $*OUT, $*ERR);
MARTIMM/mongo-perl6-driver …/Server.pm6 :58:	$!server-name ~~ s/ ':' $port $//;
MARTIMM/mongo-perl6-driver …/Server.pm6 :61:	$!server-name ~~ s/^ '[' //;
MARTIMM/mongo-perl6-driver …/Server.pm6 :62:	$!server-name ~~ s/ ']' $//;
MARTIMM/mongo-perl6-driver …/Server.pm6 :464:	elsif $name ~~ / ':' / {
MARTIMM/mongo-perl6-driver …/Control.pm6 :35:	$server-path ~~ s:g/ \/ /\\/ if $is-win;
MARTIMM/mongo-perl6-driver …/Control.pm6 :40:	$binary-path ~~ s:g/ \/ /\\/ if $is-win;
MARTIMM/mongo-perl6-driver …/Control.pm6 :49:	mkdir( $server-path, 0o700) unless $server-path.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/Control.pm6 :50:	mkdir( $server-subdir, 0o700) unless $server-subdir.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/Control.pm6 :51:	mkdir( $options<dbpath>, 0o700) unless $options<dbpath>.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/Control.pm6 :56:	$cmdstr ~= "--$key" ~ ($value ~~ Bool ?? '' !! "=$value") ~ " ";
MARTIMM/mongo-perl6-driver …/Control.pm6 :93:	$server-path ~~ s:g/ \/ /\\/ if $is-win;
MARTIMM/mongo-perl6-driver …/Control.pm6 :97:	$binary-path ~~ s:g/ \/ /\\/ if $is-win;
MARTIMM/mongo-perl6-driver …/Control.pm6 :169:	if $path.IO ~~ :e {
MARTIMM/mongo-perl6-driver …/Control.pm6 :181:	if $path.IO ~~ :e {
MARTIMM/mongo-perl6-driver …/Control.pm6 :192:	if "$path/$binaryname".IO ~~ :x {
MARTIMM/mongo-perl6-driver …/Monitor.pm6 :209:	when .message ~~ m:s/Failed to resolve host name/ ||
MARTIMM/mongo-perl6-driver …/Monitor.pm6 :210:	.message ~~ m:s/No response from server/ ||
MARTIMM/mongo-perl6-driver …/Monitor.pm6 :211:	.message ~~ m:s/Failed to connect\: connection refused/ ||
MARTIMM/mongo-perl6-driver …/Monitor.pm6 :212:	.message ~~ m:s/Socket not available/ ||
MARTIMM/mongo-perl6-driver …/Monitor.pm6 :213:	.message ~~ m:s/Out of range\: attempted to read/ ||
MARTIMM/mongo-perl6-driver …/Monitor.pm6 :214:	.message ~~ m:s/Not enaugh characters left/ {
MARTIMM/mongo-perl6-driver …/Uri.pm6 :67:	$p ~~ s/\:\/\///;
MARTIMM/mongo-perl6-driver …/Uri.pm6 :80:	# $h ~~ s:g/ <[\[\]]> //;
MARTIMM/mongo-perl6-driver …/Uri.pm6 :88:	if $hp<host> eq $h and $hp<port> ~~ $p {
MARTIMM/mongo-perl6-driver …/Wire.pm6 :102:	when .message ~~ m:s/Failed to resolve host name/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :103:	.message ~~ m:s/Could not connect socket/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :104:	.message ~~ m:s/Could not receive data from socket/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :105:	.message ~~ m:s/Connection reset by peer/ {
MARTIMM/mongo-perl6-driver …/Wire.pm6 :179:	when .message ~~ m:s/Failed to resolve host name/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :180:	.message ~~ m:s/Failed to connect\: connection refused/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :181:	.message ~~ m:s/Could not receive data from socket/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :182:	.message ~~ m:s/Connection reset by peer/ {
MARTIMM/mongo-perl6-driver …/Wire.pm6 :243:	when .message ~~ m:s/Failed to resolve host name/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :244:	.message ~~ m:s/Failed to connect\: connection refused/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :245:	.message ~~ m:s/Could not receive data from socket/ ||
MARTIMM/mongo-perl6-driver …/Wire.pm6 :246:	.message ~~ m:s/Connection reset by peer/ {
MARTIMM/mongo-perl6-driver …/200-Database.t :54:	if $version ~~ / '2.6.' \d+ / {
MARTIMM/mongo-perl6-driver …/200-Database.t :84:	$m ~~ s:g/\n+//;
MARTIMM/mongo-perl6-driver …/300-Collection.t :105:	ok $_.message ~~ m/ns \s+ not \s* found/, 'Collection cl1 not found';
MARTIMM/mongo-perl6-driver …/300-Collection.t :127:	ok $_.message ~~ m/Illegal \s* collection \s* name/, 'Illegal collection name';
MARTIMM/mongo-perl6-driver …/400-run-command.t :130:	if $version ~~ / '2.6.' \d+ / {
MARTIMM/mongo-perl6-driver …/401-rc-query-write.t :164:	ok $doc<cursors> ~~ Array, 'found array of cursors';
MARTIMM/mongo-perl6-driver …/450-find.t :121:	if $version ~~ / '2.6.' \d+ / {
MARTIMM/mongo-perl6-driver …/Test-support.pm6 :26:	) if 'Sandbox'.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/Test-support.pm6 :271:	mkdir( $server-dir, 0o700) unless $server-dir.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/Test-support.pm6 :273:	mkdir( $datadir, 0o700) unless $datadir.IO ~~ :d;
MARTIMM/mongo-perl6-driver …/Test-support.pm6 :343:	if $skey ~~ /^ s \d+ w $/ {
MARTIMM/mongo-perl6-driver …/Test-support.pm6 :392:	if $entry ~~ :d {
MARTIMM/mongo-perl6-driver …/500-Users.t :70:	ok .message ~~ m:s/Username too 'short,' must be '>= 5'/,
MARTIMM/mongo-perl6-driver …/500-Users.t :85:	ok .message ~~ m:s/Password too 'short,' must be '>= 6'/,
MARTIMM/mongo-perl6-driver …/500-Users.t :100:	ok .message ~~ m:s/Password does not have the right properties/,
MARTIMM/mongo-perl6-driver …/504-scram-login.t :166:	ok $server-first-message ~~ m/^ 'r=' /, 'Server nonce';
MARTIMM/mongo-perl6-driver …/504-scram-login.t :167:	ok $server-first-message ~~ m/ ',s=' /, 'Server salt';
MARTIMM/mongo-perl6-driver …/504-scram-login.t :168:	ok $server-first-message ~~ m/ ',i=' /, 'Server iterations';
MARTIMM/mongo-perl6-driver …/010-log.t :29:	ok $logfile.IO ~~ :f, 'Logfile created';
MARTIMM/mongo-perl6-driver …/070-uri.t :19:	ok $uri ~~ MongoDB::Uri , "is url type";
MARTIMM/mongo-perl6-driver …/112-Client.t :115:	ok $doc<errmsg> ~~ m:s/not authorized on otherdb to execute command/,
MARTIMM/mongo-perl6-driver …/612-repl-start.t :99:	if @serverkeys[0] ~~ any <s4 s5 s6> {
MARTIMM/pod-render …/Render.pm6 :51:	if 'doc'.IO ~~ :d {
MARTIMM/pod-render …/Render.pm6 :59:	$html-file ~~ s/\. <-[.]>+ $/.html/;
MARTIMM/pod-render …/Render.pm6 :70:	if 'doc'.IO ~~ :d {
MARTIMM/pod-render …/Render.pm6 :78:	$pdf-file ~~ s/\. <-[.]>+ $/.pdf/;
MARTIMM/pod-render …/Render.pm6 :92:	if 'doc'.IO ~~ :d {
MARTIMM/pod-render …/Render.pm6 :100:	$md-file ~~ s/\. <-[.]>+ $/.md/;
MARTIMM/pod-render …/Render.pm6 :109:	Str :$style is copy where $_ ~~ any(
MARTIMM/pod-render …/Render.pm6 :128:	if $line ~~ m:s/ '<meta' 'charset="UTF-8"' '/>' / {
MARTIMM/pod-render …/Render.pm6 :150:	elsif $line ~~ m/^ \s* '<link' \s* 'rel="stylesheet"' \s*
MARTIMM/pod-render …/Render.pm6 :156:	elsif $line ~~ m:s/^ \s* '<body ' / {
MARTIMM/pod-render …/Render.pm6 :161:	elsif $line ~~ m/^ \s* '<pre' / {
MARTIMM/pod-render …/Render.pm6 :162:	$line ~~ s/'<pre class="pod-block-code">'/
MARTIMM/pod-render …/Render.pm6 :168:	elsif $line ~~ m:s/^ \s* '</body>' / {
MARTIMM/semaphore-readerswriters …/100-rw.t :16:	cmp-ok 'shv', '~~', any($rw.get-mutex-names), 'shv key set';
MARTIMM/semaphore-readerswriters …/100-rw.t :17:	cmp-ok 'def', '~~', any($rw.get-mutex-names), 'def key set';
MARTIMM/semaphore-readerswriters …/100-rw.t :24:	cmp-ok 'def', '!~~', any($rw.get-mutex-names), 'def key removed';
MARTIMM/semaphore-readerswriters …/100-rw.t :32:	'~~',
MARTIMM/semaphore-readerswriters …/100-rw.t :72:	ok .message ~~ m:s/Key \'shv\' already in use/, .message;
MARTIMM/tinky-hash …/Hash.pm6 :66:	or $current-state ~~ any(@($configs{$workflow-name}<states>)) {
MARTIMM/tinky-hash …/Hash.pm6 :182:	unless $s ~~ any(@states);
MARTIMM/tinky-hash …/Hash.pm6 :187:	unless $s ~~ any(@states);
MARTIMM/tinky-hash …/Hash.pm6 :196:	unless $is ~~ any(@states);
MARTIMM/tinky-hash …/Hash.pm6 :199:	die "Workflow '$wf' defined before" if $wf ~~ any($workflow.keys);
MARTIMM/tinky-hash …/Hash.pm6 :212:	unless $tk ~~ any($cfg<transitions>.keys);
MARTIMM/tinky-hash …/Hash.pm6 :223:	unless $sk ~~ any(@states);
MARTIMM/unicode-precis …/README.md :19:	if $tv ~~ Str {
MARTIMM/unicode-precis …/README.md :23:	elsif $tv ~~ Bool {
MARTIMM/unicode-precis …/generate-module.pl6 :25:	die "Directory $unicode-db not found" unless $unicode-db.IO ~~ :d;
MARTIMM/unicode-precis …/generate-module.pl6 :56:	die "Directory $unicode-db not found" unless $unicode-db.IO ~~ :d;
MARTIMM/unicode-precis …/generate-module.pl6 :66:	die "File $filename not found" unless $$filename.IO ~~ :r;
MARTIMM/unicode-precis …/generate-module.pl6 :71:	$line ~~ s/ \s* '#' .* $//;
MARTIMM/unicode-precis …/generate-module.pl6 :72:	if $line !~~ m/^ \h* $/ {
MARTIMM/unicode-precis …/generate-module.pl6 :82:	$first = ?($record[1] ~~ m/ 'First>' $/);
MARTIMM/unicode-precis …/generate-module.pl6 :215:	$line ~~ s/ \s* '#' .* $//;
MARTIMM/unicode-precis …/generate-module.pl6 :216:	next if $line ~~ m/^ \h* $/;
MARTIMM/unicode-precis …/generate-module.pl6 :223:	if $ucd-cat[0] eq '*' or $category ~~ any(@$ucd-cat) {
MARTIMM/unicode-precis …/generate-module.pl6 :226:	if !$first-of-range-found and $unicode-data-entry[1] ~~ m/ 'First>' / {
MARTIMM/unicode-precis …/generate-module.pl6 :232:	elsif $first-of-range-found and $unicode-data-entry[1] ~~ m/ 'Last>' / {
MARTIMM/unicode-precis …/generate-module.pl6 :270:	if $cat[0] eq '*' or $category ~~ any (@$cat) {
MARTIMM/unicode-precis …/generate-module.pl6 :289:	$cp-entry ~~ s/ '..' /..0x/;
MARTIMM/unicode-precis …/generate-module.pl6 :297:	next if $names{$ui} ~~ m/^ \s* $/;
MARTIMM/unicode-precis …/generate-module.pl6 :317:	if $fn.IO ~~ :r {
MARTIMM/unicode-precis …/generate-module.pl6 :326:	$class-text ~~ s/'### NEW DATA ###'/$new-class-text/;
MARTIMM/unicode-precis …/generate-module.pl6 :381:	# if $field-value ~~ m:i/^ <[0..9A..F\.]>+ $/ {
MARTIMM/unicode-precis …/generate-module.pl6 :384:	$field-value ~~ s/\.\./..0x/;
MARTIMM/unicode-precis …/perl6-proplist.pl6 :7:	$line ~~ m/ \s* '#' \s* (.*) $/;
MARTIMM/unicode-precis …/perl6-proplist.pl6 :10:	$line ~~ s/ \s* '#' .* $//;
MARTIMM/unicode-precis …/perl6-proplist.pl6 :11:	next if $line ~~ m/^ \h* $/;
MARTIMM/unicode-precis …/perl6-proplist.pl6 :14:	if $cpr ~~ m/ '..' / {
MARTIMM/unicode-precis …/PRECIS.pm6 :14:	subset TestValue is export where $_ ~~ any( Str, Bool);
MARTIMM/unicode-precis …/PRECIS.pm6 :35:	next if $line ~~ m:s/^ \s* '#'/;
MARTIMM/unicode-precis …/PRECIS.pm6 :36:	next if $line ~~ m:s/^ \s* $/;
MARTIMM/unicode-precis …/PRECIS.pm6 :199:	return False if $tv ~~ Bool;
MARTIMM/unicode-precis …/PRECIS.pm6 :221:	if $codepoint.uniname ~~ m/ 'FULLWIDTH' | 'HALFWIDTH' / {
MARTIMM/unicode-precis …/PRECIS.pm6 :247:	return False unless @bidi-props[0] ~~ any(<L R AL>);
MARTIMM/unicode-precis …/PRECIS.pm6 :254:	return False unless $cp-prop ~~ any(<L EN ES CS ET ON BN NSM>);
MARTIMM/unicode-precis …/PRECIS.pm6 :260:	if $cp-prop ~~ any(<L EN>) {
MARTIMM/unicode-precis …/PRECIS.pm6 :282:	return False unless $cp-prop ~~ any(<R AL AN EN ES CS ET ON BN NSM>);
MARTIMM/unicode-precis …/PRECIS.pm6 :288:	if $cp-prop ~~ any(<R AL EN AN>) {
MARTIMM/unicode-precis …/FreeForm.pm6 :51:	$result !~~ any(<CONTEXTJ CONTEXTO DISALLOWED ID-DIS UNASSIGNED>);
MARTIMM/unicode-precis …/OpaqueString.pm6 :45:	return False if $tv ~~ Bool;
MARTIMM/unicode-precis …/OpaqueString.pm6 :59:	return False if $tv ~~ Bool;
MARTIMM/unicode-precis …/OpaqueString.pm6 :73:	return False if $tv1 ~~ Bool;
MARTIMM/unicode-precis …/OpaqueString.pm6 :76:	return False if $tv2 ~~ Bool;
MARTIMM/unicode-precis …/Identifier.pm6 :49:	$result !~~ any(<CONTEXTJ CONTEXTO DISALLOWED ID-DIS UNASSIGNED>);
MARTIMM/unicode-precis …/UsernameCaseMapped.pm6 :41:	return False if $tv ~~ Bool;
MARTIMM/unicode-precis …/UsernameCaseMapped.pm6 :55:	return False if $tv ~~ Bool;
MARTIMM/unicode-precis …/UsernameCaseMapped.pm6 :69:	return False if $tv1 ~~ Bool;
MARTIMM/unicode-precis …/UsernameCaseMapped.pm6 :72:	return False if $tv2 ~~ Bool;
MARTIMM/unicode-precis …/UsernameCasePreserved.pm6 :45:	return False if $tv ~~ Bool;
MARTIMM/unicode-precis …/UsernameCasePreserved.pm6 :59:	return False if $tv ~~ Bool;
MARTIMM/unicode-precis …/UsernameCasePreserved.pm6 :73:	return False if $tv1 ~~ Bool;
MARTIMM/unicode-precis …/UsernameCasePreserved.pm6 :76:	return False if $tv2 ~~ Bool;
MARTIMM/unicode-precis …/100-precis.t :42:	ok $p.exceptions($codepoint) ~~ 'CONTEXTO',
MARTIMM/unicode-precis …/100-precis.t :46:	ok $p.exceptions($codepoint) ~~ 'PVALID',
MARTIMM/unicode-precis …/100-precis.t :50:	ok $p.exceptions($codepoint) ~~ 'NOT-IN-SET',
MARTIMM/unicode-precis …/100-precis.t :54:	ok $p.backward-compatible($codepoint) ~~ 'NOT-IN-SET',
MARTIMM/unicode-precis …/100-precis.t :175:	ok (($tv ~~ Str) and ($tv eq $mod-uname)), "test username '$username'";
MARTIMM/unicode-precis …/100-precis.t :179:	ok (($tv ~~ Str) and ($tv eq $username)), "test username '$username'";
MARTIMM/unicode-precis …/100-precis.t :183:	ok (($tv ~~ Str) and ($tv eq $username)), "test username '$username'";
MARTIMM/unicode-precis …/100-precis.t :188:	ok (($tv ~~ Str) and ($tv eq $username)), "test username '$username'";
MARTIMM/unicode-precis …/100-precis.t :194:	ok (($tv ~~ Str) and ($tv eq $mod-uname)), "test username '$username'";
MARTIMM/unicode-precis …/100-precis.t :200:	ok (($tv ~~ Str) and ($tv eq $mod-uname)), "test username '$username'";
MARTIMM/unicode-precis …/100-precis.t :205:	ok (($tv ~~ Bool) and not $tv), "test username '$username' fails";
MARTIMM/unicode-precis …/100-precis.t :210:	ok (($tv ~~ Bool) and not $tv), "test username '$username' fails";
MARTIMM/unicode-precis …/100-precis.t :215:	ok (($tv ~~ Bool) and not $tv), "test username '$username' fails";
MARTIMM/unicode-precis …/100-precis.t :220:	ok (($tv ~~ Bool) and not $tv), "test username '$username' fails";
MARTIMM/unicode-precis …/100-precis.t :243:	ok (($tv ~~ Str) and ($tv eq $username)), "test username '$username'";
MARTIMM/unicode-precis …/100-precis.t :247:	ok (($tv ~~ Bool) and not $tv), "test username '$username' fails";
MARTIMM/unicode-precis …/100-precis.t :251:	ok (($tv ~~ Str) and ($tv eq $username)), "test username '$username'";
MARTIMM/unicode-precis …/100-precis.t :276:	ok (($tv ~~ Str) and ($tv eq $password)), "test password '$tv'";
MARTIMM/unicode-precis …/100-precis.t :281:	ok (($tv ~~ Str) and ($tv eq $password)), "test password '$tv'";
MARTIMM/unicode-precis …/100-precis.t :286:	ok (($tv ~~ Str) and ($tv eq $password)), "test password '$tv'";
MARTIMM/unicode-precis …/100-precis.t :291:	ok (($tv ~~ Str) and ($tv eq $password)), "test password '$tv'";
MARTIMM/unicode-precis …/100-precis.t :297:	ok (($tv ~~ Str) and ($tv eq $password2)), "test password '$tv'";
MARTIMM/unicode-precis …/100-precis.t :302:	ok (($tv ~~ Bool) and not $tv), "test password '$password' fails";
MadcapJake/Test-Lab …/020-experiment.t :184:	$ex.comparator = -> $a, $b { $a ~~ $b }
MadcapJake/Test-Lab …/020-experiment.t :207:	$experiment.comparator = -> $a, $b { $a ~~ $b };
MadcapJake/Test-Lab …/040-observation.t :21:	# ok ($ob.duration - 0.1) ~~ 0..0.05, '«duration» "is-approx" 0.1 seconds';
MadcapJake/Test-Lab …/040-observation.t :105:	ok $a.equiv-to($b, -> $x, $y { $x ~~ $y });
MadcapJake/Test-Lab …/050-result.t :74:	$*ex.comparator = &infix:<~~>;
MattOates/BioInfo …/README.md :72:	say $seq ~~ BioInfo::Seq::DNA ?? $seq.translate !! $seq;
MattOates/Stats …/Stats.pm6 :147:	multi sub zscore(Numeric $x, $X where $X.WHAT ~~ Baggy|List --> Real) {
MattOates/Stats …/correlation.t :16:	ok corrcoef(@x,@z) ~~ Failure, 'Dies because of 0 standard deviation';
MattOates/Text--Emotion …/emobot :108:	if ($user ~~ /^^$person/) {
MattOates/Text--Emotion …/emobot :149:	multi method said ($event where {.what ~~ /^^<[@]>/ or .who<nick> !~~ %ignore}) {
MattOates/Text--Emotion …/emobot :155:	if $message ~~ /^^<[@]>/ {
Mouq/HTML-Entity …/Entity.pm6 :14:	while $str ~~ m:c($to){\&<alpha><alpha>} {
Mouq/HTML-Entity …/Entity.pm6 :18:	last if $str ~~ s:p($to)[$key] = $v = $value
Mouq/HTML-Entity …/Entity.pm6 :22:	$str ~~ s:g['&#'(<[0..9]>+)';'] = $0.chr;
Mouq/json5 …/01-parse.t :197:	if $desc ~~ /\n/ {
Mouq/json5 …/01-parse.t :211:	if $desc ~~ /\n/ {
Mouq/toml-pm6 …/TOML.pm6 :18:	if $val ~~ Associative {
Mouq/toml-pm6 …/TOML.pm6 :21:	} elsif $val ~~ Positional {
Mouq/toml-pm6 …/TOML.pm6 :32:	die "TOML arrays may only be of a single type" unless $_ ~~ Associative;
Perl6-Noise-Gang/Audio-PortAudio …/record-wav :84:	if $p.status ~~ Planned {
Perl6-Noise-Gang/Audio-PortAudio …/record-wav :96:	if $p.status ~~ Planned {
Perl6-Noise-Gang/Audio-PortAudio …/PortAudio.pm :858:	my $zero = $type ~~ Num ?? 0e0 !! 0;
Perl6-Noise-Gang/Audio-PortMIDI …/PortMIDI.pm :659:	if $!code ~~ HostError {
Perl6-Noise-Gang/Audio-PortMIDI …/PortMIDI.pm :885:	method set-channel-mask(*@channels where { @channels.elems <= 16 && all(@channels) ~~ ( 0 ..15 ) }) {
Perl6-Noise-Gang/Task-Noise …/make :16:	if $dist.name ~~ /^Audio/ || any($dist.tags.list) ~~ any(<audio noise music rhythm>) {
Perl6-Noise-Gang/p6-Music-Helpers …/Helpers.pm :198:	method chord-type { self.HOW.roles(self).grep({ $_ ~~ for-naming && $_ !=== for-naming })[0].^shortname }
Perl6-Noise-Gang/p6-Music-Helpers …/02-basic.t :14:	ok $mode.tonic ~~ min|maj|dim, '...and it\'s min, maj or dim as expected';
Perl6-Noise-Gang/perl6-Audio-MIDI-Note …/Note.pm6 :28:	$notes = [ $notes ] unless $notes ~~ Array|List;
Perl6-Noise-Gang/perl6-Audio-MIDI-Note …/Note.pm6 :29:	die 'Invalid note' if $notes.grep: { $_ !~~ ValidNote };
PerlGameDev/SDL6 …/mixer-channels.t :44:	ok $sample_chunk ~~ Mix_Chunk, "Mix_LoadWAV loaded audio sample $audio_test_file";
PerlGameDev/SDL6 …/rect.t :11:	ok $r1 ~~ SDL_Rect, 'create a SDL::Rect object';
PostCocoon/P6-Url …/Url.pm6 :19:	for $data ~~ m:c:g:i/<-[a .. z 0 .. 9 \- \. _]>/ -> $match {
PostCocoon/P6-Url …/Url.pm6 :41:	for $data ~~ m:c:g:i/\%(<[a .. f 0 .. 9]> ** 2)/ -> $match {
PostCocoon/P6-Url …/Url.pm6 :58:	} elsif ($value ~~ List) {
PostCocoon/P6-Url …/Url.pm6 :91:	if $result{$key} ~~ Positional {
PostCocoon/P6-Url …/Url.pm6 :157:	return URL-Parser.parse($uri) !~~ Nil;
PostCocoon/P6-Url …/Url.pm6 :164:	if ($grammar ~~ Nil) {
PowellDean/Locale-Codes-Country …/Country.pm6 :60:	if $aCode ~~ /^\./ {
PowellDean/Locale-Codes-Country …/Country.pm6 :62:	$trimCode ~~ s/\.//;
PowellDean/Locale-Codes-Country …/Country.pm6 :136:	if $rest ~~ /^THE / {
PowellDean/Locale-Codes-Country …/Country.pm6 :137:	$rest ~~ s/^THE //;
ShaneKilkelly/perl6-config-clever …/Clever.pm6 :13:	if "$path".IO ~~ :e {
ShaneKilkelly/perl6-config-clever …/Clever.pm6 :26:	if $v ~~ Hash {
ShaneKilkelly/perl6-config-clever …/Clever.pm6 :27:	if %left{$k} ~~ Any {
ShaneKilkelly/perl6-http-router-blind …/Blind.pm6 :73:	if $path ~~ Str {
ShaneKilkelly/perl6-http-router-blind …/Blind.pm6 :84:	if $path ~~ Regex {
ShaneKilkelly/perl6-http-router-blind …/basic.t :25:	if $result ~~ 'this-is-get' {
ShaneKilkelly/perl6-http-router-blind …/basic.t :36:	if $result ~~ '4221' {
Skarsnik/gptrixie …/OOGenerator.pm6 :19:	if $n ~~ /$config<OOC><methodpattern>/ {
Skarsnik/gptrixie …/gptrixie :108:	if $v.IO.basename ne 'gccxml_builtins.h' and $v.IO.basename !~~ /^std/ {
Skarsnik/gptrixie …/gptrixie :111:	if $line ~~ /^"#"\s*"define" \s+ ($enum-pattern\S*) \s+ (<-[\/]>+)/ {
Skarsnik/gptrixie …/gptrixie :146:	if $ob<obj> ~~ Struct {
Skarsnik/gptrixie …/gptrixie :147:	if @v[$i + 1].defined and @v[$i + 1]<obj> ~~ AnonymousUnion and @v[$i + 1]<obj>.struct.defined {
Skarsnik/gptrixie …/gptrixie :151:	if !($ob<obj> ~~ AnonymousUnion and $ob<obj>.struct.defined) {
Skarsnik/gptrixie …/gptrixie :271:	my $size = $elem<max>.subst('u', '') ~~ /"0xffffffffffffffff"/ ?? '' !! $elem<max>.subst('u', '') + 1;
Skarsnik/gptrixie …/gptrixie :336:	next if $elem<name> ~~ /^__/;
Skarsnik/gptrixie …/gptrixie :370:	if $t ~~ IndirectType {
Skarsnik/gptrixie …/gptrixie :389:	if $t ~~ TypeDefType and $t.ref-type ~~ StructType {
Skarsnik/gptrixie …/gptrixie :398:	if $v ~~ FunctionType {
Skarsnik/gptrixie …/gptrixie :415:	if $f.type ~~ UnionType {
Skarsnik/gptrixie …/gptrixie :416:	%cunions{$f.type.id}.field = $f if %cunions{$f.type.id} ~~ AnonymousUnion;
Skarsnik/gptrixie …/gptrixie :420:	if $cu ~~ AnonymousUnion {
Skarsnik/gptrixie …/DumbGenerator.pm6 :67:	if $t ~~ PointerType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :69:	if $t.ref-type ~~ TypeDefType and $t.ref-type.ref-type ~~ FundamentalType and $t.ref-type.ref-type.name eq 'void' {
Skarsnik/gptrixie …/DumbGenerator.pm6 :72:	return 'Str' if ($t.ref-type ~~ FundamentalType and $t.ref-type.name eq 'char') ||
Skarsnik/gptrixie …/DumbGenerator.pm6 :73:	($t.ref-type ~~ QualifiedType and $t.ref-type.ref-type ~~ FundamentalType and $t.ref-type.ref-type.name eq 'char');
Skarsnik/gptrixie …/DumbGenerator.pm6 :74:	return 'Pointer' if ($t.ref-type ~~ FundamentalType and $t.ref-type.name eq 'void') ||
Skarsnik/gptrixie …/DumbGenerator.pm6 :75:	($t.ref-type ~~ QualifiedType and $t.ref-type.ref-type ~~ FundamentalType and $t.ref-type.ref-type.name eq 'void');
Skarsnik/gptrixie …/DumbGenerator.pm6 :76:	if $t.ref-type ~~ FunctionType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :79:	($t.ref-type.return-type ~~ FundamentalType && $t.ref-type.return-type.name eq 'void' ?? ''
Skarsnik/gptrixie …/DumbGenerator.pm6 :86:	return resolve-type($t.ref-type, $cpt + 1) if ($t.ref-type ~~ StructType) ||
Skarsnik/gptrixie …/DumbGenerator.pm6 :87:	($t.ref-type ~~ QualifiedType and $t.ref-type.ref-type ~~ StructType) ||
Skarsnik/gptrixie …/DumbGenerator.pm6 :88:	($t.ref-type ~~ TypeDefType and $t.ref-type.ref-type ~~ StructType) ||
Skarsnik/gptrixie …/DumbGenerator.pm6 :89:	($t.ref-type ~~ QualifiedType and $t.ref-type.ref-type ~~ TypeDefType and $t.ref-type.ref-type.ref-type ~~ StructType);
Skarsnik/gptrixie …/DumbGenerator.pm6 :93:	if $t ~~ ArrayType and $context eq "struct" and $t.size != 0 {
Skarsnik/gptrixie …/DumbGenerator.pm6 :96:	if $t ~~ ArrayType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :99:	if $t ~~ FundamentalType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :107:	if $t ~~ EnumType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :110:	if $t ~~ StructType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :113:	if $t ~~ QualifiedType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :116:	if $t ~~ TypeDefType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :118:	return $t.name if $t.ref-type ~~ FundamentalType;
Skarsnik/gptrixie …/DumbGenerator.pm6 :122:	if $t ~~ UnionType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :123:	return $allthings.unions{$t.id} ~~ AnonymousUnion ?? $allthings.unions{$t.id}.gen-name
Skarsnik/gptrixie …/DumbGenerator.pm6 :131:	if $t ~~ PointerType and $t.ref-type ~~ TypeDefType and $t.ref-type.ref-type ~~ FundamentalType and $t.ref-type.ref-type.name eq 'void' {
Skarsnik/gptrixie …/DumbGenerator.pm6 :134:	if $t ~~ TypeDefType and $t.ref-type ~~ StructType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :162:	if $a.type ~~ PointerType && $a.type.ref-type ~~ FunctionType ||
Skarsnik/gptrixie …/DumbGenerator.pm6 :163:	$a.type ~~ TypeDefType && $a.type.ref-type ~~ PointerType && $a.type.ref-type.ref-type ~~ FunctionType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :176:	if $a.type ~~ PointerType && $a.type.ref-type ~~ FunctionType ||
Skarsnik/gptrixie …/DumbGenerator.pm6 :177:	$a.type ~~ TypeDefType && $a.type.ref-type ~~ PointerType && $a.type.ref-type.ref-type ~~ FunctionType {
Skarsnik/gptrixie …/DumbGenerator.pm6 :185:	my $returns = ($f.returns ~~ FundamentalType && $f.returns.name eq 'void') ?? '' !!
Skarsnik/gptrixie …/DumbGenerator.pm6 :217:	my $u-name = $cu ~~ AnonymousUnion ?? $cu.gen-name !! $cu.name;
Skarsnik/gptrixie …/DumbGenerator.pm6 :220:	my $has = ($m.type ~~ StructType) ?? 'HAS' !! 'has';
Skarsnik/gptrixie …/DumbGenerator.pm6 :233:	my $has = ($field.type ~~ StructType | UnionType) ?? 'HAS' !! 'has';
Skarsnik/gptrixie …/FileFilter.pm6 :9:	return False if $basename ~~ /^std/;
Skarsnik/gptrixie …/FileFilter.pm6 :11:	return False if $basename ~~ /^pthread/;
Skarsnik/gptrixie …/FileFilter.pm6 :15:	return False if $file ~~ /'/usr/include/'.+?'-linux-gnu/bits/'/;
Skarsnik/gptrixie …/FileFilter.pm6 :16:	return False if $file ~~ /'/usr/include/'.+?'-linux-gnu/sys/'/;
Skarsnik/gptrixie …/FileFilter.pm6 :17:	return False if $file ~~ /'/castxml/clang/include/'/;
Skarsnik/gptrixie …/FileFilter.pm6 :22:	if $f ~~ /^ $<myc> = ([f|e|s]) ':' $<filename> = (.+) / {
Skarsnik/gptrixie …/FileGenerator.pm6 :15:	if $gpt-conf ~~ Hash {
Skarsnik/gptrixie …/FileGenerator.pm6 :19:	if $gpt-conf ~~ Array {
Skarsnik/gptrixie …/FileGenerator.pm6 :72:	if $ob<obj> ~~ Struct {
Skarsnik/gptrixie …/FileGenerator.pm6 :73:	if @v[$i + 1].defined and @v[$i + 1]<obj> ~~ AnonymousUnion and @v[$i + 1]<obj>.struct.defined {
Skarsnik/gptrixie …/FileGenerator.pm6 :77:	if !($ob<obj> ~~ AnonymousUnion and $ob<obj>.struct.defined) {
Skarsnik/gptrixie …/HandleFileDeps.pm6 :86:	return $t if ($t ~~ CLocation && $t ~~ DirectType);
Skarsnik/gptrixie …/HandleFileDeps.pm6 :87:	return get-clocation($t.ref-type) if ($t ~~ IndirectType);
Skarsnik/gptrixie …/ListTypes.pm6 :11:	if $v ~~ ::($cmp) {
Skarsnik/gptrixie …/ListTypes.pm6 :29:	if $_ ~~ IndirectType {
Skarsnik/gptrixie …/ListTypes.pm6 :30:	if $_.ref-type !~~ Type {
Skarsnik/nativecall-typediag …/gumbo.pl6 :17:	if ::($export).does(Callable) and ::($export).^roles.perl ~~ /NativeCall/ {
Skarsnik/nativecall-typediag …/TypeDiag.pm6 :27:	if ::($export).does(Callable) and ::($export).^roles.perl ~~ /NativeCall/ {
Skarsnik/nativecall-typediag …/TypeDiag.pm6 :82:	{$ctypename = $k; last} if $v ~~ $nctype;
Skarsnik/perl6-gumbo …/Parser.pm6 :111:	if $filter ~~ Str && $filter eq $cattr.value || $filter ~~ Regex && $cattr.value ~~ $filter {
Skarsnik/perl6-gumbo …/01_basic.t :23:	ok $xmldoc ~~ XML::Document, "Return a XML::Document";
Skarsnik/perl6-gumbo …/01_basic.t :25:	ok $xmldoc.root.elements[0].elements[0][0] ~~ XML::Text, "Found text";
Skarsnik/perl6-gumbo …/03_stats.t :23:	ok $xmldoc ~~ XML::Document, "Return a XML::Document";
Skarsnik/perl6-irc-art …/Art.pm6 :134:	self.pixel($x + $pos, $y, :color($1)) if $pixel ~~ /\x03(\d?)","(\d)/;
Skarsnik/perl6-irc-art …/Art.pm6 :164:	@t[0] = "0@t[0]" if @t[0] ~~ /^\d$/ and @t[2] ~~ /^\d$/;
Skarsnik/perl6-irc-art …/Art.pm6 :165:	@t[1] = "0@t[1]" if @t[1] ~~ /^\d$/ and @t[2] ~~ /^\d$/;
Takadonet/Algorithm--Diff …/diff.pl :22:	$file1.IO ~~ :e || die "File does not exists: '$file1'";
Takadonet/Algorithm--Diff …/diff.pl :23:	$file2.IO ~~ :e || die "File does not exists: '$file2'";
Takadonet/Text--Diff …/Diff.pm :13:	subset Inputs of Any where { $_ ~~ Array|Str|IO|Code };
Takadonet/Text--Diff …/Diff.pm :63:	elsif $type ~~ Code {
Takadonet/Text--Diff …/Diff.pm :71:	elsif $type ~~ Array {
Takadonet/Text--Diff …/Diff.pm :75:	elsif $type ~~ IO {
Takadonet/Text--Diff …/Diff.pm :97:	$ctx_lines = 0 if $style ~~ Text::Diff::OldStyle;
Takadonet/Text--Diff …/inputs.t :35:	if $d ~~ /\-4.*\+5/ {
Takadonet/Text--Diff …/inputs.t :48:	if $d ~~ /\-4.*\+5/ {
Takadonet/Text--Diff …/inputs.t :58:	if $d ~~ /\-4.*\+5/ {
Takadonet/Text--Diff …/inputs.t :79:	if $d ~~ /\-4.*\+5/ {
Takadonet/Text--Diff …/inputs.t :94:	if $d ~~ /\-4.*\+5/ {
TiMBuS/Net--IRC …/README.pod :14:	multi method said ($e where {.who<nick> ~~ %enemies}) {
TiMBuS/Net--IRC …/Bot.pm :139:	if $event.what ~~ /^\c01 (.*) \c01$/ {
TiMBuS/Net--IRC …/Bot.pm :146:	$text ~~ /^ (.+?) [<.ws> (.*)]? $/;
TiMBuS/Net--IRC …/CommandHandler.pm :17:	if $cmd !~~ Bool {
TiMBuS/Net--IRC …/CommandHandler.pm :43:	$ev.what ~~ token {
TiMBuS/Net--IRC …/ACME.pm :39:	.what ~~ m/
TiMBuS/Net--IRC …/Tell.pm :17:	if $match<params> ~~ /$<name>=<+ alpha + [ \[..\] \{..\} ]>+ <.punct>? <.ws> $<msg>=[.+]/ {
TiMBuS/Net--IRC …/Tell.pm :33:	multi method said ( $ev where {$ev.who.lc ~~ %messages} ) {
TiMBuS/Net--IRC …/Tell.pm :37:	multi method joined ( $ev ) {#where {$ev.who.lc ~~ %messages} ) {
TiMBuS/Net--IRC …/Tell.pm :41:	multi method nickchange ( $ev where {$ev.what.lc ~~ %messages} ) {
Tux/CSV …/001-cope.txt :14:	$str ~~ s:g{ "foo" } = "bar";
Tux/CSV …/TODO :26:	re-enable the ~~ $eol again. For now disable the use of Regex in
Tux/CSV …/bugs.pl :88:	return $s ~~ / $!foo /;
Tux/CSV …/bugs.pl :92:	return $s ~~ / $foo /;
Tux/CSV …/csv-check :28:	$x ~~ s{^'"' (.*) '"'$} = $0;
Tux/CSV …/csv-check :29:	$x ~~ s:g{ "\\" '"' } = '"';
Tux/CSV …/csv-check :36:	$pn ~~ s{ .* "/"} = "";
Tux/CSV …/csv-check :54:	$sep = $data ~~ m/<["\d]> "," <["\d,]>/ ?? "," !!
Tux/CSV …/csv-check :55:	$data ~~ m/<["\d]> ";" <["\d;]>/ ?? ";" !!
Tux/CSV …/csv-check :56:	$data ~~ m/<["\d]> "\t" <["\d]> / ?? "\t" !!
Tux/CSV …/csv-check :58:	$data ~~ m/ \w "," <[\w,]> / ?? "," !!
Tux/CSV …/csv-check :59:	$data ~~ m/ \w ";" <[\w;]> / ?? ";" !!
Tux/CSV …/csv-check :60:	$data ~~ m/ \w "\t" <[\w]> / ?? "\t" !! ",";
Tux/CSV …/csv-check :61:	$data ~~ m/(<[\r\n]>+)$/ and $eol = $0.Str;
Tux/CSV …/CSV.pm :298:	?? $!text ~~ m{^ <[0..9]> } ?? +$!text
Tux/CSV …/CSV.pm :305:	?? $!text ~~ m{^ <[0..9]> } ?? +$!text
Tux/CSV …/CSV.pm :346:	$!text ~~ m:m{^ <[ \x09, \x20 .. \x7E ]>+ $} or
Tux/CSV …/CSV.pm :349:	$!text ~~ m:m{^ <[ \x00 .. \x7F ]>+ $} or
Tux/CSV …/CSV.pm :630:	$!sep ~~ m{<[\r\n]>} and self!fail (1003);
Tux/CSV …/CSV.pm :631:	$!quo.defined and $!quo ~~ m{<[\r\n]>} and self!fail (1003);
Tux/CSV …/CSV.pm :632:	$!esc.defined and $!esc ~~ m{<[\r\n]>} and self!fail (1003);
Tux/CSV …/CSV.pm :636:	$!sep ~~ m{ <[\ \t]> } and self!fail (1002);
Tux/CSV …/CSV.pm :637:	$!quo.defined and $!quo ~~ m{ <[\ \t]> } and self!fail (1002);
Tux/CSV …/CSV.pm :638:	$!esc.defined and $!esc ~~ m{ <[\ \t]> } and self!fail (1002);
Tux/CSV …/CSV.pm :647:	$x.defined && $x ~~ Str && $x eq "" and $x = Str;
Tux/CSV …/CSV.pm :657:	@s[0] ~~ Array and @s = |@s[0]; # Allow *OUT.nl-out
Tux/CSV …/CSV.pm :697:	$attr = $v ~~ Bool ?? +$v !! $v.defined ?? $v eq "" ?? 0 !! +$v !! 0;
Tux/CSV …/CSV.pm :725:	$munge-column-names ~~ Callable and @row = @row.map ($munge-column-names);
Tux/CSV …/CSV.pm :737:	$f ~~ "none" | "die" | "croak" | "diag" | "empty" | "undef" or self!fail (1500);
Tux/CSV …/CSV.pm :752:	filled => { $^row.first: { .defined && $_ ~~ /\S/ }};
Tux/CSV …/CSV.pm :759:	if ($b ~~ Hash || $b ~~ Pair) {
Tux/CSV …/CSV.pm :764:	($b ~~ Bool || $b ~~ Int and !?$b) or
Tux/CSV …/CSV.pm :765:	($b ~~ Str && $b ~~ m:i/^( reset | clear | none | 0 )$/) or
Tux/CSV …/CSV.pm :778:	$hook.defined && $hook ~~ Str && %predef-hooks{$hook}.defined and
Tux/CSV …/CSV.pm :781:	$name.defined && $name ~~ Str &&
Tux/CSV …/CSV.pm :782:	$hook.defined && ($hook ~~ Routine || $hook ~~ Callable) or
Tux/CSV …/CSV.pm :786:	$cb_name ~~ s{"-"} = "_";
Tux/CSV …/CSV.pm :787:	$cb_name ~~ /^ after_parse
Tux/CSV …/CSV.pm :803:	$r ~~ /^ (<[0..9]>+)["-"[(<[0..9]>+)||("*")]]? $/ or self!fail (2013);
Tux/CSV …/CSV.pm :923:	elsif (!$!binary and $f.Str ~~ m{ <[ \x00..\x08 \x0A..\x1F ]> }) {
Tux/CSV …/CSV.pm :926:	$f.Str ~~ m{<[ \r ]>} ?? 2022 !!
Tux/CSV …/CSV.pm :927:	$f.Str ~~ m{<[ \n ]>} ?? 2021 !! 2026 !! 2037;
Tux/CSV …/CSV.pm :974:	|| $t ~~ / $e | $s | \r | \n /
Tux/CSV …/CSV.pm :975:	|| ($!quote_space && $t ~~ / " " | \t /)
Tux/CSV …/CSV.pm :976:	|| ($!quote_binary && $t ~~ / <[ \x00..\x08 \x0a..\x1f \x7f..\xa0 ]> /)
Tux/CSV …/CSV.pm :1121:	$!allow_whitespace && !$f.undefined and $f.text ~~ s{ <[\ \t]>+ $} = "";
Tux/CSV …/CSV.pm :1153:	if ($!allow_whitespace && $next ~~ /^ <[\ \t]>+ $/) {
Tux/CSV …/CSV.pm :1172:	# $next ~~ /^ $eol $/ and return parse_done ();
Tux/CSV …/CSV.pm :1188:	if ($next ~~ /^ "0"/) {
Tux/CSV …/CSV.pm :1189:	@ch[$i + 1] ~~ s{^ "0"} = "";
Tux/CSV …/CSV.pm :1255:	@ch[$i + 1] ~~ s{^ "0"} = "";
Tux/CSV …/CSV.pm :1287:	#if ($chunk ~~ rx{^ $eol $}) {
Tux/CSV …/CSV.pm :1296:	$chunk ~~ m{<[\r]>} ?? 2022 !!
Tux/CSV …/CSV.pm :1297:	$chunk ~~ m{<[\n]>} ?? 2021 !! 2026);
Tux/CSV …/CSV.pm :1311:	$!allow_whitespace && !$f.undefined and $f.text ~~ s{ <[\ \t]>+ $} = "";
Tux/CSV …/CSV.pm :1317:	!$f.undefined && $f.Str ~~ /^ "sep=" (.*) /) {
Tux/CSV …/CSV.pm :1329:	$f.undefined and $chunk ~~ s{^ <[\ \t]>+ } = "";
Tux/CSV …/CSV.pm :1330:	$i + 1 == @ch.elems and $chunk ~~ s{ <[\ \t]>+ $} = "";
Tux/CSV …/CSV.pm :1337:	$chunk ~~ m/ \r / and return parse_error (2022, fpos => $fpos + $/.from);
Tux/CSV …/CSV.pm :1338:	$chunk ~~ m/ \n / and return parse_error (2021, fpos => $fpos + $/.from);
Tux/CSV …/CSV.pm :1341:	$chunk ~~ m/^ \r / and return parse_error (2031, fpos => $fpos);
Tux/CSV …/CSV.pm :1342:	$chunk ~~ m/ \r / and return parse_error (2032, fpos => $fpos + $/.from);
Tux/CSV …/CSV.pm :1477:	if ($spec ~~ s:i{^ "row=" } = "") {
Tux/CSV …/CSV.pm :1483:	if ($spec ~~ s:i{^ "col=" } = "") {
Tux/CSV …/CSV.pm :1489:	$spec ~~ s:i{^ "cell=" } = "" or self!fail (2013);
Tux/CSV …/CSV.pm :1494:	$r ~~ /^ (<[0..9]>+) "," (<[0..9]>+)
Tux/CSV …/CSV.pm :1566:	if (@fld[0] ~~ Pair) {
Tux/CSV …/CSV.pm :1608:	if ($headers ~~ Bool && ?$headers) {
Tux/CSV …/CSV.pm :1629:	$c ~~ Hash or self!fail (1004);
Tux/CSV …/CSV.pm :1637:	if ($k.lc ~~ m{^ "on" <[-_]> "in" $}) {
Tux/CSV …/CSV.pm :1641:	if ($k.lc ~~ m{^ "before" <[-_]> "out" $}) {
Tux/CSV …/CSV.pm :1645:	if ($k.lc ~~ m{^ "after" <[-_]> ( "parse" | "in" ) $}) {
Tux/CSV …/CSV.pm :1649:	if ($k.lc ~~ m{^ "before" <[-_]> "print" $}) {
Tux/CSV …/CSV.pm :1662:	if ($k.lc ~~ m{^ [ "detect" <[-_]> ]? "bom" $}) {
Tux/CSV …/CSV.pm :1666:	if ($k.lc ~~ m{^ "sep" [ <[-_]> "set" || "s" ] $}) {
Tux/CSV …/CSV.pm :1670:	if ($k.lc ~~ m{^ "munge" [ <[-_]> "column" <[-_]> "names" ]? $}) {
Tux/CSV …/CSV.pm :1674:	if ($k.lc ~~ m{^ "set" <[-_]> "column" <[-_]> "names" $}) {
Tux/CSV …/CSV.pm :1703:	if $in ~~ Supplier {
Tux/CSV …/CSV.pm :1720:	$fragment ~~ s:i{^ "row=" } = "" and
Tux/CSV …/CSV.pm :1722:	my @i = $in.list[0] ~~ Hash
Tux/CSV …/CSV.pm :1733:	$fragment ~~ s:i{^ "row=" } = "" and self.rowrange ($fragment);
Tux/CSV …/CSV.pm :1738:	row ~~ Str ?? $[ self.getline (row) ] !! row;
Tux/CSV …/CSV.pm :1745:	$fragment ~~ s:i{^ "row=" } = "" and self.rowrange ($fragment);
Tux/CSV …/CSV.pm :1750:	row ~~ Str ?? $[ self.getline (row) ] !! row;
Tux/CSV …/CSV.pm :1756:	$fragment ~~ s:i{^ "row=" } = "" and self.rowrange ($fragment);
Tux/CSV …/CSV.pm :1761:	if ($r ~~ Hash) {
Tux/CSV …/CSV.pm :1775:	$fragment ~~ s:i{^ "row=" } = "" and self.rowrange ($fragment);
Tux/CSV …/CSV.pm :1781:	if (r ~~ Hash) {
Tux/CSV …/CSV.pm :1813:	LEAVE if $out ~~ Str { .close with $io-out }
Tux/CSV …/CSV.pm :1843:	$in ~~ Array and $io-out = $*OUT;
Tux/CSV …/CSV.pm :1858:	if ($io-in ~~ IO::Handle and $io-in.defined) {
Tux/CSV …/CSV.pm :1864:	unless ($headers ~~ Str && $headers eq "skip") {
Tux/CSV …/CSV.pm :1866:	if $headers ~~ Callable { $_ = $headers($_) for @$hdr }
Tux/CSV …/CSV.pm :1867:	elsif $headers ~~ Hash { $_ = $headers{$_} // $_ for @$hdr }
Tux/CSV …/CSV.pm :1877:	if ($io-in ~~ IO::Handle and $io-in.defined) {
Tux/CSV …/CSV.pm :1884:	$out ~~ Hash || $headers ~~ Array || ($headers ~~ Str && $headers eq "auto") and
Tux/CSV …/CSV.pm :1887:	if ($out ~~ Hash or @h.elems) {
Tux/CSV …/CSV.pm :1890:	@in.elems && @in[0] ~~ Hash or @in = @in.map (-> @r { $%( @h Z=> @r ) });
Tux/CSV …/CSV.pm :1902:	$!csv-row.fields = $row[0] ~~ CSV::Field
Tux/CSV …/CSV.pm :1906:	my $r = (@h.elems == 0 || @row[0] ~~ Hash)
Tux/CSV …/CSV.pod6 :32:	@row[2] ~~ m/pattern/ or next; # 3rd field should match
Tux/CSV …/CSV.pod6 :2262:	$^row[2] ~~ /a/ && # third field should contain an "a"
Tux/CSV …/CSV.pod6 :2328:	filter => { $^row.first: { .defined && $_ ~~ /\S/ }}
Tux/CSV …/16_methods.t :14:	ok ($version ~~ m{^ <[0..9.-]>+ $}, "CSV-$version");
Tux/CSV …/20_file.t :37:	$exp ~~ s{^ '"' (.*) '"' $} = $0;
Tux/CSV …/30_field.t :12:	ok ($n ~~ Num, "Undefined in Numeric context type");
Tux/CSV …/30_field.t :15:	ok ($s ~~ Str, "Undefined in String context type");
Tux/CSV …/41_null.t :38:	$x ~~ s:g/\0/\\0/;
Tux/CSV …/41_null.t :39:	$x ~~ s:g/\n/\\n/;
Tux/CSV …/45_eol.t :65:	if ($expect.defined && $expect ~~ m/ "\r\n" /) {
Tux/CSV …/45_eol.t :68:	$n ~~ s:g{ "\r\n" } = "\n";
Tux/CSV …/55_combi.t :47:	#%state{1001} ~~ m{"separator is equal to"} or warn "HELP";
Tux/CSV …/55_combi.t :48:	#%state{1001} ~~ m{"separator is equal to"} or die %state{1001};
Tux/CSV …/55_combi.t :54:	%attr<sep_char> ~~ m/[\r\n]/ ||
Tux/CSV …/55_combi.t :55:	%attr<quote_char> ~~ m/[\r\n]/ ||
Tux/CSV …/55_combi.t :56:	%attr<escape_char> ~~ m/[\r\n]/
Tux/CSV …/55_combi.t :59:	ok (%state{1003} ~~ rx{"in main attr not"}, "Illegal combo (1003)");
Tux/CSV …/55_combi.t :62:	%attr<quote_char> ~~ m/^[ \t]/ ||
Tux/CSV …/55_combi.t :63:	%attr<escape_char> ~~ m/^[ \t]/
Tux/CSV …/55_combi.t :67:	ok (%state{1002} ~~ rx{"allow_whitespace with"}, "Illegal combo (1002)");
Tux/CSV …/79_callbacks.t :62:	sub Filter (CSV::Row $r) returns Bool { +$r[0] % 2 && $r[1] ~~ /^ <[abcd]> / ?? True !! False };
Tux/CSV …/85_util.t :15:	$data ~~ s:g{ "," } = $sep;
Tux/CSV …/85_util.t :41:	$data ~~ s:g{ "," } = $sep;
Tux/CSV …/85_util.t :87:	$data ~~ s:g{ "," } = $sep;
Tux/CSV …/90_csv.t :91:	if ($in ~~ Array && $in.elems > 0) {
Tux/CSV …/90_csv.t :93:	$type ~~ s{")("} = " of ";
Tux/CSV …/90_csv.t :96:	$s-in ~~ s:g{\n} = "\\n";
Tux/CSV …/90_csv.t :123:	my $datn = $data; $datn ~~ s:g{ "\r\n" } = "\n";
Tux/CSV …/test.pl :111:	if $_ ~~ Str {
Tux/CSV …/test.pl :132:	if $chunk ~~ rx{^ $eol $} {
Tux/CSV …/test.pl :169:	if $next ~~ /^ $eol $/ {
Tux/CSV …/test.pl :185:	if $next ~~ /^ "0"/ {
Tux/CSV …/test.pl :186:	@ch[$i + 1] ~~ s{^ "0"} = "";
Uladox/Editscr-Uggedit …/Uggedit.pm :265:	if $editFileLine ~~ m{^.?'//@uggedit'} or $!continueEditLine {
ab5tract/Terminal-Print …/decoded-input.p6 :10:	if $c ~~ Str {
ab5tract/Terminal-Print …/decoded-input.p6 :15:	elsif $c ~~ SpecialKey {
ab5tract/Terminal-Print …/decoded-input.p6 :18:	elsif $c ~~ Terminal::Print::DecodedInput::ModifiedSpecialKey {
ab5tract/Terminal-Print …/decoded-input.p6 :23:	elsif $c ~~ Terminal::Print::DecodedInput::MouseEvent {
ab5tract/Terminal-Print …/Commands.pm6 :25:	subset Terminal::Print::CursorProfile is export where * ~~ / ^('ansi' | 'universal')$ /;
ab5tract/Terminal-Print …/Commands.pm6 :49:	return query-cap($term, "clear") if $cap ~~ /^ <[sr]>mcup $/;
ab5tract/Terminal-Print …/Commands.pm6 :70:	$raw ~~ /^ (.*?) (\d+) (\D+) (\d+) (\D+) $/
ab5tract/Terminal-Print …/Commands.pm6 :118:	die X::TputCapaMissing.new(term => $term, capa => $command) if %tput-commands{$command} ~~ -1;
ab5tract/Terminal-Print …/Commands.pm6 :123:	die X::TputCapaMissing.new(term => $term, capa => %human-command-names{$command}) if %human-commands{$command} ~~ -1;
ab5tract/Terminal-Print …/Commands.pm6 :138:	print $clear if $clear !~~ -1;
ab5tract/Terminal-Print …/Commands.pm6 :139:	print $rmcup if $rmcup !~~ -1;
ab5tract/Terminal-Print …/Commands.pm6 :140:	print $cnorm if $cnorm !~~ -1;
ab5tract/Terminal-Print …/DecodedInput.pm6 :163:	elsif $sequence ~~ /^ (<-[;]>+) ';' (\d+) (\D) $/
ab5tract/Terminal-Print …/DecodedInput.pm6 :167:	elsif $sequence ~~ /^ "\e[<" (\d+) ';' (\d+) ';' (\d+) (<[Mm]>) $/ {
ab5tract/Terminal-Print …/Grid.pm6 :95:	$cell = $cell ~~ Cell ?? Cell.new(:$char, :color($cell.color)) !! $char;
ab5tract/Terminal-Print …/Grid.pm6 :105:	$cell = Cell.new(:char($cell ~~ Cell ?? $cell.char !! $cell // ' '), :$color);
ab5tract/Terminal-Print …/Widget.pm6 :22:	$!parent.add-child(self) if $!parent ~~ Terminal::Print::Widget;
ab5tract/Terminal-Print …/11-golf.t :12:	ok T ~~ Terminal::Print, "T is a Terminal::Print object";
adaptiveoptics/HTML-Tag …/Tag.pm6 :102:	$tag ~= $_.^name ~~ /HTML\:\:Tag/ ??
adaptiveoptics/P6-Finance-GDAX-API …/API.pm6 :85:	next if $line ~~ /^\#/;
adaptiveoptics/P6-Finance-GDAX-API …/020-api.t :50:	cmp-ok %json-test<children>, '~~', ['John', 'Cindy'], 'JSON child list key/val compares';
adaptiveoptics/P6-Prompt-Gruff …/Gruff.pm6 :36:	if $!regex and !($response ~~ $RX) {
adaptiveoptics/P6-Prompt-Gruff …/Gruff.pm6 :55:	return ($response ~~ /:i y/ ?? True !! False) if $!yn.defined;
afiskon/p6-datetime-format-w3cdtf …/W3CDTF.pm6 :11:	if $date-str ~~ /^ ( .* T <[0..9]> ** 2 \: <[0..9]> ** 2 \: <[0..9]> ** 2) \. <[0..9]> + ( .*) $/ -> Match $m {
afiskon/p6-datetime-format-w3cdtf …/W3CDTF.pm6 :16:	if $date-str ~~ /^ ( .* T <[0..9]> ** 2 \: <[0..9]> ** 2 ) ( <[Z+-]> .* ) $/ -> $m {
afiskon/p6-datetime-format-w3cdtf …/W3CDTF.pm6 :20:	if $date-str ~~ / . ** 16..* <[+-]> <[0..9]> ** 4 $/ {
afiskon/p6-datetime-format-w3cdtf …/W3CDTF.pm6 :24:	if $date-str ~~ /^ ( . ** 16..* <[+-]> <[0..9]> ** 2 ) \: ( <[0..9]> ** 2 ) $/ -> $m {
afiskon/p6-datetime-format-w3cdtf …/W3CDTF.pm6 :50:	if my $m = $result ~~ /^( .* <[+-]> <[0..9]> ** 2 ) ( <[0..9]> ** 2 )$/ {
afiskon/p6-sitemap-xml-parser …/Parser.pm6 :81:	unless $value ~~ 0.0..1.0 {
afiskon/p6-xml-parser-tiny …/Actions.pm6 :44:	if $_ ~~ Str && $result && $result[$result.end] ~~ Str {
ajs/perl6-Math-Sequences …/OEIS.t :905:	if $timer.status !~~ PromiseStatus::Planned {
ajs/perl6-Math-Sequences …/OEIS.t :918:	when ~$_ ~~ rx:s/been defined/ {
ajs/perl6-Math-Sequences …/generate-OEIS-tests.p6 :60:	if $timer.status !~~ PromiseStatus::Planned {
ajs/perl6-Math-Sequences …/generate-OEIS-tests.p6 :73:	when ~$_ ~~ rx:s/been defined/ {
ajs/perl6-Math-Sequences …/generate-OEIS-tests.p6 :99:	if not "t".IO ~~ :d {
ajs/perl6-Math-Sequences …/generate-OEIS-tests.p6 :122:	if $response.content ~~ /\<pre\>\s*\[(<[\d\s\\,-]>+)\]/ {
akiym/JSON-Hjson …/02-testcases.t :10:	if ($f.basename ~~ /^fail/) {
akiym/JSON-Hjson …/02-testcases.t :27:	if $retval.WHAT === Num && $retval.perl ~~ /e0$/ {
akiym/JSON-Hjson …/02-testcases.t :30:	if $retval.WHAT === Rat && $retval.perl ~~ /\.0$/ {
andydude/p6-c-parser …/Actions.pm6 :446:	my %classes = @children.classify({ $_ ~~ Spec ?? 'spec' !! 'type' });
andydude/p6-c-parser …/Utils.pm6 :26:	if $line ~~ rx{^ ')'} {
araraloren/Net-FTP …/FTP.pm6 :33:	fail("Connect failed!") unless $!ftpc ~~ Net::FTP::Control;
araraloren/Net-FTP …/FTP.pm6 :101:	if $!code == 257 && ($!msg ~~ /'"'(.*)'"'/) {
araraloren/Net-FTP …/FTP.pm6 :122:	if ($!msg ~~ /'"'(.*)'"'/) {
araraloren/Net-FTP …/FTP.pm6 :177:	unless $transfer ~~ Net::FTP::Conn {
araraloren/Net-FTP …/FTP.pm6 :251:	if $!msg ~~ /\:\s+$<name> = (.*)$/ {
araraloren/Net-FTP …/FTP.pm6 :317:	if $remoteio ~~ :d {
araraloren/Net-FTP …/FTP.pm6 :366:	if $localio ~~ :d {
araraloren/Net-FTP …/FTP.pm6 :425:	if ($!msg ~~ /
araraloren/Net-FTP …/FTP.pm6 :436:	unless $transfer ~~ Net::FTP::Conn {
araraloren/Net-FTP …/FTP.pm6 :449:	unless $fp ~~ :e {
araraloren/Net-FTP …/Conn.pm6 :21:	fail("Connect failed!") unless $!conn ~~ $!SOCKET;
araraloren/Net-FTP …/Control.pm6 :173:	if $line ~~ /^(\d ** 3)\s(.*)/ {
araraloren/Net-FTP …/Control.pm6 :175:	} elsif $line ~~ /^$code\s(.*)/ {
araraloren/Net-FTP …/Control.pm6 :177:	} elsif $line ~~ /^(\d ** 3)\-(.*)/ {
araraloren/Net-FTP …/Control.pm6 :179:	} elsif $line ~~ /\s+(.*)/ {
araraloren/Net-FTP …/Control.pm6 :201:	unless $code ~~ Int || $code ~~ Str {
araraloren/Net-FTP …/Format.pm6 :53:	($str ~~ /^\+/) ?? formatEplf($str) !! formatBinls($str);
araraloren/Net-FTP …/Format.pm6 :59:	if $str ~~ s/\,\s+(.*)$// {
araraloren/Net-FTP …/Format.pm6 :62:	$str ~~ s/^\+//;
araraloren/Net-FTP …/Format.pm6 :91:	if $str ~~ /^
araraloren/Net-FTP …/Format.pm6 :98:	if $str ~~ /
araraloren/Net-FTP …/Format.pm6 :120:	if %info<name> ~~ /
araraloren/Net-FTP …/Format.pm6 :128:	if $str ~~ s:s/^
araraloren/Net-FTP …/Format.pm6 :139:	if $str ~~ /^
araraloren/Net-FTP …/Format.pm6 :154:	} elsif $str ~~ /^
araraloren/perl6-app-findsource …/fs :45:	my @stack = do given $dira.value { .substr(0, $_ ~~ /\/$/ ?? .chars - 1 !! .chars); };
araraloren/perl6-app-findsource …/Searcher.pm6 :44:	return $!config-path ~~ :e;
araraloren/perl6-app-findsource …/Searcher.pm6 :62:	if $f ~~ :d {
araraloren/perl6-app-findsource …/Searcher.pm6 :64:	} elsif $f.basename ~~ $r {
araraloren/perl6-app-snippet …/snippet.pm6 :288:	last if $code ~~ /^ $end $/;
araraloren/perl6-app-snippet …/snippet.pm6 :322:	my $ext = ($*KERNEL ~~ /win32/ ?? '.exe' !! "");
araraloren/perl6-app-snippet …/C.pm6 :67:	if $fh ~~ :e {
araraloren/perl6-app-snippet …/Cpp.pm6 :68:	if $fh ~~ :e {
araraloren/perl6-getopt-advance …/README.zh.adoc :69:	die "$dirarg: Not a valid directory" if $dirarg.value.IO !~~ :d;
araraloren/perl6-getopt-advance …/README.zh.adoc :110:	.path.say if .path ~~ /<$regex>/ for @files;
araraloren/perl6-getopt-advance …/README.zh.adoc :119:	if $f ~~ :d {
araraloren/perl6-getopt-advance …/Advance.adoc :22:	die "$dirarg: Not a valid directory" if $dirarg.value.IO !~~ :d;
araraloren/perl6-getopt-advance …/Advance.adoc :63:	.path.say if .path ~~ /<$regex>/ for @files;
araraloren/perl6-getopt-advance …/Advance.adoc :72:	if $f ~~ :d {
araraloren/perl6-getopt-advance …/Advance.adoc :127:	* `append(::OptionSet::D: *@optpairs where all(@optpairs) ~~ Pair) of ::OptionSet`
araraloren/perl6-getopt-advance …/Advance.adoc :144:	* `append(::OptionSet::D: :$optional = True, :$radio, :$multi, *@optpairs where all(@optpairs) ~~ Pair) of ::OptionSet`
araraloren/perl6-getopt-advance …/Advance.adoc :444:	** append(::?CLASS::D: *@optpairs where all(@optpairs) ~~ Pair, :$radio where :!so, :$multi where :!so) of ::?CLASS
araraloren/perl6-getopt-advance …/Advance.adoc :445:	** append(::?CLASS::D: :$optional = True, :$radio!, *@optpairs where all(@optpairs) ~~ Pair) of ::?CLASS
araraloren/perl6-getopt-advance …/Advance.adoc :446:	** append(::?CLASS::D: :$optional = True, :$multi!, *@optpairs where all(@optpairs) ~~ Pair) of ::?CLASS
araraloren/perl6-getopt-advance …/Advance.adoc :848:	* remove(Str:D $name where $name !~~ /^\s+$/) of Bool
araraloren/perl6-getopt-advance …/Advance.pm6 :19:	*@optsets where all(@optsets) ~~ OptionSet,
araraloren/perl6-getopt-advance …/Advance.pm6 :51:	*@optsets where all(@optsets) ~~ OptionSet,
araraloren/perl6-getopt-advance …/Advance.pm6 :149:	$optstring ~~ s:g/(\w)<!before \:>/$0=b;/;
araraloren/perl6-getopt-advance …/Advance.pm6 :150:	$optstring ~~ s:g/(\w)\:/$0=s;/;
araraloren/perl6-getopt-advance …/Advance.pm6 :276:	multi method EXISTS-KEY(::?CLASS::D: Str:D \key where * !~~ /^\s+$/) of Bool {
araraloren/perl6-getopt-advance …/Advance.pm6 :285:	multi method AT-KEY(::?CLASS::D: Str:D \key where * !~~ /^\s+$/) {
araraloren/perl6-getopt-advance …/Advance.pm6 :335:	multi method append(::?CLASS::D: *@optpairs where all(@optpairs) ~~ Pair, :$radio where :!so, :$multi where :!so) of ::?CLASS {
araraloren/perl6-getopt-advance …/Advance.pm6 :362:	multi method append(::?CLASS::D: :$optional = True, :$radio!, *@optpairs where all(@optpairs) ~~ Pair) of ::?CLASS {
araraloren/perl6-getopt-advance …/Advance.pm6 :372:	multi method append(::?CLASS::D: :$optional = True, :$multi!, *@optpairs where all(@optpairs) ~~ Pair) of ::?CLASS {
araraloren/perl6-getopt-advance …/Group.pm6 :40:	method remove(Str:D $name where $name !~~ /^\s+$/) {
araraloren/perl6-getopt-advance …/Helper.pm6 :62:	$_.index ~~ Int ?? ($_.index == 0 ?? 0 !! 'index' ) !! '-1'
araraloren/perl6-getopt-advance …/Helper.pm6 :120:	$_.index ~~ Int ?? ($_.index == 0 ?? 0 !! 'index' ) !! '-1'
araraloren/perl6-getopt-advance …/NonOption.pm6 :45:	&callback where .signature ~~ :($, @) | :(@) | :()
araraloren/perl6-getopt-advance …/NonOption.pm6 :82:	&callback where .signature ~~ :($, $) | :($) | :()
araraloren/perl6-getopt-advance …/NonOption.pm6 :133:	if $index ~~ Int && $index < 0 {
araraloren/perl6-getopt-advance …/NonOption.pm6 :143:	&callback # where .signature ~~ :($, Argument $) | :(Argument $)
araraloren/perl6-getopt-advance …/NonOption.pm6 :149:	my $expect-index = $!index ~~ WhateverCode ??
araraloren/perl6-getopt-advance …/Option.pm6 :114:	&callback where .signature ~~ :($, $) | :($)
araraloren/perl6-getopt-advance …/Option.pm6 :258:	if $value ~~ Int {
araraloren/perl6-getopt-advance …/Option.pm6 :272:	$value ~~ Int || so +$value;
araraloren/perl6-getopt-advance …/Option.pm6 :285:	if $value ~~ FatRat {
araraloren/perl6-getopt-advance …/Option.pm6 :299:	$value ~~ FatRat || so $value.FatRat;
araraloren/perl6-getopt-advance …/Option.pm6 :312:	if $value ~~ Str {
araraloren/perl6-getopt-advance …/Option.pm6 :326:	$value ~~ Str || so ~$value;
araraloren/perl6-getopt-advance …/Option.pm6 :333:	unless $value ~~ Hash {
araraloren/perl6-getopt-advance …/Option.pm6 :347:	if $value ~~ Pair {
araraloren/perl6-getopt-advance …/Option.pm6 :422:	$value ~~ Pair || (try so $value.pairup) || Pair::Grammar.parse($value).so;
araraloren/perl6-getopt-advance …/Option.pm6 :429:	unless $value ~~ Positional {
araraloren/perl6-getopt-advance …/Parser.pm6 :434:	$index ~~ WhateverCode ?? $index.(+@noa) !! $index;
araraloren/perl6-getopt-advance …/Types.pm6 :133:	unless %!types{$setting.opt-type} ~~ Option {
araraloren/perl6-getopt-advance …/Types.pm6 :151:	unless %!types{$setting.opt-type} ~~ Option {
araraloren/perl6-getopt-advance …/create-symbol-directory.p6 :79:	if +@subf == 1 && @subf[0].basename ~~ /.*png$/ {
araraloren/perl6-getopt-advance …/find-file.p6 :14:	die "$dirarg: Not a valid directory" if $dirarg.value.IO !~~ :d;
araraloren/perl6-getopt-advance …/find-file.p6 :56:	.path.say if .path ~~ /<$regex>/ for @files;
araraloren/perl6-getopt-advance …/find-file.p6 :65:	if $f ~~ :d {
araraloren/perl6-terminal-table …/Table.pod :165:	=head3 add-cell($maybestr where * !~~ Str --> Generator)
araraloren/perl6-terminal-table …/Table.pod :170:	=head3 add-cell($maybestr where * !~~ Str, Color::String $style --> Generator)
araraloren/perl6-terminal-table …/Table.pod :320:	=item :&h-frame ~~ & (@h-frame, Bool $coloured)
araraloren/perl6-terminal-table …/Table.pod :322:	=item :&v-frame ~~ & (@v-frame, @contents, Bool $coloured)
araraloren/perl6-terminal-table …/Generator.pm6 :42:	if $str-style !~~ "" {
araraloren/perl6-terminal-table …/Generator.pm6 :53:	if $str-style !~~ "" {
araraloren/perl6-terminal-table …/Generator.pm6 :109:	multi method add-cell($maybestr where * !~~ Str) {
araraloren/perl6-terminal-table …/Generator.pm6 :118:	multi method add-cell($maybestr where * !~~ Str, Color::String $style) {
araraloren/perl6-terminal-table …/Shader.pm6 :18:	return str ~~ /<color-seq>/;
araraloren/perl6-terminal-table …/Shader.pm6 :23:	$style ~~ s/\s+reset//;
araraloren/perl6-terminal-table …/VisitorHelper.pm6 :22:	if c ~~ &cb.signature {
araraloren/perl6-terminal-table …/VisitorHelper.pm6 :57:	if $s ~~ Line {
araraloren/perl6-terminal-table …/self-define-style.p6 :48:	for @($c ~~ m:g/<github>/) {
arnsholt/Net-ZMQ …/Socket.pm6 :185:	my $part = @parts[$i] ~~ Str ?? @parts[$i].encode !! @parts[$i];
arnsholt/Net-ZMQ …/Socket.pm6 :262:	die "Send Blob to use $opt" unless $value ~~ Blob;
astj/p6-SQL-NamedPlaceholder …/NamedPlaceholder.pm6 :11:	$query ~~ s:g/($<cq>=(<column-quote>?)$<key>=(<placeholder>)$<cq>\s*<operator>\s*)\?/$0\:$0<key>/;
astj/p6-SQL-NamedPlaceholder …/NamedPlaceholder.pm6 :13:	$query ~~ s:g/\:(<placeholder>)/{
astj/p6-SQL-NamedPlaceholder …/NamedPlaceholder.pm6 :17:	$value ~~ List ?? $value.map({"?"}).join(", ") !! '?'
atweiden/config-toml …/Dumper.pm6 :40:	if $val ~~ Associative
atweiden/config-toml …/Dumper.pm6 :44:	elsif $val ~~ List && $val[0] ~~ Associative
atweiden/config-toml …/Dumper.pm6 :161:	# element against Real. Int ~~ Real, so we grep for Ints
atweiden/config-toml …/Actions.pm6 :717:	.payload !~~ &exception-associative-indexing
atweiden/config-toml …/02-dumper.t :43:	my Match $match = 'hello' ~~ /hello/;
atweiden/config-toml …/01-primitives.t :95:	$match-str1.made ~~ $match-str2.made,
atweiden/config-toml …/01-primitives.t :100:	┃ ┃ ∙ $match-str1.made ~~ $match-str2.made
atweiden/config-toml …/01-primitives.t :108:	$match-str1.made ~~ $match-str3.made,
atweiden/config-toml …/01-primitives.t :113:	┃ ┃ ∙ $match-str1.made ~~ $match-str3.made
atweiden/config-toml …/01-primitives.t :121:	$match-str2.made ~~ $match-str3.made,
atweiden/config-toml …/01-primitives.t :126:	┃ ┃ ∙ $match-str2.made ~~ $match-str3.made
atweiden/config-toml …/01-primitives.t :196:	$match-str4.made ~~ $match-str5.made,
atweiden/config-toml …/01-primitives.t :201:	┃ ┃ ∙ $match-str4.made ~~ $match-str5.made
atweiden/config-toml …/01-primitives.t :326:	$openssl-pem-perl ~~ $match-openssl-pem-toml.made,
atweiden/config-toml …/01-primitives.t :331:	┃ ┃ ∙ $openssl-pem-perl ~~ $match-openssl-pem-toml.made
atweiden/config-toml …/01-primitives.t :339:	$ssh-ed25519-perl ~~ $match-ssh-ed25519-toml.made,
atweiden/config-toml …/01-primitives.t :344:	┃ ┃ ∙ $ssh-ed25519-perl ~~ $match-ssh-ed25519-toml.made
atweiden/config-toml …/01-primitives.t :352:	$ssh-ed25519-pub-perl ~~ $match-ssh-ed25519-pub-toml.made,
atweiden/config-toml …/01-primitives.t :357:	┃ ┃ ∙ $ssh-ed25519-pub-perl ~~
atweiden/config-toml …/01-primitives.t :679:	┃ ┃ ∙ $match-integer1.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :691:	┃ ┃ ∙ $match-integer2.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :703:	┃ ┃ ∙ $match-integer3.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :715:	┃ ┃ ∙ $match-integer4.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :727:	┃ ┃ ∙ $match-integer5.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :739:	┃ ┃ ∙ $match-integer6.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :751:	┃ ┃ ∙ $match-integer7.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :763:	┃ ┃ ∙ $match-integer8.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :775:	┃ ┃ ∙ $match-integer9.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :787:	┃ ┃ ∙ $match-integer-bin.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :799:	┃ ┃ ∙ $match-integer-bin-underscore.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :811:	┃ ┃ ∙ $match-integer-hex.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :823:	┃ ┃ ∙ $match-integer-hex-underscore.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :835:	┃ ┃ ∙ $match-integer-oct.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :847:	┃ ┃ ∙ $match-integer-oct-underscore.made.WHAT ~~ Int
atweiden/config-toml …/01-primitives.t :1365:	┃ ┃ ∙ $match-float1.made.WHAT ~~ Rat
atweiden/config-toml …/01-primitives.t :1377:	┃ ┃ ∙ $match-float2.made.WHAT ~~ Rat
atweiden/config-toml …/01-primitives.t :1389:	┃ ┃ ∙ $match-float3.made.WHAT ~~ Rat
atweiden/config-toml …/01-primitives.t :1401:	┃ ┃ ∙ $match-float4.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1413:	┃ ┃ ∙ $match-float5.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1425:	┃ ┃ ∙ $match-float6.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1437:	┃ ┃ ∙ $match-float7.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1449:	┃ ┃ ∙ $match-float8.made.WHAT ~~ Rat
atweiden/config-toml …/01-primitives.t :1461:	┃ ┃ ∙ $match-float9.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1473:	┃ ┃ ∙ $match-float-inf.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1485:	┃ ┃ ∙ $match-float-inf-plus.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1497:	┃ ┃ ∙ $match-float-inf-minus.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1509:	┃ ┃ ∙ $match-float-nan.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1521:	┃ ┃ ∙ $match-float-nan-plus.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1533:	┃ ┃ ∙ $match-float-nan-minus.made.WHAT ~~ Num
atweiden/config-toml …/01-primitives.t :1776:	┃ ┃ ∙ $match-bool1.made.WHAT ~~ Bool
atweiden/config-toml …/01-primitives.t :1788:	┃ ┃ ∙ $match-bool2.made.WHAT ~~ Bool
atweiden/config-toml …/01-primitives.t :1801:	┃ ┃ ∙ $match-bool1.made ~~ True
atweiden/config-toml …/01-primitives.t :1813:	┃ ┃ ∙ $match-bool2.made ~~ False
atweiden/config-toml …/01-primitives.t :2008:	┃ ┃ ∙ $match-date-time1.made.WHAT ~~ DateTime
atweiden/config-toml …/01-primitives.t :2020:	┃ ┃ ∙ $match-date-time2.made.WHAT ~~ DateTime
atweiden/config-toml …/01-primitives.t :2032:	┃ ┃ ∙ $match-date-time3.made.WHAT ~~ DateTime
atweiden/config-toml …/01-primitives.t :2044:	┃ ┃ ∙ $match-date-time4.made.WHAT ~~ DateTime
atweiden/config-toml …/01-primitives.t :2056:	┃ ┃ ∙ $match-date-time5.made.WHAT ~~ DateTime
atweiden/config-toml …/01-primitives.t :2068:	┃ ┃ ∙ $match-date-time6.made.WHAT ~~ DateTime
atweiden/config-toml …/01-primitives.t :2080:	┃ ┃ ∙ $match-full-date1.made.WHAT ~~ Date
atweiden/config-toml …/01-primitives.t :2092:	┃ ┃ ∙ $match-partial-time1.made.WHAT ~~ Hash
atweiden/config-toml …/01-primitives.t :2104:	┃ ┃ ∙ $match-partial-time2.made.WHAT ~~ Hash
atweiden/config-toml …/01-primitives.t :2118:	┃ Success ┃ ~~ '1979-05-27T07:32:00Z'
atweiden/config-toml …/01-primitives.t :2130:	┃ Success ┃ ~~ '1979-05-27T00:32:00-07:00'
atweiden/config-toml …/01-primitives.t :2142:	┃ Success ┃ ~~ '1979-05-27T00:32:00.999999-07:00'
atweiden/config-toml …/01-primitives.t :2154:	┃ Success ┃ ~~ '1979-05-27T07:32:00Z'
atweiden/config-toml …/01-primitives.t :2166:	┃ Success ┃ ~~ '1979-05-27T00:32:00.999999Z'
atweiden/config-toml …/01-primitives.t :2178:	┃ Success ┃ ~~ '1979-05-27T07:32:00Z'
atweiden/config-toml …/01-primitives.t :2189:	┃ ┃ ∙ $match-full-date1.made ~~ '1979-05-27'
atweiden/config-toml …/01-primitives.t :2201:	┃ ┃ ∙ $match-partial-time1.made<hour> ~~ 7
atweiden/config-toml …/01-primitives.t :2213:	┃ ┃ ∙ $match-partial-time1.made<minute> ~~ 32
atweiden/config-toml …/01-primitives.t :2225:	┃ ┃ ∙ $match-partial-time1.made<second> ~~ 0.0
atweiden/config-toml …/01-primitives.t :2237:	┃ ┃ ∙ $match-partial-time2.made<hour> ~~ 0
atweiden/config-toml …/01-primitives.t :2249:	┃ ┃ ∙ $match-partial-time2.made<minute> ~~ 32
atweiden/config-toml …/01-primitives.t :2261:	┃ ┃ ∙ $match-partial-time2.made<second> ~~ 0.999999
atweiden/config-toml …/02-arrays.t :187:	┃ ┃ ∙ $match-empty-array.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :199:	┃ ┃ ∙ $match-empty-array-space.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :211:	┃ ┃ ∙ $match-empty-array-spaces.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :223:	┃ ┃ ∙ $match-empty-array-tab.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :235:	┃ ┃ ∙ $match-empty-array-tabs.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :247:	┃ ┃ ∙ $match-empty-array-newline.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :259:	┃ ┃ ∙ $match-empty-array-newlines.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :272:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :284:	┃ ┃ ∙ $match-empty-array.made ~~ []
atweiden/config-toml …/02-arrays.t :296:	┃ ┃ ∙ $match-empty-array-space.made ~~ []
atweiden/config-toml …/02-arrays.t :308:	┃ ┃ ∙ $match-empty-array-spaces.made ~~ []
atweiden/config-toml …/02-arrays.t :320:	┃ ┃ ∙ $match-empty-array-tab.made ~~ []
atweiden/config-toml …/02-arrays.t :332:	┃ ┃ ∙ $match-empty-array-tabs.made ~~ []
atweiden/config-toml …/02-arrays.t :344:	┃ ┃ ∙ $match-empty-array-newline.made ~~ []
atweiden/config-toml …/02-arrays.t :356:	┃ ┃ ∙ $match-empty-array-newlines.made ~~ []
atweiden/config-toml …/02-arrays.t :369:	┃ Success ┃ ~~ []
atweiden/config-toml …/02-arrays.t :788:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :800:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :812:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :824:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :836:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :849:	┃ ┃ .WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :860:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :873:	┃ ┃ .WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :884:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :897:	┃ ┃ .WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :909:	┃ ┃ .WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :921:	┃ ┃ .WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :932:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :944:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :957:	┃ ┃ .WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :969:	┃ Success ┃ ~~ ["red", "maroon", "crimson"]
atweiden/config-toml …/02-arrays.t :981:	┃ Success ┃ ~~ ["red", "maroon", "crimson"]
atweiden/config-toml …/02-arrays.t :993:	┃ Success ┃ ~~ ["", " ", "\t\t"]
atweiden/config-toml …/02-arrays.t :1005:	┃ Success ┃ ~~ ["red"]
atweiden/config-toml …/02-arrays.t :1017:	┃ Success ┃ ~~ ["red", "maroon", "crimson"]
atweiden/config-toml …/02-arrays.t :1036:	┃ Success ┃ .made ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :1048:	┃ Success ┃ ~~ ["red", "maroon", "crimson"]
atweiden/config-toml …/02-arrays.t :1060:	┃ Success ┃ .made ~~ ["red", "maroon", "crimson"]
atweiden/config-toml …/02-arrays.t :1072:	┃ Success ┃ ~~ ["", " ", "\t\t"]
atweiden/config-toml …/02-arrays.t :1084:	┃ Success ┃ .made ~~ ["red"]
atweiden/config-toml …/02-arrays.t :1096:	┃ Success ┃ .made ~~ ["red", "maroon", "crimson"]
atweiden/config-toml …/02-arrays.t :1112:	┃ Success ┃ .made ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :1124:	┃ Success ┃ ~~ ["first", "second", "third", "fourth", "", ""]
atweiden/config-toml …/02-arrays.t :1136:	┃ Success ┃ ~~ ["] ", " # ", "\\ ", "\\", "\\ ", "\\"]
atweiden/config-toml …/02-arrays.t :1148:	┃ Success ┃ .made ~~
atweiden/config-toml …/02-arrays.t :1218:	┃ Success ┃ ~~ Array[Int]
atweiden/config-toml …/02-arrays.t :1230:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :1243:	┃ Success ┃ ~~ [8001, 8001, 8002]
atweiden/config-toml …/02-arrays.t :1255:	┃ Success ┃ ~~ [99, 42, 0, -17, 1000, 5349221, 12345]
atweiden/config-toml …/02-arrays.t :1326:	┃ ┃ ∙ $match-array-of-floats.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :1339:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :1352:	┃ Success ┃ ~~ [0.0, -1.1, 2.2, -3.3, 4.4, -5.5]
atweiden/config-toml …/02-arrays.t :1374:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :1438:	┃ ┃ ∙ $match-array-of-booleans.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :1450:	┃ ┃ ∙ $match-array-of-booleans-newlines.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :1463:	┃ ┃ ∙ $match-array-of-booleans.made ~~ [True, False]
atweiden/config-toml …/02-arrays.t :1476:	┃ Success ┃ ~~ [True, False]
atweiden/config-toml …/02-arrays.t :1548:	┃ ┃ ∙ $match-array-of-date-times.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :1561:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :1573:	┃ ┃ ∙ $match-array-of-date-times.made ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :1593:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :1721:	┃ ┃ ∙ $match-array-of-arrays.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :1733:	┃ ┃ ∙ $match-array-of-arrays-newlines.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :1745:	┃ ┃ ∙ $match-array-of-empty-arrays.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :1758:	┃ ┃ ∙ $match-array-of-arrays.made ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :1780:	┃ ┃ ∙ $match-array-of-arrays-newlines.made ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :1792:	┃ ┃ ∙ $match-array-of-empty-arrays.made ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :1837:	┃ ┃ ∙ $match-array-of-inline-tables.made.WHAT ~~ Array
atweiden/config-toml …/02-arrays.t :1854:	┃ ┃ ∙ $match-array-of-inline-tables.made ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :2118:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :2130:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :2142:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :2154:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :2166:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :2178:	┃ Success ┃ ~~ Array
atweiden/config-toml …/02-arrays.t :2191:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :2203:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :2215:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :2227:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :2246:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/02-arrays.t :2274:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/03-inline-tables.t :153:	┃ Success ┃ ~~ Array
atweiden/config-toml …/03-inline-tables.t :191:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/04-document.t :80:	┃ ┃ ∙ $match-document.made.WHAT ~~ Hash
atweiden/config-toml …/04-document.t :92:	┃ ┃ ∙ $match-document-hard.made.WHAT ~~ Hash
atweiden/config-toml …/04-document.t :104:	┃ ┃ ∙ $match-document-standard.made.WHAT ~~ Hash
atweiden/config-toml …/04-document.t :118:	┃ Success ┃ ~~ "value"
atweiden/config-toml …/04-document.t :130:	┃ Success ┃ ~~ "another value"
atweiden/config-toml …/04-document.t :142:	┃ Success ┃ ~~ {}
atweiden/config-toml …/04-document.t :154:	┃ Success ┃ ~~ %( first => "Tom", last => "Preston-Werner" )
atweiden/config-toml …/04-document.t :166:	┃ Success ┃ ~~ 'Tom'
atweiden/config-toml …/04-document.t :178:	┃ Success ┃ ~~ 'Preston-Werner'
atweiden/config-toml …/04-document.t :190:	┃ Success ┃ ~~ %( x => 1, y => 2 )
atweiden/config-toml …/04-document.t :226:	┃ Success ┃ ~~ "..."
atweiden/config-toml …/04-document.t :238:	┃ Success ┃ ~~ "One\nTwo"
atweiden/config-toml …/04-document.t :250:	┃ Success ┃ ~~ "One\nTwo"
atweiden/config-toml …/04-document.t :262:	┃ Success ┃ ~~ "One\nTwo"
atweiden/config-toml …/04-document.t :274:	┃ Success ┃ ~~ "The quick brown fox jumps over the lazy dog."
atweiden/config-toml …/04-document.t :286:	┃ Success ┃ ~~ "The quick brown fox jumps over the lazy dog."
atweiden/config-toml …/04-document.t :298:	┃ Success ┃ ~~ "The quick brown fox jumps over the lazy dog."
atweiden/config-toml …/04-document.t :310:	┃ Success ┃ ~~ 'C:\Users\nodejs\templates'
atweiden/config-toml …/04-document.t :325:	┃ Success ┃ ~~ '...'
atweiden/config-toml …/04-document.t :337:	┃ Success ┃ ~~ 'Tom "Dubs" Preston-Werner'
atweiden/config-toml …/04-document.t :349:	┃ Success ┃ ~~ '<\i\c*\s*>'
atweiden/config-toml …/04-document.t :362:	┃ Success ┃ ~~ '...'
atweiden/config-toml …/04-document.t :374:	┃ Success ┃ ~~ '...'
atweiden/config-toml …/04-document.t :578:	┃ Success ┃ ~~ True
atweiden/config-toml …/04-document.t :590:	┃ Success ┃ ~~ False
atweiden/config-toml …/04-document.t :602:	┃ Success ┃ ~~ '1979-05-27T07:32:00Z'
atweiden/config-toml …/04-document.t :614:	┃ Success ┃ ~~ '1979-05-27T00:32:00-07:00'
atweiden/config-toml …/04-document.t :626:	┃ Success ┃ ~~ '1979-05-27T00:32:00.999999-07:00'
atweiden/config-toml …/04-document.t :638:	┃ Success ┃ ~~ [ 1, 2, 3 ]
atweiden/config-toml …/04-document.t :686:	┃ Success ┃ ~~ [ "red", "yellow", "green" ]
atweiden/config-toml …/04-document.t :698:	┃ Success ┃ ~~ "red"
atweiden/config-toml …/04-document.t :710:	┃ Success ┃ ~~ "yellow"
atweiden/config-toml …/04-document.t :722:	┃ Success ┃ ~~ "green"
atweiden/config-toml …/04-document.t :734:	┃ Success ┃ ~~ [ [ 1, 2 ], [3, 4, 5] ]
atweiden/config-toml …/04-document.t :746:	┃ Success ┃ ~~ [ 1, 2 ]
atweiden/config-toml …/04-document.t :782:	┃ Success ┃ ~~ [ 3, 4, 5 ]
atweiden/config-toml …/04-document.t :830:	┃ Success ┃ ~~ [ [ 1, 2 ], ["a", "b", "c"] ]
atweiden/config-toml …/04-document.t :842:	┃ Success ┃ ~~ [ 1, 2 ]
atweiden/config-toml …/04-document.t :878:	┃ Success ┃ ~~ [ "a", "b", "c" ]
atweiden/config-toml …/04-document.t :890:	┃ Success ┃ ~~ "a"
atweiden/config-toml …/04-document.t :902:	┃ Success ┃ ~~ "b"
atweiden/config-toml …/04-document.t :914:	┃ Success ┃ ~~ "c"
atweiden/config-toml …/04-document.t :926:	┃ Success ┃ ~~ [ 1, 2, 3 ]
atweiden/config-toml …/04-document.t :974:	┃ Success ┃ ~~ [ 1, 2 ]
atweiden/config-toml …/04-document.t :1010:	┃ Success ┃ ~~ "Hammer"
atweiden/config-toml …/04-document.t :1034:	┃ Success ┃ ~~ {}
atweiden/config-toml …/04-document.t :1046:	┃ Success ┃ ~~ "Nail"
atweiden/config-toml …/04-document.t :1070:	┃ Success ┃ ~~ "gray"
atweiden/config-toml …/04-document.t :1082:	┃ Success ┃ ~~ "apple"
atweiden/config-toml …/04-document.t :1094:	┃ Success ┃ ~~ "red"
atweiden/config-toml …/04-document.t :1106:	┃ Success ┃ ~~ "round"
atweiden/config-toml …/04-document.t :1118:	┃ Success ┃ ~~ "red delicious"
atweiden/config-toml …/04-document.t :1130:	┃ Success ┃ ~~ "granny smith"
atweiden/config-toml …/04-document.t :1142:	┃ Success ┃ ~~ "banana"
atweiden/config-toml …/04-document.t :1154:	┃ Success ┃ ~~ "plantain"
atweiden/config-toml …/04-document.t :1167:	┃ Success ┃ ~~ "You'll hate me after this - #"
atweiden/config-toml …/04-document.t :1179:	┃ Success ┃ ~~ [ "] ", " # "]
atweiden/config-toml …/04-document.t :1191:	┃ Success ┃ ~~ [ ... ]
atweiden/config-toml …/04-document.t :1203:	┃ Success ┃ ~~ " Same thing, but with a string #"
atweiden/config-toml …/04-document.t :1215:	┃ Success ┃ ~~ " And when \"'s are in the string, along with # \""
atweiden/config-toml …/04-document.t :1227:	┃ Success ┃ ~~ "You don't think some user won't do that?"
atweiden/config-toml …/04-document.t :1239:	┃ Success ┃ ~~ ["]"]
atweiden/config-toml …/04-document.t :1252:	┃ Success ┃ ~~ 'TOML Example'
atweiden/config-toml …/04-document.t :1264:	┃ Success ┃ ~~ 'Tom Preston-Werner'
atweiden/config-toml …/04-document.t :1276:	┃ Success ┃ ~~ 'GitHub'
atweiden/config-toml …/04-document.t :1288:	┃ Success ┃ ~~ "GitHub Cofounder & CEO\nLikes tater tots and beer."
atweiden/config-toml …/04-document.t :1300:	┃ Success ┃ ~~ '1979-05-27T07:32:00Z'
atweiden/config-toml …/04-document.t :1312:	┃ Success ┃ ~~ '192.168.1.1'
atweiden/config-toml …/04-document.t :1324:	┃ Success ┃ ~~ [ 8001, 8001, 8002 ]
atweiden/config-toml …/04-document.t :1384:	┃ Success ┃ ~~ True
atweiden/config-toml …/04-document.t :1396:	┃ Success ┃ ~~ '10.0.0.1'
atweiden/config-toml …/04-document.t :1408:	┃ Success ┃ ~~ 'eqdc10'
atweiden/config-toml …/04-document.t :1420:	┃ Success ┃ ~~ '10.0.0.2'
atweiden/config-toml …/04-document.t :1432:	┃ Success ┃ ~~ 'eqdc10'
atweiden/config-toml …/04-document.t :1444:	┃ Success ┃ ~~ '中国'
atweiden/config-toml …/04-document.t :1456:	┃ Success ┃ ~~ 'gamma'
atweiden/config-toml …/04-document.t :1468:	┃ Success ┃ ~~ 'delta'
atweiden/config-toml …/04-document.t :1504:	┃ Success ┃ ~~ 'alpha'
atweiden/config-toml …/04-document.t :1516:	┃ Success ┃ ~~ 'omega'
atweiden/config-toml …/04-document.t :1528:	┃ Success ┃ ~~ 'Hammer'
atweiden/config-toml …/04-document.t :1552:	┃ Success ┃ ~~ 'Nail'
atweiden/config-toml …/04-document.t :1576:	┃ Success ┃ ~~ 'gray'
atweiden/config-toml …/01-table-unordered.t :44:	┃ ┃ ∙ $match-toml.made<table><sub1><item> ~~ "ok"
atweiden/config-toml …/01-table-unordered.t :56:	┃ ┃ ∙ $match-toml.made<table><item> ~~ "ok"
atweiden/config-toml …/01-table-unordered.t :68:	┃ ┃ ∙ $match-toml.made<table><sub2><item> ~~ "ok"
atweiden/config-toml …/02-arraytable-table-repeat.t :49:	┃ ┃ ∙ $match-toml.made<Person>[0]<name> ~~ "LJ"
atweiden/config-toml …/02-arraytable-table-repeat.t :62:	┃ Success ┃ ~~ "18..25"
atweiden/config-toml …/02-arraytable-table-repeat.t :74:	┃ Success ┃ ~~ "US"
atweiden/config-toml …/02-arraytable-table-repeat.t :85:	┃ ┃ ∙ $match-toml.made<Person>[1]<name> ~~ "Sam"
atweiden/config-toml …/02-arraytable-table-repeat.t :98:	┃ Success ┃ ~~ "13..18"
atweiden/config-toml …/02-arraytable-table-repeat.t :110:	┃ Success ┃ ~~ "MX"
atweiden/config-toml …/03-txn.t :33:	┃ Success ┃ ~~ Date.new('2014-01-01')
atweiden/config-toml …/03-txn.t :45:	┃ Success ┃ ~~ '...'
atweiden/config-toml …/03-txn.t :69:	┃ Success ┃ ~~ [ 'TAG1', 'TAG2' ]
atweiden/config-toml …/03-txn.t :81:	┃ Success ┃ ~~ 'ASSETS'
atweiden/config-toml …/03-txn.t :93:	┃ Success ┃ ~~ 'Personal'
atweiden/config-toml …/03-txn.t :105:	┃ Success ┃ ~~ [ 'Bankwest', 'Cheque' ]
atweiden/config-toml …/03-txn.t :117:	┃ Success ┃ ~~ 'USD'
atweiden/config-toml …/03-txn.t :141:	┃ Success ┃ ~~ '$'
atweiden/config-toml …/03-txn.t :153:	┃ Success ┃ ~~ ''
atweiden/config-toml …/03-txn.t :165:	┃ Success ┃ ~~ 'EQUITY'
atweiden/config-toml …/03-txn.t :177:	┃ Success ┃ ~~ 'Personal'
atweiden/config-toml …/03-txn.t :189:	┃ Success ┃ ~~ []
atweiden/config-toml …/03-txn.t :201:	┃ Success ┃ ~~ 'USD'
atweiden/config-toml …/03-txn.t :225:	┃ Success ┃ ~~ '$'
atweiden/config-toml …/03-txn.t :237:	┃ Success ┃ ~~ ''
atweiden/config-toml …/03-txn.t :279:	┃ ┃ ∙ $match-toml.made<TXN>[0]<entity> ~~ 'VarName'
atweiden/config-toml …/03-txn.t :316:	┃ Success ┃ ~~ 'capture entry'
atweiden/config-toml …/03-txn.t :328:	┃ Success ┃ ~~ 'VarName'
atweiden/config-toml …/03-txn.t :340:	┃ Success ┃ ~~ 'AssetCode'
atweiden/config-toml …/03-txn.t :352:	┃ Success ┃ ~~ 'AssetFlow'
atweiden/config-toml …/03-txn.t :364:	┃ Success ┃ ~~ 'Costing'
atweiden/config-toml …/03-txn.t :376:	┃ Success ┃ ~~ 'DateTime'
atweiden/config-toml …/03-txn.t :400:	┃ Success ┃ ~~ 'AssetCode'
atweiden/config-toml …/03-txn.t :424:	┃ Success ┃ ~~ 'SILO'
atweiden/config-toml …/03-txn.t :436:	┃ Success ┃ ~~ 'VarName'
atweiden/config-toml …/03-txn.t :448:	┃ Success ┃ ~~ 'VarName'
atweiden/config-toml …/03-txn.t :460:	┃ Success ┃ ~~ 'AssetCode'
atweiden/config-toml …/03-txn.t :472:	┃ Success ┃ ~~ 'DecInc'
atweiden/config-toml …/03-txn.t :496:	┃ Success ┃ ~~ ''
atweiden/config-toml …/03-txn.t :508:	┃ Success ┃ ~~ ''
atweiden/config-toml …/03-txn.t :544:	┃ Success ┃ ~~ 'capture entry'
atweiden/config-toml …/03-txn.t :580:	┃ Success ┃ ~~ 'capture posting'
atweiden/config-toml …/03-txn.t :616:	┃ Success ┃ ~~ 'capture entry'
atweiden/crane …/Add.pm6 :37:	.message !~~ &cannot-resolve-caller-splice-list
atweiden/crane …/Add.pm6 :46:	.message !~~ &no-such-method-splice
atweiden/crane …/Add.pm6 :209:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :237:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :264:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :290:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :345:	# weirdly, using C<where {$_ ~~ Positional}> makes a difference in type
atweiden/crane …/Add.pm6 :351:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :380:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :408:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :435:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :461:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Add.pm6 :483:	:$value! where { $_ ~~ Positional },
atweiden/crane …/In.pm6 :96:	@steps where { .elems > 1 and @steps[0] ~~ Int and @steps[0] >= 0 }
atweiden/crane …/In.pm6 :105:	@steps where { .elems > 1 and @steps[0] ~~ WhateverCode }
atweiden/crane …/In.pm6 :123:	@steps where { .elems == 1 and @steps[0] ~~ Int and @steps[0] >= 0 }
atweiden/crane …/In.pm6 :132:	@steps where { .elems == 1 and @steps[0] ~~ WhateverCode }
atweiden/crane …/Remove.pm6 :35:	.payload !~~ &can-not-remove
atweiden/crane …/Remove.pm6 :42:	.message !~~ &cannot-resolve-caller-splice-list
atweiden/crane …/Remove.pm6 :49:	.message !~~ &no-such-method-splice
atweiden/crane …/Replace.pm6 :38:	.message !~~ &cannot-resolve-caller-splice-list
atweiden/crane …/Replace.pm6 :45:	.message !~~ &no-such-method-splice
atweiden/crane …/Replace.pm6 :206:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Replace.pm6 :234:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Replace.pm6 :261:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Replace.pm6 :287:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Replace.pm6 :340:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Replace.pm6 :369:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Replace.pm6 :397:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Replace.pm6 :424:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Replace.pm6 :450:	:$value! where { $_ ~~ Positional },
atweiden/crane …/Set.pm6 :36:	:$value! where { $_ ~~ Positional }
atweiden/crane …/Set.pm6 :47:	:$value! where { $_ ~~ Positional }
atweiden/file-presence …/Presence.pm6 :6:	my subset PresenceHash of Hash where { .keys.sort ~~ <d e f r w x> }
atweiden/txn-parser …/Actions.pm6 :1000:	$rate-type ~~ IN-TOTAL
atweiden/txn-parser …/Actions.pm6 :1024:	$rate-type ~~ IN-TOTAL
atweiden/txn-parser …/01-ledger.t :37:	┃ ┃ ∙ $match-ledger.made.WHAT ~~ Array[Entry:D]
atweiden/txn-parser …/01-ledger.t :51:	┃ ┃ ∙ $match-ledger.made[0].header.date ~~ '2014-01-01'
atweiden/txn-parser …/01-ledger.t :64:	┃ Success ┃ ~~ '...'
atweiden/txn-parser …/01-ledger.t :88:	┃ Success ┃ ~~ 'TAG1'
atweiden/txn-parser …/01-ledger.t :100:	┃ Success ┃ ~~ 'TAG2'
atweiden/txn-parser …/01-ledger.t :123:	┃ ┃ ∙ $match-ledger.made[0].id.text ~~ "..."
atweiden/txn-parser …/01-ledger.t :148:	┃ Success ┃ ~~ 'Personal'
atweiden/txn-parser …/01-ledger.t :160:	┃ Success ┃ ~~ TXN::Parser::Types::Silo::ASSETS
atweiden/txn-parser …/01-ledger.t :172:	┃ Success ┃ ~~ 'Bankwest'
atweiden/txn-parser …/01-ledger.t :184:	┃ Success ┃ ~~ 'Cheque'
atweiden/txn-parser …/01-ledger.t :196:	┃ Success ┃ ~~ 'USD'
atweiden/txn-parser …/01-ledger.t :220:	┃ Success ┃ ~~ '$'
atweiden/txn-parser …/01-ledger.t :232:	┃ Success ┃ ~~ Entry::Posting::Annot
atweiden/txn-parser …/01-ledger.t :244:	┃ Success ┃ ~~ TXN::Parser::Types::PlusMinus
atweiden/txn-parser …/01-ledger.t :256:	┃ Success ┃ ~~ TXN::Parser::Types::DecInc::INC
atweiden/txn-parser …/01-ledger.t :268:	┃ Success ┃ ~~ TXN::Parser::Types::DrCR::DEBIT
atweiden/txn-parser …/01-ledger.t :291:	┃ ┃ ∙ $match-ledger.made[0].posting[0].id.text ~~ '...'
atweiden/txn-parser …/01-ledger.t :328:	┃ Success ┃ ~~ "..."
atweiden/txn-remarshal …/Remarshal.pm6 :269:	my Bool:D $needs-minus = so($decinc ~~ DEC);
autarch/perl6-File-LibMagic …/README.md :18:	if %info<mime-type> ~~ rx{ ^ 'text/' } { ... }
autarch/perl6-File-LibMagic …/LibMagic.pm6 :131:	my $method = $buffer ~~ Buf[uint8] ?? 'magic-buffer' !! 'magic-string',
autarch/perl6-File-LibMagic …/LibMagic.pm6 :197:	if %info<mime-type> ~~ rx{ ^ 'text/' } { ... }
autarch/perl6-File-LibMagic …/basic.t :36:	unless $standard_file ~~ :e;
autarch/perl6-File-LibMagic …/basic.t :40:	unless %info<description> ~~ rx{'magic binary file'};
autarch/perl6-File-LibMagic …/basic.t :78:	my $buffer = $file.IO.slurp( :bin( $file ~~ / '.pdf' $ / ) );
autarch/perl6-File-LibMagic …/basic.t :105:	'~~',
autarch/perl6-File-LibMagic …/flags.t :66:	if $expect-without-flag ~~ Set {
autarch/perl6-Pod-TreeWalker …/TreeWalker.pm6 :130:	if $thing ~~ Pod::Block;
autarch/perl6-Pod-TreeWalker …/TreeWalker.pm6 :139:	if $thing ~~ Str {
avuserow/perl6-audio-taglib-simple …/Simple.pm :40:	unless $file ~~ :e {
avuserow/perl6-binary-structured …/Structured.pm6 :162:	unless $a ~~ ConstructedAttributeHelper {
avuserow/perl6-binary-structured …/Structured.pm6 :169:	unless $a ~~ ConstructedAttributeHelper {
avuserow/perl6-binary-structured …/Structured.pm6 :176:	unless $a ~~ ConstructedAttributeHelper {
avuserow/perl6-binary-structured …/Structured.pm6 :183:	unless $a ~~ ConstructedAttributeHelper {
avuserow/perl6-binary-structured …/Structured.pm6 :187:	unless $a.type ~~ Array | Buf {
avuserow/perl6-binary-structured …/Structured.pm6 :191:	if $read ~~ Routine {
avuserow/perl6-binary-structured …/Structured.pm6 :199:	unless $a ~~ ConstructedAttributeHelper {
avuserow/perl6-binary-structured …/Structured.pm6 :203:	if $a.type ~~ StreamPosition {
avuserow/perl6-binary-structured …/Structured.pm6 :207:	if $written ~~ Routine {
avuserow/perl6-binary-structured …/Structured.pm6 :215:	# unless $a ~~ ConstructedAttributeHelper {
avuserow/perl6-binary-structured …/Structured.pm6 :302:	unless $attr ~~ ConstructedAttributeHelper && $attr.rewritten {
avuserow/perl6-binary-structured …/Structured.pm6 :392:	if $attr ~~ ConstructedAttributeHelper && $attr.endianness {
avuserow/perl6-binary-structured …/Structured.pm6 :435:	unless $attr.type.of ~~ Binary::Structured {
avuserow/perl6-binary-structured …/Structured.pm6 :440:	if $limit ~~ Buf {
avuserow/perl6-binary-structured …/Structured.pm6 :448:	if $limit ~~ ElementCount {
avuserow/perl6-binary-structured …/Structured.pm6 :517:	if $attr ~~ ConstructedAttributeHelper && $attr.writer {
avuserow/perl6-binary-structured …/Structured.pm6 :534:	if $attr ~~ ConstructedAttributeHelper {
avuserow/perl6-binary-structured …/Structured.pm6 :542:	if $attr ~~ ConstructedAttributeHelper && $attr.rewritten {
avuserow/perl6-binary-structured …/Structured.pm6 :555:	if $attr ~~ ConstructedAttributeHelper {
avuserow/perl6-binary-structured …/Structured.pm6 :597:	if $attr ~~ ConstructedAttributeHelper && $attr.writer {
avuserow/perl6-datetime-format-likego …/LikeGo.pm6 :29:	$goformat ~~ s:g/\%/%%/; # Non-word match, do it first
avuserow/perl6-datetime-format-likego …/LikeGo.pm6 :32:	$goformat ~~ s:g/<<$gostyle>>/$code/;
avuserow/perl6-datetime-format-likego …/LikeGo.pm6 :34:	if $goformat ~~ /\d/ {
awwaiid/p6-Inline-Ruby …/Ruby.pm6 :132:	if ::("$module") !~~ Failure {
awwaiid/p6-Inline-Ruby …/RbObject.pm6 :88:	my &block = @args.pop if @args[*-1] ~~ Callable;
awwaiid/p6-Inline-Ruby …/RbObject.pm6 :105:	if $p6_value ~~ Inline::Ruby::RbObject {
awwaiid/p6-Inline-Ruby …/RbValue.pm6 :101:	if p6_rb_type(self) ~~ RUBY_T_STRING {
awwaiid/p6-Inline-Ruby …/exceptions.t.todo :14:	ok $!.Str() ~~ m/foo/, 'exception message found';
awwaiid/p6-Inline-Ruby …/exceptions.t.todo :24:	ok $!.Str() ~~ m/foo/, 'exception message found from function call';
awwaiid/p6-Inline-Ruby …/exceptions.t.todo :38:	ok $_.Str() ~~ m/foo/, 'exception message found from method call';
awwaiid/p6-Inline-Ruby …/exceptions.t.todo :96:	ok $_.Str() ~~ m/foo/, 'exception message found from method call';
awwaiid/p6-lrep …/LREP.pm6 :62:	if $message.input ~~ /^\>/ {
awwaiid/p6-lrep …/LREP.pm6 :64:	$input ~~ s/^\>//;
awwaiid/p6-lrep …/LREP.pm6 :88:	if $message.input ~~ /^look$/ {
azawawi/farabi6 …/Farabi6.pm6 :46:	unless $*SPEC.catdir($files-dir, 'assets', 'farabi.js').IO ~~ :e;
azawawi/farabi6 …/Farabi6.pm6 :57:	$uri ~~ s/ '?' .* $ //;
azawawi/farabi6 …/Farabi6.pm6 :162:	my $id = $/[0].Str if %env<QUERY_STRING> ~~ /^id\=(.+)$/;
azawawi/farabi6 …/Farabi6.pm6 :175:	if ($filename.IO ~~ :e) {
azawawi/farabi6 …/Editor.pm6 :46:	unless $output ~~ /^'Syntax OK'/ {
azawawi/farabi6 …/Editor.pm6 :47:	if $output ~~ m/\n(.+?)at\s.+?\:(\d+)/ {
azawawi/farabi6 …/Editor.pm6 :159:	$html ~~ s/^.+\<body.+?\>(.+)\<\/body\>.+$/$0/;
azawawi/farabi6 …/Editor.pm6 :221:	&& $output ~~ /Wrote\sprofiler\soutput\sto\s(profile\-(.+?)\.html)/
azawawi/farabi6 …/Editor.pm6 :303:	if defined($id) && $file-name.IO ~~ :f
azawawi/farabi6 …/Editor.pm6 :352:	if $projects-json.IO ~~ :f
azawawi/farabi6 …/Editor.pm6 :373:	|| $name ~~ m:i/"$pattern"/
azawawi/farabi6 …/Editor.pm6 :374:	|| $desc ~~ m:i/"$pattern"/
azawawi/farabi6 …/Editor.pm6 :461:	unless $index-file.path ~~ :f
azawawi/farabi6 …/Editor.pm6 :469:	if $index-file.path ~~ :f
azawawi/farabi6 …/Editor.pm6 :484:	if $topic ~~ m:i/"$pattern"/ {
azawawi/farabi6 …/Editor.pm6 :573:	if $response ~~ /^ $ANSI_MAGENTA '>>>' \s+ 'LOADING' (.+?) $ /
azawawi/farabi6 …/Editor.pm6 :576:	} elsif $response ~~ /^ $ANSI_BLUE
azawawi/farabi6 …/Editor.pm6 :597:	if $line ~~ / $ANSI_BOLD_YELLOW .+? $ANSI_RESET /
azawawi/farabi6 …/Editor.pm6 :612:	elsif $response ~~ / ^ $ANSI_BLUE '>' \s+ $ANSI_RESET $ /
azawawi/farabi6 …/Util.pm6 :52:	$value ~~ s/^$name\=//;
azawawi/farabi6 …/Util.pm6 :117:	if ($filename ~~ /\.(\w+)$/) {
azawawi/farabi6 …/Util.pm6 :140:	next if $path ~~ /.svn$|.git$/;
azawawi/farabi6 …/Util.pm6 :142:	if $elem.IO ~~ :d {
azawawi/farabi6 …/Util.pm6 :147:	} elsif $file-name ~~ m:ignorecase/"$pattern"/ {
azawawi/farabi6 …/Util.pm6 :192:	$output ~~ s:g/
azawawi/farabi6 …/markdown.js :511:	if (stream.match(/^~~/, true)) { // Probably surrounded by space
azawawi/farabi6 …/perl.js :58:	'~~' : 4,
azawawi/farabi6 …/perl6-mode.js :39:	'~~' : 4,
azawawi/perl6-browser-open …/Open.pm6 :101:	return $cmd if $exact && $cmd.IO ~~ :x;
azawawi/perl6-browser-open …/02-basic.t :13:	ok $cmd.IO ~~ :e, '... and we can execute it';
azawawi/perl6-electron …/04-shell.t :36:	ok $file-to-delete.IO ~~ :e, "File exists";
azawawi/perl6-electron …/04-shell.t :38:	ok $file-to-delete.IO !~~ :e, "File moved to trash";
azawawi/perl6-electron …/06-process.t :34:	ok $versions ~~ Hash, 'Return result is a hash';
azawawi/perl6-electron …/06-process.t :42:	ok $v ~~ Str, 'Chrome version string is a string';
azawawi/perl6-electron …/06-process.t :47:	ok $v ~~ Str, 'Electron version string is a string';
azawawi/perl6-electron …/wrap_api.p6 :21:	if $line ~~ / ^ '###' (.+) $ / {
azawawi/perl6-electron …/wrap_api.p6 :23:	if $header ~~ / ^ " Event: '" (.+) "'" $ / {
azawawi/perl6-file-homedir …/01-basic.t :20:	ok $my-home.IO ~~ :d, "my-home result is a directory";
azawawi/perl6-file-which …/MacOSX.pm6 :32:	next if $file.IO ~~ :d;
azawawi/perl6-file-which …/MacOSX.pm6 :36:	$file.IO ~~ :x
azawawi/perl6-file-which …/MacOSX.pm6 :38:	|| $file.IO ~~ :e
azawawi/perl6-file-which …/Unix.pm6 :11:	return $exec if $exec ~~ /\// && $exec.IO ~~ :f && $exec.IO ~~ :x;
azawawi/perl6-file-which …/Unix.pm6 :19:	next if $file.IO ~~ :d;
azawawi/perl6-file-which …/Unix.pm6 :22:	if $file.IO ~~ :x {
azawawi/perl6-file-which …/Win32.pm6 :30:	next if $file.IO ~~ :d;
azawawi/perl6-file-which …/Win32.pm6 :37:	&& $file.IO ~~ :e
azawawi/perl6-file-which …/01-which.t :13:	ok $perl6.IO ~~ :e, "perl6 file exists";
azawawi/perl6-file-which …/01-which.t :17:	ok $perl6.IO ~~ :x, "perl6 and is an executable";
azawawi/perl6-file-which …/02-win32.t :18:	ok $path.IO ~~ :e, sprintf("Path '%s' is found", $path);
azawawi/perl6-file-which …/03-export.t :13:	ok $perl6.IO ~~ :e, "perl6 file exists";
azawawi/perl6-file-which …/03-export.t :17:	ok $perl6.IO ~~ :x, "perl6 and is an executable";
azawawi/perl6-file-which …/04-simple.t :24:	if $*KERNEL ~~ 'linux' {
azawawi/perl6-file-which …/05-all.t :16:	if $*KERNEL ~~ 'linux' {
azawawi/perl6-file-which …/05-all.t :26:	if $*KERNEL ~~ 'linux' {
azawawi/perl6-gtk-scintilla …/LexMarkdown.cxx :227:	if (sc.atLineStart && sc.Match("~~~")) {
azawawi/perl6-gtk-scintilla …/LexMarkdown.cxx :236:	if (sc.Match("~~") && sc.chPrev != ' ') {
azawawi/perl6-gtk-scintilla …/LexMarkdown.cxx :263:	else if (sc.Match("~~~")) {
azawawi/perl6-gtk-scintilla …/LexMarkdown.cxx :404:	else if (sc.Match("~~") && sc.GetRelative(2) != ' ' && AtTermStart(sc)) {
azawawi/perl6-gtk-scintilla …/typesystem_ScintillaEdit.xml.template :13:	<!-- ~~Autogenerated end of section automatically generated from Scintilla.iface -->
azawawi/perl6-gtk-scintilla …/FileGenerator.py :110:	line.lstrip().startswith(commentPrefix + "~~Autogenerated"):
azawawi/perl6-magickwand …/02-magickwand.t :29:	ok $temp-file-name.IO ~~ :e, "write() output file exists";
azawawi/perl6-memoize …/Memoize.pm6 :9:	my $options = ($memoized ~~ Pair) || ($memoized ~~ List)
azawawi/perl6-net-curl …/Curl.pm6 :253:	die "Invalid type to write data to. Use Str|Buf|IO::Handle" if $value !~~ Str|Buf|IO::Handle ;
azawawi/perl6-net-curl …/Curl.pm6 :255:	my Bool $is_str = $value ~~ Str ;
azawawi/perl6-net-curl …/Curl.pm6 :256:	my Bool $is_file = $value ~~ IO::Handle;
azawawi/perl6-net-curl …/Curl.pm6 :257:	my Bool $is_buf = $value ~~ Buf ;
azawawi/perl6-net-curl …/NativeCall.pm6 :1384:	die "Invalid type to write data to. Use Str|Buf|IO::Handle" if $value !~~ Str|Buf|IO::Handle ;
azawawi/perl6-net-curl …/NativeCall.pm6 :1386:	my Bool $is_str = $value ~~ Str ;
azawawi/perl6-net-curl …/NativeCall.pm6 :1387:	my Bool $is_file = $value ~~ IO::Handle;
azawawi/perl6-net-curl …/NativeCall.pm6 :1388:	my Bool $is_buf = $value ~~ Buf ;
azawawi/perl6-net-curl …/03-easy_encoding.t :17:	ok $response ~~ / 'é' /, "got response" or die :$response.perl;
azawawi/perl6-opencv …/compile.pl6 :10:	$dest_folder.IO.mkdir unless $dest_folder.IO ~~ :e;
azawawi/perl6-parse-selenese …/02-test-case.t :61:	ok($test_case ~~ Parse::Selenese::TestCase);
azawawi/perl6-parse-selenese …/02-test-case.t :66:	ok($test_case.commands[$_] ~~ Parse::Selenese::Command, "index #$_ is a command");
azawawi/perl6-parse-selenese …/03-test-suite.t :34:	ok($test_suite ~~ Parse::Selenese::TestSuite);
azawawi/perl6-parse-selenese …/03-test-suite.t :38:	ok($test_suite.test_case_defs[$_] ~~ Parse::Selenese::TestCaseDef, "index #$_ is a test case definition");
azawawi/perl6-selenium-webdriver …/blackberry.t :16:	ok $driver.title ~~ / 'Google' /, "Google in title";
azawawi/perl6-selenium-webdriver …/blackberry.t :17:	ok $driver.url ~~ / ^ 'http://' .+? 'google'/, "google.com in url";
azawawi/perl6-selenium-webdriver …/blackberry.t :32:	ok $filename.IO ~~ :e, "$filename exists";
azawawi/perl6-selenium-webdriver …/chrome.t :16:	ok $driver.title ~~ / 'Google' /, "Google in title";
azawawi/perl6-selenium-webdriver …/chrome.t :17:	ok $driver.url ~~ / ^ 'http://' .+? 'google'/, "google.com in url";
azawawi/perl6-selenium-webdriver …/chrome.t :32:	ok $filename.IO ~~ :e, "$filename exists";
azawawi/perl6-selenium-webdriver …/firefox.t :16:	ok $driver.title ~~ / 'Google' /, "Google in title";
azawawi/perl6-selenium-webdriver …/firefox.t :17:	ok $driver.url ~~ / ^ 'http' 's'? '://' .+? 'google'/, "google.com in url";
azawawi/perl6-selenium-webdriver …/firefox.t :32:	ok $filename.IO ~~ :e, "$filename exists";
azawawi/perl6-selenium-webdriver …/phantomjs-multiple.t :26:	ok($driver.title ~~ / 'Google' /, "Google in title");
azawawi/perl6-selenium-webdriver …/phantomjs-multiple.t :27:	ok($driver.url ~~ / ^ 'http://' .+? 'google'/, "google.com in url");
azawawi/perl6-selenium-webdriver …/phantomjs.t :16:	ok $driver.title ~~ / 'Google' /, "Google in title";
azawawi/perl6-selenium-webdriver …/phantomjs.t :17:	ok $driver.url ~~ / ^ 'http://' .+? 'google'/, "google.com in url";
azawawi/perl6-selenium-webdriver …/phantomjs.t :32:	ok $filename.IO ~~ :e, "$filename exists";
azawawi/perl6-selenium-webdriver …/02-phantomjs.t :56:	ok $sessions ~~ Array, "Sessions is an array";
azawawi/perl6-selenium-webdriver …/02-phantomjs.t :58:	ok $sessions[0]<id> ~~ Str, "And we have a s