Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created July 15, 2019 16:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/d2896cfa8e64dfff922c5b2eebb2d362 to your computer and use it in GitHub Desktop.
Save Whateverable/d2896cfa8e64dfff922c5b2eebb2d362 to your computer and use it in GitHub Desktop.
greppable6
File Code
BDUGGAN/Digest-SHA256-Native
…/README.md :15:
say sha256("The quick brown fox jumps over the lazy dog")».fmt('%02x').join;
BDUGGAN/Digest-SHA256-Native
…/Native.pm6 :21:
my $str = $hash.list».chr.join.lc;
CTILMES/BitEnum
…/BitEnum.pm6 :31:
method Str() { ~($.list()».key) }
CTILMES/DB-Pg
…/ArrayParser.pm6 :24:
method array($/) { make $<element>».made }
CTILMES/DB-Pg
…/ArrayParser.pm6 :33:
method quoted($/) { make $*converter.convert($*type, $<str>».made.join) }
CTILMES/GraphQL
…/Actions.pm :51:
make $<VariableDefinition>».made;
CTILMES/GraphQL
…/Actions.pm :65:
make $<Selection>».made
CTILMES/GraphQL
…/Actions.pm :163:
make $<str>».made.join;
CTILMES/GraphQL
…/Actions.pm :216:
make %( $<ObjectField>».made );
CTILMES/GraphQL
…/Actions.pm :264:
make $<Field>».made;
CTILMES/GraphQL
…/Actions.pm :337:
make $<Value>».made;
CTILMES/GraphQL
…/Actions.pm :353:
make $<EnumValue>».made;
CTILMES/GraphQL
…/Actions.pm :400:
make $<ArgumentDefinition>».made;
CTILMES/GraphQL
…/Actions.pm :426:
make $<InputField>».made;
CTILMES/GraphQL
…/Compare.pm :19:
$l.possibleTypes».name eqv $r.possibleTypes».name;
CTILMES/GraphQL
…/Compare.pm :28:
$l.interfaces».name eqv $r.interfaces».name;
CTILMES/GraphQL
…/Compare.pm :36:
$l.possibleTypes».name eqv $r.possibleTypes».name;
CTILMES/GraphQL
…/Types.pm :17:
$!description = $<Comment>».made.join(' ');
CTILMES/GraphQL
…/Types.pm :245:
"union $.name = { (@!possibleTypes».name).join(' | ') }\n";
CTILMES/GraphQL
…/Types.pm :277:
('implements ' ~ (@!interfaces».name).join(', ') ~ ' '
CTILMES/LibGit2
…/14-branch.t :38:
is set($repo.branch-list».branch-name), set(<master abranch>), 'branch-list';
CTILMES/LibGit2
…/14-branch.t :48:
is set($repo.branch-list».branch-name), set(<master newbranch>), 'branch-list';
FRITH/File-Metadata-Libextractor
…/raw-extract.p6 :21:
»~» @args)».say;
FRITH/File-Metadata-Libextractor
…/Raw.pm6 :52:
»~» @args)».say;
FRITH/Image-Libexif
…/README.md :26:
say @tags».keys.flat.elems ~ ' tags found';
FRITH/Image-Libexif
…/alltags.p6 :12:
say @tags».keys.flat.elems ~ ' tags found';
FRITH/Image-Libexif
…/Libexif.pm6 :305:
say @tags».keys.flat.elems ~ ' tags found';
FRITH/Image-Libexif
…/02-oo.t :32:
cmp-ok $e4.alltags».keys.flat.elems, '==', 54, 'loaded tags';
FRITH/Image-Libexif
…/02-oo.t :53:
my $numkeys = @alltags».keys.flat.elems;
FRITH/Image-QRCode
…/qrimage.p6 :21:
.map({ $_ xx 10 }))».map({ $_ xx 3, 255 }).flat;
FRITH/Math-FFT-Libfftw3
…/README.md :19:
my @in = (0, π/100 … 2*π)».sin;
FRITH/Math-FFT-Libfftw3
…/README.md :20:
put @in».Complex».round(10⁻¹²); # print the original array as complex values rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/README.md :26:
put @outr».round(10⁻¹²); # print the backward transform output rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/README.md :42:
put @outr».round(10⁻¹²);
FRITH/Math-FFT-Libfftw3
…/1Dtransform.p6 :6:
my @in = (0, π/100 … 2*π)».sin;
FRITH/Math-FFT-Libfftw3
…/1Dtransform.p6 :7:
put @in».Complex».round(10⁻¹²); # print the original array as complex values rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/1Dtransform.p6 :13:
put @outr».round(10⁻¹²); # print the backward transform output rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/2Dtransform.p6 :13:
put @outr».round(10⁻¹²);
FRITH/Math-FFT-Libfftw3
…/MathMatrix.p6 :15:
say @outr».round(10⁻¹²);
FRITH/Math-FFT-Libfftw3
…/benchmark1.p6 :11:
my Complex @data = (1..6)».Complex;
FRITH/Math-FFT-Libfftw3
…/benchmark1.p6 :19:
my $in = CArray[num64].new: (1..6)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/benchmark1.p6 :29:
my Complex @data1 = (1..10_000)».Complex;
FRITH/Math-FFT-Libfftw3
…/benchmark1.p6 :35:
my $in1 = CArray[num64].new: (1..10_000)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/benchmark2.p6 :8:
my $in = CArray[num64].new: (1..6)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/benchmark2.p6 :13:
$in = CArray[num64].new: (1..6)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/benchmark2.p6 :28:
$in = CArray[num64].new: (1..6)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/benchmark2.p6 :43:
$in = CArray[num64].new: (1..6)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/C2C.pm6 :66:
@!in := CArray[num64].new: @data.map(|*)».reals.List.flat;
FRITH/Math-FFT-Libfftw3
…/C2C.pm6 :69:
@!in := CArray[num64].new: (@data Z 0 xx @data.elems).flat».Num;
FRITH/Math-FFT-Libfftw3
…/C2C.pm6 :169:
my @in = (0, π/100 … 2*π)».sin;
FRITH/Math-FFT-Libfftw3
…/C2C.pm6 :170:
put @in».Complex».round(10⁻¹²); # print the original array as complex values rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/C2C.pm6 :176:
put @outr».round(10⁻¹²); # print the backward transform output rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/C2C.pm6 :194:
put @outr».round(10⁻¹²);
FRITH/Math-FFT-Libfftw3
…/R2C.pm6 :70:
@!in := CArray[num64].new: @data».Num;
FRITH/Math-FFT-Libfftw3
…/R2C.pm6 :81:
@!in := CArray[num64].new: @data.map(|*)».reals.List.flat;
FRITH/Math-FFT-Libfftw3
…/R2C.pm6 :188:
my @in = (0, π/100 … 2*π)».sin;
FRITH/Math-FFT-Libfftw3
…/R2C.pm6 :189:
put @in».Complex».round(10⁻¹²); # print the original array as complex values rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/R2C.pm6 :195:
put @outr».round(10⁻¹²); # print the backward transform output rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/R2C.pm6 :213:
put @outr».round(10⁻¹²);
FRITH/Math-FFT-Libfftw3
…/R2R.pm6 :78:
@!in := CArray[num64].new: @data».Num;
FRITH/Math-FFT-Libfftw3
…/R2R.pm6 :173:
my @in = (0, π/100 … 2*π)».sin;
FRITH/Math-FFT-Libfftw3
…/R2R.pm6 :174:
put @in».round(10⁻¹²); # print the original array as complex values rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/R2R.pm6 :180:
put @outr».round(10⁻¹²); # print the backward transform output rounded to 10⁻¹²
FRITH/Math-FFT-Libfftw3
…/R2R.pm6 :198:
put @outr».round(10⁻¹²);
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :10:
my $in = CArray[num64].new: (1..6)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :15:
is-deeply $out.list».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :21:
-3e0, -5.196152422706632e0)».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :27:
is-deeply ($back.list »/» 6)[0, 2 … *]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :33:
is-deeply $in.list».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :39:
-3e0, -5.196152422706632e0)».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :45:
my $in = CArray[num64].new: (1..18)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :50:
is-deeply $out.list».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :53:
-27e0, -15.588457268119894e0, 0e0, 0e0, 0e0, 0e0, -27e0, -46.76537180435968e0, 0e0, 0e0, 0e0, 0e0)».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :58:
is-deeply ($back.list »/» 18)[0, 2 … *]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :65:
my $in = CArray[num64].new: (1..54)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :70:
is-deeply $out.list».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :77:
0e0, 0e0, 0e0, 0e0, 0e0, 0e0)».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :82:
is-deeply ($back.list »/» 54)[0, 2 … *]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :89:
my $in = CArray[num64].new: (1..54)».Complex».reals.flat;
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :95:
is-deeply $out.list».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :102:
0e0, 0e0, 0e0, 0e0, 0e0)».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/02-raw-c2c.t :107:
is-deeply ($back.list »/» 54)[0, 2 … *]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/03-raw-r2c.t :15:
is-deeply $out.list».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/03-raw-r2c.t :16:
(21e0, 0e0, -3e0, 5.196152422706632e0, -3e0, 1.7320508075688772e0, -3e0, 0e0)».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/03-raw-r2c.t :21:
is-deeply ($back.list »/» 6)[^6]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/04-raw-r2r.t :15:
is-deeply $out.list».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/04-raw-r2r.t :16:
(35e0, -10.47213595499958e0, 0e0, -1.5278640450004204e0, 0e0, -1e0)».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/04-raw-r2r.t :21:
is-deeply ($back.list »/» 10)[^6]».round(10⁻¹²), # n=6, 2(n-1) = 10
FRITH/Math-FFT-Libfftw3
…/04-raw-r2r.t :33:
is-deeply $out.list».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/04-raw-r2r.t :34:
(30.669003872744, -14.535649776006, 8.777722363639, -5.582313722177, 3.371022331653, -1.597704320731)».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/04-raw-r2r.t :39:
is-deeply ($back.list »/» 14)[^6]».round(10⁻¹²), # n=6, 2(n+1) = 14
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :28:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :34:
-3e0 + -5.196152422706632e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :37:
is-deeply @outreim».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :43:
-3e0, -5.196152422706632e0]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :46:
is-deeply @outnum».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :47:
[21e0, -3e0, -3e0, -3e0, -3e0, -3e0,]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :51:
is-deeply @outr».round(10⁻¹²)».Num, [1e0, 2e0, 3e0, 4e0, 5e0, 6e0], 'inverse transform - Complex output';
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :53:
is-deeply @outrreim».round(10⁻¹²), [1.0, 0.0, 2.0, 0.0, 3.0, 0.0, 4.0, 0.0, 5.0, 0.0, 6.0, 0.0],
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :56:
is-deeply @outrnum».round(10⁻¹²), [1.0, 2.0, 3.0, 4.0, 5.0, 6.0], 'inverse transform - Num output';
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :59:
is-deeply @out2».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :65:
-3e0 + -5.196152422706632e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :117:
my Math::FFT::Libfftw3::C2C $fft .= new: data => (1..6)».Complex;
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :121:
my @data = (1..6)».Complex;
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :149:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :167:
0e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :171:
is-deeply @outr».round(10⁻¹²), [1.0+0i, 2.0+0i … 18.0+0i], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :189:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :207:
0e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :211:
is-deeply @outr».round(10⁻¹²), [1.0+0i, 2.0+0i … 18.0+0i], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :225:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :243:
0e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :247:
is-deeply @outr».round(10⁻¹²), [1.0+0i, 2.0+0i … 18.0+0i], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :258:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :276:
0e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/05-c2c.t :280:
is-deeply @outr».round(10⁻¹²), [1.0+0i, 2.0+0i … 18.0+0i], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :24:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :28:
-3e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :31:
is-deeply @outreim».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :35:
-3e0, 0e0]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :38:
is-deeply @outnum».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :39:
[21e0, -3e0, -3e0, -3e0]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :43:
is-deeply @outr».round(10⁻¹²)».Num, [1e0, 2e0, 3e0, 4e0, 5e0, 6e0], 'inverse transform - Complex output';
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :45:
is-deeply @outrnum».round(10⁻¹²), [1.0, 2.0, 3.0, 4.0, 5.0, 6.0], 'inverse transform - Num output';
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :48:
is-deeply @out2».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :52:
-3e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :123:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :135:
0e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :139:
is-deeply @outr».round(10⁻¹²), [1.0, 2.0 … 18.0], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :156:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :168:
0e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :172:
is-deeply @outr».round(10⁻¹²), [1.0, 2.0 … 18.0], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :185:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :197:
0e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :201:
is-deeply @outr».round(10⁻¹²), [1.0, 2.0 … 18.0], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :212:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :224:
0e0 + 0e0i]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/06-r2c.t :228:
is-deeply @outr».round(10⁻¹²), [1.0, 2.0 … 18.0], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :34:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :35:
[21, -3, -3, -3, 1.732050807569, 5.196152422707]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :39:
is-deeply @outr».round(10⁻¹²)».Num, [1e0, 2e0, 3e0, 4e0, 5e0, 6e0], 'r2r inverse transform';
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :42:
is-deeply @out2».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :43:
[21, -3, -3, -3, 1.732050807569, 5.196152422707]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :114:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :116:
15.58845726812, 0, 0, 46.76537180436, 0, 0]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :120:
is-deeply @outr».round(10⁻¹²), [1.0, 2.0 … 18.0], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :137:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :139:
15.58845726812, 0, 0, 46.76537180436, 0, 0]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :143:
is-deeply @outr».round(10⁻¹²), [1.0, 2.0 … 18.0], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :156:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :158:
15.58845726812, 0, 0, 46.76537180436, 0, 0]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :162:
is-deeply @outr».round(10⁻¹²), [1.0, 2.0 … 18.0], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :173:
is-deeply @out».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :175:
15.58845726812, 0, 0, 46.76537180436, 0, 0]».round(10⁻¹²),
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :179:
is-deeply @outr».round(10⁻¹²), [1.0, 2.0 … 18.0], 'inverse transform';
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :191:
my @in = (-π, -π + π/10 … π)».sin;
FRITH/Math-FFT-Libfftw3
…/07-r2r.t :198:
is-deeply @outr».round(10⁻¹²), @in».round(10⁻¹²), 'r2r inverse transform';
HANENKAMP/ArrayHash
…/ArrayHash.pm6 :658:
method values() returns List:D { @!array».value.List }
HANENKAMP/ArrayHash
…/ArrayHash.pm6 :659:
method keys() returns List:D { @!array».key.List }
HANENKAMP/ArrayHash
…/ArrayHash.pm6 :661:
method kv() returns List:D { @!array».kv.List }
HANENKAMP/DOM-Tiny
…/CSS.pm6 :303:
make any(|$<joiner>».made);
HANENKAMP/DOM-Tiny
…/CSS.pm6 :313:
$<node-match>».made,
HANENKAMP/DOM-Tiny
…/CSS.pm6 :314:
$<join-op>».Str».trim,
HANENKAMP/DOM-Tiny
…/CSS.pm6 :321:
make all(|$<selector>».made);
HANENKAMP/DOM-Tiny
…/HTML.pm6 :306:
multi method content(TextNode:D: Node:D @children) { $!text = [~] @children».Str }
HANENKAMP/DOM-Tiny
…/HTML.pm6 :319:
multi method content(Comment:D: Node:D @children) { $!comment = [~] @children».Str }
HANENKAMP/DOM-Tiny
…/HTML.pm6 :329:
multi method content(Doctype:D: Node:D @children) { $!doctype = [~] @children».Str }
HANENKAMP/DOM-Tiny
…/HTML.pm6 :339:
multi method content(PI:D: Node:D @children) { $!pi = [~] @children».Str }
HANENKAMP/DOM-Tiny
…/HTML.pm6 :365:
$result ~= [~] gather for %!attr.sort».kv -> ($key, $value) {
HANENKAMP/DOM-Tiny
…/HTML.pm6 :460:
for $<ml-token>».made -> %markup {
HANENKAMP/DOM-Tiny
…/HTML.pm6 :583:
attr => Hash.new($<attr>».made.grep(*.defined)),
HANENKAMP/DOM-Tiny
…/HTML.pm6 :592:
attr => Hash.new($<attr>».made.grep(*.defined)),
HANENKAMP/DOM-Tiny
…/HTML.pm6 :602:
attr => Hash.new($<attr>».made.grep(*.defined)),
HANENKAMP/DOM-Tiny
…/011-dom-basics.t :10:
my $div := $dom.find('div[id]')».text;
HANENKAMP/DOM-Tiny
…/012-dom-tap.t :8:
is-deeply $dom.find('[id]')».attr('id'), <a b>,
HANENKAMP/DOM-Tiny
…/016-dom-basic-nav.t :73:
is-deeply $dom.at('simple').ancestors».tag, ('foo',),
HANENKAMP/DOM-Tiny
…/017-dom-nodes.t :61:
is $dom.child-nodes.grep({ .type ~~ PI })».remove.first.type, Root, 'right type';
HANENKAMP/DOM-Tiny
…/018-dom-modify-nodes.t :34:
is $dom.at('b').child-nodes.first.ancestors».tag.join(','),
HANENKAMP/DOM-Tiny
…/022-dom-deep-nesting.t :41:
is-deeply $dom.at('p').ancestors».tag,
HANENKAMP/DOM-Tiny
…/029-dom-replace.t :28:
$dom.find('p')».replace('');
HANENKAMP/DOM-Tiny
…/029-dom-replace.t :42:
is $dom.find('p')».remove.first.root.at('b').text, 'whatever',
HANENKAMP/DOM-Tiny
…/029-dom-replace.t :49:
is $dom.find(':not(div):not(i):not(u)')».strip.first.root,
HANENKAMP/DOM-Tiny
…/029-dom-replace.t :54:
$dom.at('div').find('div')».strip;
HANENKAMP/DOM-Tiny
…/031-dom-mixed-search-and-tree-walk.t :16:
my Str @data = gather for $dom.find('table tr')».children.flat -> $td {
HANENKAMP/DOM-Tiny
…/032-dom-rss.t :35:
is-deeply $dom.at('title').ancestors».tag, <channel rss>,
HANENKAMP/DOM-Tiny
…/112-dom-deep-copy.t :13:
$dom1.at('p')».content('nix');
HANENKAMP/DOM-Tiny
…/112-dom-deep-copy.t :21:
$dom2.at('p')».content('nix');
HANENKAMP/Email-Address
…/Parser.pm6 :262:
method mailbox-list($/) { make $<mailbox>».made // $<obs-mbox-list>.made }
HANENKAMP/Email-Address
…/Parser.pm6 :263:
method address-list($/) { make $<address>».made // $<obs-addr-list>.made }
HANENKAMP/Email-Address
…/Parser.pm6 :278:
method phrase($/) { make [~] @($<word>».made) // $<obs-phrase>.made }
HANENKAMP/Email-Address
…/Parser.pm6 :301:
make ($<head>.made, |$<tail>».made);
HANENKAMP/HTTP-Headers
…/Headers.pm6 :95:
my @pairs = try { self.prepared-values».comb(/ <-[ ; ]>+ /)».grep(/'='/).flat };
HANENKAMP/HTTP-Headers
…/Headers.pm6 :251:
for flat @headers».kv -> $k, $v {
HANENKAMP/HTTP-Headers
…/Headers.pm6 :272:
for flat @headers».kv, %headers.kv -> $k, $v {
HANENKAMP/HTTP-Headers
…/headers.t :105:
is-deeply([ $h.list».name ], [
HANENKAMP/HTTP-Request-Supply
…/Test.pm6 :70:
for @exp».key -> $exp-key {
HANENKAMP/HTTP-Supply
…/Test.pm6 :70:
for @exp».key -> $exp-key {
HANENKAMP/Hash-MultiValue
…/README.md :23:
say %mv.all-pairs».fmt("%s: %s").join("\n");
HANENKAMP/Hash-MultiValue
…/MultiValue.pm6 :21:
say %mv.all-pairs».fmt("%s: %s").join("\n");
HANENKAMP/Hash-MultiValue
…/MultiValue.pm6 :305:
@(@all-pairs.grep({ .defined && .key eqv $key })».value)
HANENKAMP/Hash-MultiValue
…/MultiValue.pm6 :378:
method all-kv { flat @!all-pairs».kv }
HANENKAMP/Hash-MultiValue
…/MultiValue.pm6 :380:
method all-antipairs { flat @!all-pairs».invert }
HANENKAMP/Hash-MultiValue
…/MultiValue.pm6 :381:
method all-invert { flat @!all-pairs».antipair }
HANENKAMP/Hash-MultiValue
…/MultiValue.pm6 :382:
method all-keys { flat @!all-pairs».key }
HANENKAMP/Hash-MultiValue
…/MultiValue.pm6 :383:
method all-values { flat @!all-pairs».value }
HANENKAMP/IO-Glob
…/Glob.pm6 :127:
{ make $<term>».made }
HANENKAMP/ModelDB
…/DBModelHOW.pm6 :48:
$model.^attributes.grep(ModelDB::Column)».column-name;
HANENKAMP/ModelDB
…/Table.pm6 :273:
my @set-names = self.escaped-columns(@settings».key);
HANENKAMP/ModelDB
…/Table.pm6 :274:
my @set-bindings = @settings».value;
HANENKAMP/Path-Router
…/Router.pm6 :25:
for (|@pairs, |%pairs)».kv -> (Str $path, %options) {
HANENKAMP/Path-Router
…/Router.pm6 :51:
for (|@pairs, |%pairs)».kv -> (Str $path, %options) {
HANENKAMP/Smack
…/Smack.pm6 :154:
my $charset = $ct.value.comb(/<-[;]>/)».trim.first(*.starts-with("charset="));
HANENKAMP/Smack
…/CGI.pm6 :59:
my $charset = $ct.value.comb(/<-[;]>/)».trim.first(*.starts-with("charset="));
HANENKAMP/Smack
…/ContentMD5.pm6 :24:
Digest::MD5::md5($_).list».fmt('%02x').join;
HANENKAMP/Template-Anti
…/README.md :25:
# $dom('title, h1')».content(.<title>);
HANENKAMP/Template-Anti
…/README.md :26:
# $dom('h1')».attr(title => .<motto>);
HANENKAMP/Template-Anti
…/README.md :27:
# $dom('ul.people li:not(:first-child)')».remove;
HANENKAMP/Template-Anti
…/README.md :87:
$dom('title')».content($title);
HANENKAMP/Template-Anti
…/README.md :327:
$dom('title, h1')».content(.<title>);
HANENKAMP/Template-Anti
…/README.md :328:
$dom('h1')».attr(title => .<motto>);
HANENKAMP/Template-Anti
…/README.md :329:
$dom('ul.people li:not(:first-child)')».remove;
HANENKAMP/Template-Anti
…/README.md :359:
$dom('title, h1')».content(.<title>);
HANENKAMP/Template-Anti
…/README.md :360:
$dom('h1')».attr(title => .<motto>);
HANENKAMP/Template-Anti
…/README.md :361:
$dom('ul.people li:not(:first-child)')».remove;
HANENKAMP/Template-Anti
…/Anti.pm6 :27:
# $dom('title, h1')».content(.<title>);
HANENKAMP/Template-Anti
…/Anti.pm6 :28:
# $dom('h1')».attr(title => .<motto>);
HANENKAMP/Template-Anti
…/Anti.pm6 :29:
# $dom('ul.people li:not(:first-child)')».remove;
HANENKAMP/Template-Anti
…/Anti.pm6 :105:
$dom('title')».content($title);
HANENKAMP/Template-Anti
…/Anti.pm6 :399:
@codes».(self, $dom, c);
HANENKAMP/Template-Anti
…/Anti.pm6 :404:
@codes».($dom, c);
HANENKAMP/Template-Anti
…/Anti.pm6 :568:
$dom('title, h1')».content(.<title>);
HANENKAMP/Template-Anti
…/Anti.pm6 :569:
$dom('h1')».attr(title => .<motto>);
HANENKAMP/Template-Anti
…/Anti.pm6 :570:
$dom('ul.people li:not(:first-child)')».remove;
HANENKAMP/Template-Anti
…/Anti.pm6 :600:
$dom('title, h1')».content(.<title>);
HANENKAMP/Template-Anti
…/Anti.pm6 :601:
$dom('h1')».attr(title => .<motto>);
HANENKAMP/Template-Anti
…/Anti.pm6 :602:
$dom('ul.people li:not(:first-child)')».remove;
HANENKAMP/Template-Anti
…/NodeSet.pm6 :217:
@!nodes».remove;
HANENKAMP/Template-Anti
…/Selector.pm6 :136:
my @ancestors = @($/<ancestors>)».made;
HANENKAMP/Template-Anti
…/Selector.pm6 :170:
my @family = @($/<family>)».made;
HANENKAMP/Template-Anti
…/Selector.pm6 :193:
my @siblings = @($/<siblings>)».made;
HANENKAMP/Template-Anti
…/Template.pm6 :258:
%attribs.sort».kv.flatmap: -> ($k, $v) {
HANENKAMP/Template-Anti
…/basic.t :9:
$at('title, h1')».content($title);
HANENKAMP/Template-Anti
…/basic.t :10:
$at('h1')».attr(title => $motto);
HANENKAMP/Template-Anti
…/basic.t :11:
$at('ul.people li:not(:first-child)')».remove;
HANENKAMP/Template-Anti
…/library.t :15:
$at('title, h1')».content($title);
HANENKAMP/Template-Anti
…/library.t :16:
$at('h1')».attr(title => $motto);
HANENKAMP/Template-Anti
…/library.t :17:
$at('ul.people li:not(:first-child)')».remove;
HANENKAMP/Template-Anti
…/basic-embed.html :13:
$at('title, h1')».content(.<title>);
HANENKAMP/Template-Anti
…/basic-embed.html :14:
$at('h1')».attr(title => .<motto>);
HANENKAMP/Template-Anti
…/basic-embed.html :15:
$at('ul.people li:not(:first-child)')».remove;
HMBRAND/Text-CSV
…/Notes :1:
Str.^methods».name.grep: /uni/
HMBRAND/Text-CSV
…/Notes :3:
$ p6 -e'Str.^methods».name.say'
HMBRAND/Text-CSV
…/Notes :9:
$ p6 -e'Num.^methods».name.say'
HMBRAND/Text-CSV
…/Notes :17:
$ p6 -e'Bool.^methods».name.say'
HMBRAND/Text-CSV
…/CSV.pm :396:
method hash () { hash $!csv.column_names Z=> @!fields».Str; }
HMBRAND/Text-CSV
…/CSV.pm :399:
method strings () { @!fields».Str; }
HMBRAND/Text-CSV
…/CSV.pm :920:
self.fields».Str.Array;
HMBRAND/Text-CSV
…/60_samples.t :30:
is-deeply ($csv.strings, @olist».text, "As strings");
HMBRAND/Text-CSV
…/75_hashref.t :81:
is-deeply ([%gth<c_foo foo zebra>».Str],
HMBRAND/Text-CSV
…/test-t.pl :11:
$sum = [+] $csv.getline_all($*IN)».map(*.elems);
HMBRAND/Text-CSV
…/test-tuxic.pl :13:
$sum = [+] $csv.getline_all ($*IN)».map(*.elems);
HOLLI/Color-Scheme
…/.nav-marker-rules :4:
#marker-rule: /sub\s+(infix|postfix|postcircumfix|prefix):«([\S]+)».*{/||%1 %2||Operator
JGOFF/Perl6-Parser
…/999-regression.t :119:
bag +« flat @a».comb: 1
JGOFF/Perl6-Parser
…/rosetta-1.t :98:
so (sum @b».grep(/' '/,:k).grep(/\d/, :kv)) %% 2;
JGOFF/Perl6-Parser
…/rosetta-1.t :101:
sub row (@row) { '│' ~ (join '│', @row».&center) ~ '│' }
JGOFF/Perl6-Parser
…/rosetta-1.t :201:
sub row (@row) { '│' ~ (join '│', @row».&center) ~ '│' }
JGOFF/Perl6-Parser
…/rosetta-1.t :264:
sub save () { join '|', flat @board».list }
JGOFF/Perl6-Parser
…/rosetta-1.t :287:
constant @digits = (1..9).roll(4)».Str;
JGOFF/Perl6-Parser
…/rosetta-a.t :297:
my @widths = roundrobin(|@lines).map(*».chars.max);
JGOFF/Perl6-Parser
…/rosetta-a.t :426:
sub amb (*@c) { gather @c».&dethunk }
JGOFF/Perl6-Parser
…/rosetta-a.t :490:
%anagram.values.grep( { +@($_) >= $max } )».join(' ')».say;
JGOFF/Perl6-Parser
…/rosetta-a.t :503:
.flat».value # get all groups of anagrams in the group just selected
JGOFF/Perl6-Parser
…/rosetta-a.t :557:
say @array».&function;
JGOFF/Perl6-Parser
…/rosetta-a.t :581:
# $png.set: |((cis( Θ / π ) * Θ).reals »+« ($w/2, $h/2))».Int, 255, 0, 255;
JGOFF/Perl6-Parser
…/rosetta-b.t :264:
sub benford(@a) { bag +« flat @a».comb: /<( <[ 1..9 ]> )> <[ , . \d ]>*/ }
JGOFF/Perl6-Parser
…/rosetta-b.t :543:
encode reduce * * 256 + * , 0, ($hash, $checksum)».list
JGOFF/Perl6-Parser
…/rosetta-b.t :709:
my @b = $s.ords».fmt("%07b")».comb;
JGOFF/Perl6-Parser
…/rosetta-b.t :715:
my @b = $b.list».fmt("%08b")».comb;
JGOFF/Perl6-Parser
…/rosetta-b.t :718:
return [~] @b».chr;
JGOFF/Perl6-Parser
…/rosetta-b.t :806:
when 1 { '{' X~ $_».&crosswalk X~ '}' }
JGOFF/Perl6-Parser
…/rosetta-b.t :807:
default { $_».&crosswalk }
JMASLAK/Net-BGP
…/bgpmon.pl6 :272:
say $line ~ @errors».key.join(' ');
JMASLAK/Net-BGP
…/AS-List.pm6 :67:
{ make $<AS-LIST>».made }
JMASLAK/Net-BGP
…/AS-List.pm6 :74:
{ make Net::BGP::AS-List.from-list($<ASN>».Int, :!ordered, :$asn32) }
JMASLAK/Net-BGP
…/AS-List.pm6 :79:
{ make Net::BGP::AS-List.from-list($<ASN>».Int, :ordered, :$asn32) }
JMASLAK/Net-BGP
…/IP.pm6 :42:
return buf8.new( $ip.split('.')».Int );
JMASLAK/Net-BGP
…/IP.pm6 :83:
return :16(@*by16.map({:16(~$_)})».fmt("%04x").join);
JMASLAK/Net-BGP
…/IP.pm6 :172:
return @*by16.map({:16(~$_)})».fmt("%04x").join(':');
JMASLAK/Net-BGP
…/IP.pm6 :178:
my $compact = @*by16.map({:16(~$_)})».fmt("%x").join(':');
JMASLAK/Net-BGP
…/Update.pm6 :116:
push @lines, "WITHDRAWN: " ~ $withdrawn».Str ==> join(" ");
JMASLAK/Net-BGP
…/AS-Path.pm6 :42:
@$aslist».check; # Validate all are proper
JMASLAK/Net-BGP
…/AS-Path.pm6 :105:
return @(self.as-lists».path-length).sum;
JMASLAK/Net-BGP
…/AS-Path.pm6 :108:
method as-path(-->Str:D) { (join " ", self.as-lists».Str) }
JMASLAK/Net-BGP
…/AS-Path.pm6 :132:
my @array = flat self.as-lists».asns;
JMASLAK/Net-BGP
…/AS4-Path.pm6 :41:
@$aslist».check; # Validate all are proper
JMASLAK/Net-BGP
…/AS4-Path.pm6 :104:
return @(self.as-lists».path-length).sum;
JMASLAK/Net-BGP
…/AS4-Path.pm6 :107:
method as4-path(-->Str:D) { (join " ", self.as-lists».Str) }
JMASLAK/Net-BGP
…/AS4-Path.pm6 :110:
my @array = self.as-lists».asns;
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :159:
return $buf».fmt("%02x").join;
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :199:
my Str:D @return = $buf».fmt("%02x").join;
JMASLAK/Net-BGP
…/MP-Unreachable.pm6 :120:
@return.push: $buf».fmt("%02x").join;
JMASLAK/Net-BGP
…/80-Validator-Aggregation.t :52:
is @errors».key, «AFMIX AGGR_ASN_DOC AGGR_ID_BOGON», "Errors Found";
JMASLAK/Net-BGP
…/80-Validator-Aggregation.t :85:
is @errors».key, «AGGR_ASN_RESERVED», "First message has AGGR_ASN_RESERVED";
JMASLAK/Net-BGP
…/80-Validator-Aggregation.t :113:
is @errors».key, «AGGR_ASN_PRIVATE», "Second message has AGGR_ASN_PRIVATE";
JMASLAK/Net-BGP
…/80-Validator-Aggregation.t :141:
is @errors».key, «AGGR_ASN_TRANS», "Third message has AGGR_ASN_TRANS";
JMASLAK/Net-BGP
…/81-Validator-AS-Path.t :44:
is @errors».key, «AS4_PEER_SENT_AS4_PATH», "Errors Found";
JMASLAK/Net-BGP
…/81-Validator-AS-Path.t :74:
is @errors».key, «AS_PATH_DOC», "Errors Found";
JMASLAK/Net-BGP
…/81-Validator-AS-Path.t :104:
is @errors».key, «AS_PATH_PRIVATE», "Errors Found";
JMASLAK/Net-BGP
…/81-Validator-AS-Path.t :134:
is @errors».key, «AS_PATH_RESERVED», "Errors Found";
JMASLAK/Net-BGP
…/81-Validator-AS-Path.t :164:
is @errors».key, «AS_PATH_TRANS», "Errors Found";
JNTHN/cro
…/Runner.pm6 :151:
|| $cro-file.links».service ⊆ %services.keys {
KAIEPI/Digest-BubbleBabble
…/BubbleBabble.pm6 :11:
constant VOWELS = <a e i o u y>».ord;
KAIEPI/Digest-BubbleBabble
…/BubbleBabble.pm6 :12:
constant CONSONANTS = <b c d f g h k l m n p r s t v z x>».ord;
LEONT/Getopt-Long
…/Long.pm :154:
{ make @<name>».Str.list }
LEONT/TAP
…/TAP.pm :265:
make TAP::Sub-Test.new(:raw(~$/), :entries(@<sub-entry>».made), |self!make_test($<test>));
LEONT/TAP
…/TAP.pm :390:
$!longest = @names ?? @names».chars.max !! 12;
LEONT/TAP
…/TAP.pm :961:
@working».<parser>».kill;
MORITZ/JSON-Tiny
…/Tiny.pm :35:
$_.Str.encode('utf-16').values».fmt('\u%04x').join
MORITZ/Math-Model
…/spring-freq.pl :32:
my @ampl = (%h<time>.flat Z=> %h<height>.flat).grep({.key >= 50})».value;
MORITZ/Math-Model
…/spring.pl :31:
my @ampl = (%h<time>.flat Z=> %h<height>.flat).grep({.key >= 30})».value;
MORITZ/Math-Model
…/Model.pm :34:
&c.signature.params».name».substr(1).grep({ $_ ne '_'});
MORITZ/Math-RungeKutta
…/RungeKutta.pm :83:
my $err = ([max] (@y-halfstep »-« @y-new)».abs) / $step;
SAMCV/Git-Log
…/Log.pm6 :77:
my $format = '--pretty=format:' ~ @fields».value.join($column-sep) ~ $commit-sep;
SAMCV/Git-Log
…/Log.pm6 :90:
my %thing = %( @fields».key Z=> $entry.split($column-sep) );
SKAJI/App-Mi6
…/INI.pm6 :28:
my %hash = $<sections>».ast.hash;
SKAJI/App-Mi6
…/INI.pm6 :32:
method toplevel ($/) { make $<keyval>».ast }
SKAJI/App-Mi6
…/INI.pm6 :33:
method sections ($/) { make $<header><text>.Str => $<keyval>».ast }
TYIL/App-Assixt
…/Bootstrap.pm6 :15:
my $formatted-type = $type.split("-", :g)».tclc.join();
TYIL/App-Assixt
…/Meta.pm6 :24:
my $formatted-type = $type.split("-", :g)».tclc.join();
TYIL/App-Assixt
…/Touch.pm6 :13:
my $formatted-type = $type.split("-", :g)».tclc.join();
UFOBAT/Temp-Path
…/Path.pm6 :32:
).join.encode('utf8-c8').&sha256».fmt('%02X').join;
0racle/p6-Net-Netmask
…/README.md :158:
if ( any @blacklist».match($host) ) {
0racle/p6-Net-Netmask
…/README.md :244:
say $net2.nth(^2, :30bit :nets)».nth(^2);
0racle/p6-Net-Netmask
…/Netmask.pm6 :168:
if ( any @blacklist».match($host) ) {
0racle/p6-Net-Netmask
…/Netmask.pm6 :268:
say $net2.nth(^2, :30bit :nets)».nth(^2);
0racle/p6-Net-Netmask
…/01-basic.t :262:
is $net192.nth(^2, :30bit :nets)».nth(^2),
0racle/p6-Net-Netmask
…/02-doctest.t :76:
ok ( any @blacklist».match($host) ), "$host is blacklisted";
0racle/p6-Net-Netmask
…/02-doctest.t :127:
is $net2.nth(^2, :30bit :nets)».nth(^2),
AlexDaniel/orgsleep
…/bdf2json :43:
@bitmap.push: $conv.substr(0, $width).comb».Int».so.Array;
CurtTilmes/Perl6-GraphQL
…/Actions.pm :51:
make $<VariableDefinition>».made;
CurtTilmes/Perl6-GraphQL
…/Actions.pm :65:
make $<Selection>».made
CurtTilmes/Perl6-GraphQL
…/Actions.pm :163:
make $<str>».made.join;
CurtTilmes/Perl6-GraphQL
…/Actions.pm :216:
make %( $<ObjectField>».made );
CurtTilmes/Perl6-GraphQL
…/Actions.pm :264:
make $<Field>».made;
CurtTilmes/Perl6-GraphQL
…/Actions.pm :337:
make $<Value>».made;
CurtTilmes/Perl6-GraphQL
…/Actions.pm :353:
make $<EnumValue>».made;
CurtTilmes/Perl6-GraphQL
…/Actions.pm :400:
make $<ArgumentDefinition>».made;
CurtTilmes/Perl6-GraphQL
…/Actions.pm :426:
make $<InputField>».made;
CurtTilmes/Perl6-GraphQL
…/Compare.pm :19:
$l.possibleTypes».name eqv $r.possibleTypes».name;
CurtTilmes/Perl6-GraphQL
…/Compare.pm :28:
$l.interfaces».name eqv $r.interfaces».name;
CurtTilmes/Perl6-GraphQL
…/Compare.pm :36:
$l.possibleTypes».name eqv $r.possibleTypes».name;
CurtTilmes/Perl6-GraphQL
…/Types.pm :17:
$!description = $<Comment>».made.join(' ');
CurtTilmes/Perl6-GraphQL
…/Types.pm :245:
"union $.name = { (@!possibleTypes».name).join(' | ') }\n";
CurtTilmes/Perl6-GraphQL
…/Types.pm :277:
('implements ' ~ (@!interfaces».name).join(', ') ~ ' '
FCO/Test-Fuzz
…/Fuzz.pm6 :40:
(%funcs{@funcs}:v)».run-tests: |($_ with $runs)
FROGGS/p6-Digest-PSHA1
…/PSHA1.pm :40:
psha1($clientbytes, $serverbytes, $keysize).list».fmt("%02x").join;
FROGGS/p6-IDNA-Punycode
…/Punycode.pm :73:
warn @output».fmt('%04x') if $DEBUG;
Kaiepi/p6-Digest-BubbleBabble
…/BubbleBabble.pm6 :11:
constant VOWELS = <a e i o u y>».ord;
Kaiepi/p6-Digest-BubbleBabble
…/BubbleBabble.pm6 :12:
constant CONSONANTS = <b c d f g h k l m n p r s t v z x>».ord;
LLFourn/p6-CompUnit-Util
…/01-utils.t :14:
ok all-loaded()».short-name ~~ set('CompUnit::Util','NativeCall','Test'),
LLFourn/p6-OO-Schema
…/README.md :107:
say "pass me one of:\n" ~ Userland.children(:all)».^name.join("\n");
LLFourn/p6-OO-Schema
…/Schema.pm6 :44:
|self.^children, |(self.^children».children(:all) if $all);
LLFourn/p6-OO-Schema
…/Schema.pm6 :114:
submethod children(:$all) { flat self.^children,(|self.^children».children(:all) if $all) };
MadcapJake/Test-Lab
…/splits.pl6 :63:
([\,] @ls) Z (([\,] @ls[1..*].reverse)».reverse).reverse
Mouq/toml-pm6
…/Grammar.pm6 :72:
%table{.key} = .value for @<keyvalue>».ast;
Mouq/toml-pm6
…/Grammar.pm6 :82:
%table{.key} = .value for @<keyvalue>».ast;
Tux/CSV
…/Notes :1:
Str.^methods».name.grep: /uni/
Tux/CSV
…/Notes :3:
$ p6 -e'Str.^methods».name.say'
Tux/CSV
…/Notes :9:
$ p6 -e'Num.^methods».name.say'
Tux/CSV
…/Notes :17:
$ p6 -e'Bool.^methods».name.say'
Tux/CSV
…/CSV.pm :396:
method hash () { hash $!csv.column_names Z=> @!fields».Str; }
Tux/CSV
…/CSV.pm :399:
method strings () { @!fields».Str; }
Tux/CSV
…/CSV.pm :920:
self.fields».Str.Array;
Tux/CSV
…/60_samples.t :30:
is-deeply ($csv.strings, @olist».text, "As strings");
Tux/CSV
…/75_hashref.t :81:
is-deeply ([%gth<c_foo foo zebra>».Str],
Tux/CSV
…/test-t.pl :11:
$sum = [+] $csv.getline_all($*IN)».map(*.elems);
Tux/CSV
…/test-tuxic.pl :13:
$sum = [+] $csv.getline_all ($*IN)».map(*.elems);
Util/Perl6-Math-Quaternion
…/math_with_complex.t :9:
is-deeply( [$got.coeffs».Num], [@expected».Num], $reason );
ab5tract/Terminal-Print
…/attacks.p6 :333:
has @.symbols = (0x263F .. 0x2653).pick(*)».chr;
ab5tract/Terminal-Print
…/clock.p6 :10:
my $width = @lines».chars.max;
ab5tract/Terminal-Print
…/rpg-ui.p6 :551:
@rows.append: wrap-text($.w - 2, $spells, ' ')».fmt($body-row);
ab5tract/Terminal-Print
…/rpg-ui.p6 :720:
my $w = @lines».chars.max;
ab5tract/Terminal-Print
…/rpg-ui.p6 :1183:
has @.symbols = (0x263F .. 0x2653).pick(*)».chr;
ab5tract/Terminal-Print
…/tris.p6 :147:
my @xs = %minos{$mino}[$orientation]».[0];
bduggan/p6-digest-sha1-native
…/README.md :14:
say sha1("The quick brown fox jumps over the lazy dog")».fmt('%02x').join;
bduggan/p6-digest-sha1-native
…/Native.pm6 :21:
my $str = $hash.list».chr.join.lc;
bradclawsie/WebService-AWS-V4
…/V4.pm6 :176:
[~] $sha256.list».fmt: "%02x";
cedric-vincent/kains
…/Commandline.pm6 :72:
or ! all @callback-args».defined;
cedric-vincent/kains
…/Commandline.pm6 :89:
say "$_ { $p.callback.signature.params».name }" for $p.switches;
cedric-vincent/kains
…/Commandline.pm6 :104:
params => .callback.signature.params».name,
cjfields/bioperl6
…/Range.pm6 :92:
#$union_strand = 0 if any(@ranges».strand) != $union_strand;
cjfields/bioperl6
…/Range.t :255:
is(join(',', @sub1».Str), %subtract_tests{$set}{$st}[0], "subtract" );
cjfields/bioperl6
…/Range.t :256:
is(join(',', @sub2».Str), %subtract_tests{$set}{$st}[1], "subtract");
colomon/ABC
…/abc2ly :542:
substr @s[0], 0, [+] [\and] [Zeqv] |@s».ords
colomon/ABC
…/Actions.pm :173:
my @bar = @( $<element> )».ast;
colomon/Math-Polynomial
…/Polynomial.pm :25:
"Math::Polynomial.new(" ~ @.coefficients».perl.join(', ') ~ ")";
colomon/Test-Junkie
…/Junkie.pm :31:
shell "PERL6LIB=lib prove -v -e perl6 @tests».path.sort()";
cosimo/perl6-digest-md5
…/MD5.pm :59:
md5( $str.encode('latin-1') ).list».fmt('%02x').join
cosimo/perl6-digest-md5
…/MD5.pm :63:
md5( @str.join.encode('latin-1') ).list».fmt('%02x').join
daleevans/perl6-Text-Spintax
…/Spintax.pm6 :150:
my @children = $<sequence>».ast;
dnmfarrell/Pod-PerlTricks
…/ToJSON.pm6 :90:
@.meta.push("keywords" => [$match<name>.values».made]);
drforr/perl6-Perl6-Parser
…/999-regression.t :119:
bag +« flat @a».comb: 1
drforr/perl6-Perl6-Parser
…/rosetta-1.t :98:
so (sum @b».grep(/' '/,:k).grep(/\d/, :kv)) %% 2;
drforr/perl6-Perl6-Parser
…/rosetta-1.t :101:
sub row (@row) { '│' ~ (join '│', @row».&center) ~ '│' }
drforr/perl6-Perl6-Parser
…/rosetta-1.t :201:
sub row (@row) { '│' ~ (join '│', @row».&center) ~ '│' }
drforr/perl6-Perl6-Parser
…/rosetta-1.t :264:
sub save () { join '|', flat @board».list }
drforr/perl6-Perl6-Parser
…/rosetta-1.t :287:
constant @digits = (1..9).roll(4)».Str;
drforr/perl6-Perl6-Parser
…/rosetta-a.t :297:
my @widths = roundrobin(|@lines).map(*».chars.max);
drforr/perl6-Perl6-Parser
…/rosetta-a.t :426:
sub amb (*@c) { gather @c».&dethunk }
drforr/perl6-Perl6-Parser
…/rosetta-a.t :490:
%anagram.values.grep( { +@($_) >= $max } )».join(' ')».say;
drforr/perl6-Perl6-Parser
…/rosetta-a.t :503:
.flat».value # get all groups of anagrams in the group just selected
drforr/perl6-Perl6-Parser
…/rosetta-a.t :557:
say @array».&function;
drforr/perl6-Perl6-Parser
…/rosetta-a.t :581:
# $png.set: |((cis( Θ / π ) * Θ).reals »+« ($w/2, $h/2))».Int, 255, 0, 255;
drforr/perl6-Perl6-Parser
…/rosetta-b.t :264:
sub benford(@a) { bag +« flat @a».comb: /<( <[ 1..9 ]> )> <[ , . \d ]>*/ }
drforr/perl6-Perl6-Parser
…/rosetta-b.t :543:
encode reduce * * 256 + * , 0, ($hash, $checksum)».list
drforr/perl6-Perl6-Parser
…/rosetta-b.t :709:
my @b = $s.ords».fmt("%07b")».comb;
drforr/perl6-Perl6-Parser
…/rosetta-b.t :715:
my @b = $b.list».fmt("%08b")».comb;
drforr/perl6-Perl6-Parser
…/rosetta-b.t :718:
return [~] @b».chr;
drforr/perl6-Perl6-Parser
…/rosetta-b.t :806:
when 1 { '{' X~ $_».&crosswalk X~ '}' }
drforr/perl6-Perl6-Parser
…/rosetta-b.t :807:
default { $_».&crosswalk }
finanalyst/pod-render
…/Processed.pm6 :290:
$pf.completion($in-level,'zero', %() ) ~ $pf.completion($in-level, 'raw', %( :contents( [~] $node.contents».&handle($in-level, $pf ) ) ) )
fjwhittle/p6-Path-Map
…/Map.pm6 :290:
})».key;
gfldex/perl6-concurrent-file-find
…/Find.pm6 :114:
$channel.send(.&return-type) if all @tests».(.IO);
gfldex/perl6-concurrent-file-find
…/Find.pm6 :116:
.IO.dir().sort({.e && .f}).map(&?BLOCK) if $recursive && .&max-depth && all @dir-tests».(.IO)
gfldex/perl6-concurrent-file-find
…/Find.pm6 :143:
.IO.dir()».&?BLOCK if .IO.e && .IO.d;
gfldex/perl6-git-config
…/Config.pm6 :18:
my $cfg-handle = ([||] @fs».IO».open) || warn("Can not find gitconfig at any of {('⟨' «~« @fs »~» '⟩').join(', ')}");
gfldex/perl6-meta6-bin
…/bin.pm6 :49:
my @path = "%*ENV<HOME>/.meta6"».IO;
gfldex/perl6-meta6-bin
…/bin.pm6 :61:
try @path».child($basename).grep({.e & .r}).first
gfldex/perl6-meta6-bin
…/bin.pm6 :158:
@tracked-files.append: copy-skeleton-files($base-dir)».IO».basename;
gfldex/perl6-meta6-bin
…/bin.pm6 :241:
# (note BOLD "Dependency to $add-dep already in META6.json."; return) if $add-dep.&simple-version ∈ $meta6<depends>».&simple-version;
gfldex/perl6-meta6-bin
…/bin.pm6 :516:
$git-response.lines».substr(41)
gfldex/perl6-meta6-bin
…/bin.pm6 :580:
@skeleton-files».&copy-file($base-dir)
gfldex/perl6-meta6-bin
…/bin.pm6 :619:
».chomp\
gfldex/perl6-meta6-bin
…/bin.pm6 :622:
».split(/\s* '=' \s*/)\
grondilu/chess
…/FEN.pm6 :27:
$<board><rank>».made.join("\n")
grondilu/clifford
…/Optimized.pm6 :29:
:basis[@pairs».key],
grondilu/clifford
…/Optimized.pm6 :30:
:reals[@pairs».value];
grondilu/clifford
…/Optimized.pm6 :79:
.map({ (.key) => .value».value })
grondilu/clifford
…/Optimized.pm6 :82:
my @keys = @classif».key;
grondilu/clifford
…/Optimized.pm6 :83:
my @values = @classif».value;
grondilu/libdigest-perl6
…/README.md :12:
sub buf_to_hex { [~] $^buf.list».fmt: "%02x" }
grondilu/libdigest-perl6
…/digest.t :6:
is md5(''.encode: 'ascii').list».fmt("%02x").join, 'd41d8cd98f00b204e9800998ecf8427e', "empty string";
grondilu/libdigest-perl6
…/digest.t :7:
is md5('a'.encode: 'ascii').list».fmt("%02x").join, '0cc175b9c0f1b6a831c399e269772661', "a";
grondilu/libdigest-perl6
…/digest.t :8:
is md5('abc'.encode: 'ascii').list».fmt("%02x").join, '900150983cd24fb0d6963f7d28e17f72', "abc";
grondilu/libdigest-perl6
…/digest.t :18:
my $digest = md5($msg.encode('ascii')).list».fmt('%02x').join;
grondilu/libdigest-perl6
…/ripemd.t :9:
is $rmd160.list».fmt("%02x").join, 'daba326b8e276af34297f879f6234bcef2528efa', "rmd160";
grondilu/libdigest-perl6
…/sha.t :8:
my $sha1 = [~] .list».fmt: "%02x" given sha1 $test-buf;
grondilu/libdigest-perl6
…/sha.t :9:
my $sha256 = [~] .list».fmt: "%02x" given sha256 $test-buf;
hipek8/p6-UNIX-Daemonize
…/Daemonize.pm6 :44:
($*OUT,$*ERR,$*IN)».close;
jamesneko/dice-roller
…/Roller.pm6 :179:
@!dice».roll;
jamesneko/dice-roller
…/Roller.pm6 :195:
if any(@!dice».value) {
jamesneko/dice-roller
…/Roller.pm6 :210:
return @!operations».value;
jamesneko/dice-roller
…/Roller.pm6 :251:
return @!rolls».total;
jamesneko/dice-roller
…/Roller.pm6 :267:
make RollSet.new( rolls => $<expression>».made );
jamesneko/dice-roller
…/Roller.pm6 :306:
my Dice::Roller::Selector @selectors = $<selector>».made;
jamesneko/dice-roller
…/Rollable.pm6 :13:
self.contents».roll;
jamesneko/dice-roller
…/Rollable.pm6 :19:
self.contents».set-max;
jamesneko/dice-roller
…/Rollable.pm6 :25:
self.contents».set-min;
jamesneko/dice-roller
…/Rollable.pm6 :41:
return [+] self.contents».total;
japhb/RPG-Base
…/Party.pm6 :12:
~ (': ' ~ @members».name.join(', ') if @members)
japhb/RPG-Base
…/ThingContainer.pm6 :79:
@!contents = @!contents».clone;
jnthn/p6-docker-file
…/File.pm6 :205:
$_.Str.encode('utf-16').values».fmt('\u%04x').join
jsimonet/IRC-Client-Plugin-UserPoints
…/UserPoints.pm6 :87:
?? $<nicks>».Str
jsimonet/IRC-Client-Plugin-UserPoints
…/UserPoints.pm6 :121:
?? $<nicks>».Str
jsimonet/dns-zone
…/ModernActions.pm6 :38:
# rr => grep( { $_.ast ~~ ResourceRecord }, @<entry> )».ast
jsimonet/dns-zone
…/ModernActions.pm6 :40:
make grep( { $_.ast ~~ DNS::Zone::ResourceRecord }, @<entry> )».ast;
kalkin/License-Software
…/Software.pm6 :171:
for get-all() -> $license { return $license if $alias.uc ∈ $license.aliases».uc }
kalkin/License-Software
…/Abstract.pm6 :31:
return join "\n", ($.copyright «~» @.holders».name);
kalkin/Pod-To-Latex
…/Latex.pm6 :87:
when Positional { .flat».&pod2text.grep(?*).join: "\n\n" }
kalkin/Pod-To-Latex
…/Latex.pm6 :164:
default { $pod.type ~ ' → ' ~ $pod.contents».&pod2text.join }
labster/p6-File-Spec-Case
…/Case.pm :61:
return +$path.parent.dir».basename.grep(/:i ^ {$path.basename} $/) <= 1;
labster/p6-Lingua-Number
…/Number.pm6 :15:
my @rulesets := $xml.elements(:TAG<rbnf>)[0].elements(:TAG<rulesetGrouping>)».elements(:TAG<ruleset>);
labster/p6-Lingua-Number
…/Number.pm6 :150:
[~] ($match<begin>».Str, (@items Z $match<text>».Str));
labster/perl6-File-Compare
…/Compare.pm6 :43:
my @file_paths = @file_list.».IO.grep: { .r };
labster/perl6-File-Compare
…/Compare.pm6 :48:
my @sizes = @file_paths».s;
labster/perl6-File-Compare
…/Compare.pm6 :50:
my @file = @file_paths».open;
labster/perl6-File-Compare
…/Compare.pm6 :66:
# TODO: check and see if @file».seek(0, SeekFromBeginning) would be faster anyway
labster/perl6-File-Compare
…/Compare.pm6 :67:
@file[grep {%skip{$_}.not}, @index]».seek(0, SeekFromBeginning);
labster/perl6-File-Compare
…/01-multiple.t :44:
is sort-arrays(compare_multiple_files(@filelist».IO)),
labster/perl6-File-Find-Duplicates
…/Duplicates.pm6 :14:
else { @files = @dirs».IO».dir».Slip.flat }
labster/perl6-File-Find-Duplicates
…/Duplicates.pm6 :55:
for @files -> $f { %checksums.push( md5( $f.IO.slurp(:bin) ).list».fmt("%02x").join => $f)}
labster/perl6-File-Find-Duplicates
…/Duplicates.pm6 :72:
if $sameline { $f».path.say }
labster/perl6-File-Find-Duplicates
…/Duplicates.pm6 :73:
else { $f».path».say; print "\n"; }
labster/perl6-File-Find-Duplicates
…/Duplicates.pm6 :90:
say "First set: {@dupes[0]».path.join(', ')}"
leont/yamlish
…/YAMLish.pm6 :502:
make ( @<document>».ast );
leont/yamlish
…/YAMLish.pm6 :519:
%directives<tags> = @<tag-directive>».ast.list;
leont/yamlish
…/YAMLish.pm6 :541:
make [ Mapping, @<map-entry>».ast ];
leont/yamlish
…/YAMLish.pm6 :550:
make [ Sequence, @<list-entry>».ast ];
leont/yamlish
…/YAMLish.pm6 :566:
my $value = @<str>».ast.join;
leont/yamlish
…/YAMLish.pm6 :581:
my $value = @<str>».ast.join;
leont/yamlish
…/YAMLish.pm6 :675:
make @<pair>».ast.list;
leont/yamlish
…/YAMLish.pm6 :689:
make @<inline>».ast.list;
leont/yamlish
…/YAMLish.pm6 :702:
my $url = @<uri-char>».ast.join('');
leont/yamlish
…/YAMLish.pm6 :715:
make ShortHandTag.new(:namespace($<tag-handle>.ast), :local(@<tag-char>».ast.join('')));
leont/yamlish
…/YAMLish.pm6 :893:
{ make DateTime.new(|$/.hash».Int) }
leont/yamlish
…/YAMLish.pm6 :897:
{ make Date.new(|$/.hash».Int) }
lestrrat/p6-Apache-LogFormat
…/Compiler.pm6 :64:
q!~ ~ $<expr>».made.join("") ~ q~!;
lestrrat/p6-Crust-Middleware-Session
…/Session.pm6 :87:
return [~] $buf.list».fmt: "%02x";
madcapjake/p6dx
…/p6dx :31:
)».IO.flat.list;
madcapjake/p6dx
…/p6dx :41:
)».IO.flat.list;
madcapjake/p6dx
…/p6dx :53:
find(:dir('.'), :type('file'), :name(rx!(\.p[m|l]?6?)$!))».IO.flat.list;
madcapjake/p6dx
…/Clairvoyant.pm6 :6:
find( :dir($dir), :type('file'), :name(rx!(\.p[m|l]?6?)$!) )».IO.flat.list;
madcapjake/rabble
…/Compiler.pm6 :34:
my Map @internals = $<Expression>».made;
madcapjake/rabble
…/Compiler.pm6 :44:
my &block = compile-words($<Expression>».made);
madcapjake/rabble
…/Compiler.pm6 :53:
for $<Expression>».made.grep(* !~~ Nil) {
masak/007
…/Builtins.pm6 :333:
my @elements = .value.signature.params».name».&ditch-sigil».&parameter;
masak/007
…/Builtins.pm6 :344:
my @elements = .value.qtype.attributes».name».substr(2).grep({ $_ ne "identifier" })».&parameter;
masak/007
…/Builtins.pm6 :353:
my @elements = &fn.signature.params».name».&ditch-sigil».&parameter;
masak/007
…/Actions.pm6 :88:
make Q::StatementList.new(:statements(Val::Array.new(:elements($<statement>».ast))));
masak/007
…/Actions.pm6 :206:
my @traits = $<trait>».ast;
masak/007
…/Actions.pm6 :342:
for $<infix>».ast Z $<termish>[1..*]».ast -> ($infix, $term) {
masak/007
…/Actions.pm6 :497:
make Q::Term::Array.new(:elements(Val::Array.new(:elements($<EXPR>».ast))));
masak/007
…/Actions.pm6 :502:
make Q::Term::Tuple.new(:elements(Val::Tuple.new(:elements($<EXPR>».ast))));
masak/007
…/Actions.pm6 :510:
make Q::Regex::Alternation.new(:alternatives($<regex-group>».ast));
masak/007
…/Actions.pm6 :514:
make Q::Regex::Group.new(:fragments($<regex-quantified>».ast));
masak/007
…/Actions.pm6 :678:
unless $property eq any($<propertylist>.ast.properties.elements».key».value);
masak/007
…/Actions.pm6 :702:
for $<property>».ast -> Q::Property $p {
masak/007
…/Actions.pm6 :708:
make Q::PropertyList.new(:properties(Val::Array.new(:elements($<property>».ast))));
masak/007
…/Actions.pm6 :796:
make Q::ArgumentList.new(:arguments(Val::Array.new(:elements($<EXPR>».ast))));
masak/007
…/Actions.pm6 :800:
make Q::ParameterList.new(:parameters(Val::Array.new(:elements($<parameter>».ast))));
masak/007
…/Runtime.pm6 :244:
my @elements = &fn.signature.params».name».&ditch-sigil».&parameter;
masak/007
…/Val.pm6 :656:
sprintf "(%s)", $.parameterlist.parameters.elements».identifier».name.join(", ");
masak/007
…/quicksort.t :10:
my @values = @0».Int;
masak/007
…/quicksort.t :18:
my @values = @0».Int;
masak/007
…/meta-info.t :5:
my @lib-pms = find("lib", / ".pm6" $/)».Str;
masak/crypt
…/Hanoi.pm :294:
my @args = .&munge.words[1..*]».&unmunge;
masak/yapsi
…/Yapsi.pm :189:
$block.children.append: $<statementlist><statement>».ast.grep(*.defined);
moritz/Math-Model
…/spring-freq.pl :32:
my @ampl = (%h<time>.flat Z=> %h<height>.flat).grep({.key >= 50})».value;
moritz/Math-Model
…/spring.pl :31:
my @ampl = (%h<time>.flat Z=> %h<height>.flat).grep({.key >= 30})».value;
moritz/Math-Model
…/Model.pm :34:
&c.signature.params».name».substr(1).grep({ $_ ne '_'});
ohmycloud/fanfou-p6
…/FanFou.pm6 :114:
my %oauth_token = (await $resp.body-text()).Str.split('&')».split('=').flat.hash;
ohmycloud/fanfou-p6
…/FanFou.pm6 :124:
%oauth_token = (await $resp.body-text()).Str.split('&')».split('=').flat.hash;
ohmycloud/fanfou-p6
…/FanFou.pm6 :145:
my %oauth_token = (await $resp.body-text()).Str.split('&')».split('=').flat.hash;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :31:
my Str $name = Buf.new( $<name-bytes>».ast ).decode;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :36:
my $xdigits = [~] $<xdigit>».Str;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :38:
my $hex-string = [~] @hex-codes».chr;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :65:
my $literal = [~] $<literal>».ast;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :74:
my @array = @<object>».ast;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :79:
my @names = @<name>».ast.map: *.value;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :80:
my @objects = @<object>».ast;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :16:
my $body = [ $<body>».ast.map({ .value }) ];
p6-pdf/PDF-Grammar-p6
…/Actions.pm :79:
my $objects = [ $<ind-obj>».ast ];
p6-pdf/PDF-Grammar-p6
…/Actions.pm :93:
my $xref = [ $<xref-section>».ast ];
p6-pdf/PDF-Grammar-p6
…/Actions.pm :100:
my List $rows = $<xref-entry>».ast.List;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :138:
method object-stream-index($/) { make [ $<object-stream-indice>».ast ] }
p6-pdf/PDF-Grammar-p6
…/Actions.pm :11:
my @result = $/<op>».ast;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :65:
my @objects = @<object>».ast;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :11:
my @expr = $<statement>».ast;
p6-pdf/PDF-Grammar-p6
…/Actions.pm :9:
my @entries = $<xref-entry>».ast;
patch/geo-region-pm6
…/Region.pm :87:
build_parents(%children_of.grep( *.value ∋ $^region )».key)
perl6/Blin
…/blin.p6 :250:
next unless .key eq .value».name.any; # proceed only if not an alias
perl6/Blin
…/blin.p6 :290:
$str ~= ‘ (left: ’ ~ @undone».name ~ ‘)’ if @undone ≤ 5;
perl6/Blin
…/blin.p6 :308:
whenever Promise.allof($module.depends.keys».done) {
perl6/Blin
…/blin.p6 :345:
await @modules».done;
perl6/doc
…/5to6-nutshell.pod6 :869:
variable to a C«<->». When translating from Perl 5, inspect the use of the loop variable to decide if
perl6/doc
…/5to6-nutshell.pod6 :1047:
require you to add the optional C<m> on a plain match like C«/abc/».
perl6/doc
…/5to6-nutshell.pod6 :1073:
surrounded by C<()>, the assertions will be surrounded by C«<>».
perl6/doc
…/5to6-nutshell.pod6 :1101:
For more info see L«lookahead assertions|/language/regexes#Lookahead_assertions_<?before_pattern>».
perl6/doc
…/5to6-perlfunc.pod6 :207:
L«C<$?LINE>|/language/variables#Compile-time_variables». For many purposes,
perl6/doc
…/5to6-perlfunc.pod6 :894:
L«C<Proc::Async.kill> method|/type/Proc::Async#method_kill».
perl6/doc
…/classtut.pod6 :38:
0, y => 0)».
perl6/doc
…/classtut.pod6 :695:
say $o.^methods(:local)».name.join(', ');
perl6/doc
…/containers.pod6 :291:
elements including the elements of the included array, except for C«(9 10)».
perl6/doc
…/control.pod6 :492:
to be read-write, use C«<->» instead of C«->». If you need to make C<$_>
perl6/doc
…/create-cli.pod6 :286:
C<#|(...)> Pod block to set L«C<WHY>|/routine/WHY».
perl6/doc
…/faq.pod6 :462:
my @bar = <hello world>».subst-mutate: 'h', 'H';
perl6/doc
…/faq.pod6 :473:
my @bar = <hello world>».subst: 'h', 'H'; # ['Hello','world']
perl6/doc
…/faq.pod6 :629:
to use the L«rakudo-specific C<dd> routine|/programs/01-debugging#Dumper_function_dd».
perl6/doc
…/faq.pod6 :801:
these can be used thanks to parallelism, both implicit (e.g., with the C«>>».
perl6/doc
…/glossary.pod6 :1225:
example is the space character « ».
perl6/doc
…/grammar_tutorial.pod6 :611:
C<subject-id> and have it set to element 0 of C«<data>».
perl6/doc
…/grammars.pod6 :163:
grammar: C«method calc-op:sym<add>» and C«method calc-op:sym<sub>».
perl6/doc
…/grammars.pod6 :421:
say $<field>».invalid;
perl6/doc
…/grammars.pod6 :560:
$match.make: $match<pair>».made
perl6/doc
…/io-guide.pod6 :267:
value of the L«C<$.CWD> attribute|/type/IO::Path#attribute_CWD». For example, this
perl6/doc
…/io-guide.pod6 :298:
L«C<$.CWD> attribute|/type/IO::Path#attribute_CWD». This means there are two
perl6/doc
…/iterating.pod6 :32:
say @longer-chain».join("").join("|"); #OUTPUT: «ACG|TAC|GTT␤»
perl6/doc
…/js-nutshell.pod6 :317:
In Perl 6, there is no equivalent to C«>>>». All bitwise operators are
perl6/doc
…/modules-core.pod6 :16:
=item L«C<CompUnit::Repository::Staging>|https://github.com/rakudo/rakudo/blob/master/lib/CompUnit/Repository/Staging.pm6».
perl6/doc
…/modules.pod6 :520:
Be careful I<not> to put C<sub EXPORT> after L«C<unit> declarator|/syntax/unit».
perl6/doc
…/numerics.pod6 :338:
parameters of L«C<sub MAIN>|/language/functions#sub_MAIN».
perl6/doc
…/numerics.pod6 :694:
(my int $ = 2)». The compiler knows the literal is small enough to fit to a
perl6/doc
…/operators.pod6 :193:
Alternatively, use the L«C<.subst> method|/routine/subst».
perl6/doc
…/operators.pod6 :206:
same adverbs as L«C<Str.trans>|/routine/trans». Returns the StrDistance object
perl6/doc
…/operators.pod6 :285:
and C«>>». They apply a given operator enclosed (or preceded or followed, in the case of unary operators) by C<«> and/or C<»> to one or two
perl6/doc
…/operators.pod6 :323:
my @results = @objs».take-care();
perl6/doc
…/operators.pod6 :326:
@slops».?this-method-may-not-exist();
perl6/doc
…/operators.pod6 :372:
chain. For the hyper method call operator (».), the nodality of the target
perl6/doc
…/operators.pod6 :375:
say (<a b>, <c d e>)».elems; # OUTPUT: «(2 3)␤»
perl6/doc
…/operators.pod6 :376:
say (<a b>, <c d e>)».&{ .elems }; # OUTPUT: «((1 1) (1 1 1))␤»
perl6/doc
…/operators.pod6 :406:
which is equivalent to C«1, 2 X~ <a b>».
perl6/doc
…/operators.pod6 :620:
say %color«cherry "$fruit"».perl; # OUTPUT: «("red", "green")␤»
perl6/doc
…/operators.pod6 :718:
X<|postfix ».>X«|postfix >>.»
perl6/doc
…/operators.pod6 :719:
=head2 postfix C<».> / postfix C«>>.»
perl6/doc
…/operators.pod6 :724:
my @b = @a».ord; # OUTPUT: «[97, 98, 99]␤»
perl6/doc
…/operators.pod6 :726:
say @a».&foo; # So we can pretend to have a method call with a sub that got a good first positional argument.
perl6/doc
…/operators.pod6 :727:
say @a».&{ .ord}; # Blocks have an implicit positional arguments that lands in $_. The latter can be omitted for method calls.
perl6/doc
…/operators.pod6 :739:
C<».&foo>), that routine functions as that L<Callable|/type/Callable>. If the L<Callable|/type/Callable> is
perl6/doc
…/operators.pod6 :749:
@a».say; # WRONG! Could produce a␤b␤c␤ or c␤b␤a␤ or any other order
perl6/doc
…/operators.pod6 :1242:
and C<$b> L«C<Int>|/type/Int». Returns an empty string if C<< $b <= 0 >>.
perl6/doc
…/operators.pod6 :1650:
Is an alias to C«!==».
perl6/doc
…/quoting.pod6 :216:
and L<name aliases|/language/unicode#Name_aliases> with L«\c[]|/language/unicode#Entering_unicode_codepoints_and_codepoint_sequences».
perl6/doc
…/quoting.pod6 :352:
ASCII equivalent to C<« »> are double angle brackets C«<< >>».
perl6/doc
…/quoting.pod6 :355:
my $a = 42; say « $a b c ».perl; # OUTPUT: «(IntStr.new(42, "42"), "b", "c")␤»
perl6/doc
…/quoting.pod6 :359:
my $a = 42; say « "$a b" c ».perl; # OUTPUT: «("42 b", "c")␤»
perl6/doc
…/rb-nutshell.pod6 :259:
say %calories« $keys ».join(','); # Perl 6, interpolated split
perl6/doc
…/rb-nutshell.pod6 :725:
Ruby, unless you change C«->» to C«<->».
perl6/doc
…/rb-nutshell.pod6 :796:
require you to add the optional C<m> on a plain match like C«/abc/».
perl6/doc
…/rb-nutshell.pod6 :822:
the assertions will be surrounded by C«<>».
perl6/doc
…/regexes.pod6 :309:
Its negation is this: C«<:!property>». So, C«<:!Lu>» matches a single
perl6/doc
…/regexes.pod6 :322:
C«<:Ll+:N>» or C«<:Ll+:Number>» or C«<+ :Lowercase_Letter + :Number>».
perl6/doc
…/regexes.pod6 :782:
To match any word boundary, use C«<|w>» or C«<?wb>». This is similar to
perl6/doc
…/regexes.pod6 :784:
character that is not bounding a word, use C«<!|w>» or C«<!wb>». This is similar
perl6/doc
…/regexes.pod6 :1111:
the match object as a hash, in other words: C<$/{ 'myname' }> or C«$/<myname>».
perl6/doc
…/regexes.pod6 :1281:
but is otherwise the same as C« $0 < 12 ?? $0 !! $0 - 12 ». When combined with
perl6/doc
…/regexes.pod6 :1400:
called with C«<named-regex>». At the same time, calling a named regex
perl6/doc
…/regexes.pod6 :1404:
C«<capture-name=named-regex>». If no capture is desired, a leading dot
perl6/doc
…/regexes.pod6 :1470:
C«<{$pattern.method}>».
perl6/doc
…/regexes.pod6 :1736:
it will turn into C«<.ws>».
perl6/doc
…/regexes.pod6 :1740:
term. So, C<foo +> becomes C«[ foo <.ws> ]+». On the other hand, whitespace
perl6/doc
…/regexes.pod6 :1742:
becomes C«foo+ <.ws>».
perl6/doc
…/setbagmix.pod6 :381:
Equivalent to L«(-)».
perl6/doc
…/subscripts.pod6 :767:
$element = do given $value».split(/',' \s+/).flat {
perl6/doc
…/traps.pod6 :634:
If you need the number of codepoints, you should use L«C<.codes>|codes». If you need
perl6/doc
…/traps.pod6 :715:
To avoid this, use C«(Dog) => 42» or C«::Dog => 42».
perl6/doc
…/traps.pod6 :992:
whitespace follows the initial C«<».
perl6/doc
…/traps.pod6 :1298:
L«C<Str>|/type/Str#routine_lines». The trap arises if you start
perl6/doc
…/traps.pod6 :1536:
<a b c d>».say # OUTPUT: «d␤b␤c␤a␤»
perl6/doc
…/traps.pod6 :1543:
say ((1, 2, 3), [^4], '5')».Numeric; # OUTPUT: «((1 2 3) [0 1 2 3] 5)␤»
perl6/doc
…/traps.pod6 :1626:
the program is stopped with L«C<exit>|/routine/exit».
perl6/doc
…/typesystem.pod6 :337:
say ((1.0, "2", 3e0), [^4], '5')».elems; # OUTPUT: «(3, 4, 1)␤»
perl6/doc
…/typesystem.pod6 :338:
say ((1.0, "2", 3e0), [^4], '5')».Int # OUTPUT: «((1 2 3) [0 1 2 3] 5)␤»
perl6/doc
…/typesystem.pod6 :532:
X«C«:ver<>»|:ver<> (class)» and X«C«:auth<>»|:auth<> (class)».
perl6/doc
…/typesystem.pod6 :562:
say @list».to-string;
perl6/doc
…/typesystem.pod6 :682:
X«C«:ver<>»|:ver<> (role)» and X«C«:auth<>»|:auth<> (role)».
perl6/doc
…/typesystem.pod6 :812:
Versioning and authorship can be applied via the adverbs C«:ver<>» and C«:auth<>».
perl6/doc
…/typesystem.pod6 :839:
X«C«:ver<>»|:ver<> (grammar)» and X«C«:auth<>»|:auth<> (grammar)».
perl6/doc
…/unicode_entry.pod6 :261:
say «$baa $baa ber».perl; # OUTPUT: «("foo", "bar", "foo", "bar", "ber")␤»
perl6/doc
…/variables.pod6 :573:
This can be used in conjunction with X«destructuring assignment». Any
perl6/doc
…/variables.pod6 :844:
~ @c».indent($in).join("\n")
perl6/doc
…/variables.pod6 :851:
~ @c».indent($in).join("\n")
perl6/doc
…/variables.pod6 :1101:
These can also be accessed by the shortcut C«$<named>».
perl6/doc
…/variables.pod6 :1197:
.IO.dir()».&?BLOCK when .IO.d # lets recurse a little!
perl6/doc
…/variables.pod6 :1469:
On Windows, uses C«%*ENV<HOMEDRIVE> ~ %*ENV<HOMEPATH>». If the home directory
perl6/doc
…/variables.pod6 :1484:
determined by L«C<.tmpdir IO::Spec::* method>|/routine/tmpdir».
perl6/doc
…/Any.pod6 :99:
from L«C<.list>|/routine/list». Use L«C<.List>|/routine/List» to
perl6/doc
…/Any.pod6 :222:
say [[2, 3], [4, [5, 6]]]».nodemap(*+1)
perl6/doc
…/Any.pod6 :251:
L<hyper method call|/language/operators#index-entry-postfix_».> to call
perl6/doc
…/Any.pod6 :256:
say [[1, 2, 3], [(4, 5), 6, 7]]».List.flat; # OUTPUT: «(1 2 3 4 5 6 7)␤»
perl6/doc
…/Any.pod6 :385:
L<Associative|/type/Associative> role from L«C<.hash>|/routine/hash». Use L«C<.Hash>|/routine/Hash» to
perl6/doc
…/Baggy.pod6 :224:
an L«C<Associative>|/type/Associative», or an L«C<Iterable>|/type/Iterable».
perl6/doc
…/Baggy.pod6 :267:
an L«C<Associative>|/type/Associative», or an L«C<Iterable>|/type/Iterable».
perl6/doc
…/Blob.pod6 :81:
L«C<utf8-c8>|/language/unicode#UTF8-C8».
perl6/doc
…/CallFrame.pod6 :15:
L«C<$?FILE>|/language/variables#Compile-time_variables» and L«C<$?LINE>|/language/variables#Compile-time_variables».
perl6/doc
…/CallFrame.pod6 :51:
Return the callable code for the current block. When called on the object returned by C<callframe(0)>, this will be the same value found in L«C<&?BLOCK>|/language/variables#Compile-time_variables».
perl6/doc
…/Callable.pod6 :33:
This method is required for postfix:«( )» and postfix:«.( )». It's what makes
perl6/doc
…/ComplexStr.pod6 :56:
Equivalent to L«C<Mu.Capture>|/type/Mu#method_Capture».
perl6/doc
…/ComplexStr.pod6 :72:
a warning about using an uninitialized value in numeric context and then returns value C«<0+0i>».
perl6/doc
…/DateTime.pod6 :106:
and defaults to the value of L«C<$*TZ> variable|/language/variables#index-entry-%24*TZ».
perl6/doc
…/DateTime.pod6 :350:
Converts the invocant to L«C<Date>|/type/Date».
perl6/doc
…/Hash.pod6 :40:
C<:&as> L«C<Callable>|/type/Callable». The C<@list> cannot be lazy.
perl6/doc
…/Hash.pod6 :43:
an L«C<Associative>|/type/Associative», or an L«C<Iterable>|/type/Iterable».
perl6/doc
…/Hash.pod6 :66:
which the C<@list>'s item will be L«C<push>ed|/routine/push». See
perl6/doc
…/Hash.pod6 :122:
altering the values using the C<:&as> L«C<Callable>|/type/Callable». The
perl6/doc
…/Hash.pod6 :126:
an L«C<Associative>|/type/Associative», or an L«C<Iterable>|/type/Iterable».
perl6/doc
…/IO.pod6 :78:
L«C<$path.absolute>|/routine/absolute». B<NOTE:> that in most cases,
perl6/doc
…/IO.pod6 :136:
successfully change C<$*CWD>, returns L«C<Failure>|/type/Failure».
perl6/doc
…/IO.pod6 :145:
})».CWD; # OUTPUT: «(/home/camelia)␤»
perl6/doc
…/IO.pod6 :149:
})».CWD; # OUTPUT: «(/tmp)␤»
perl6/doc
…/IO.pod6 :154:
})».CWD; # OUTPUT: «(/tmp)␤»
perl6/doc
…/IO.pod6 :185:
to L<Str|/type/Str> by calling L«C<.Str> method|/routine/Str». L<Junction|/type/Junction> arguments
perl6/doc
…/IO.pod6 :193:
To print text and include the trailing newline, use L«C<put>|/type/IO#sub_put».
perl6/doc
…/CatHandle.pod6 :48:
L«C<IO::Handle.encoding>|/type/IO::Handle#method_encoding». Set
perl6/doc
…/CatHandle.pod6 :148:
Calls L«C<.close>|/type/IO::CatHandle#method_close».
perl6/doc
…/CatHandle.pod6 :299:
Same as L«C<IO::Handle.lines>|/type/IO::Handle#routine_lines». Note that
perl6/doc
…/CatHandle.pod6 :318:
Same as L«C<IO::Handle.lock>|/type/IO::Handle#method_lock». Returns L<Nil|/type/Nil>
perl6/doc
…/CatHandle.pod6 :359:
L«C<.new>|/type/IO::CatHandle#method_new». The return value is the currently
perl6/doc
…/CatHandle.pod6 :716:
Same as L«C<IO::Handle.unlock>|/type/IO::Handle#method_unlock». Returns L<Nil|/type/Nil>
perl6/doc
…/Handle.pod6 :46:
L«C<:$enc>|/type/IO::Handle#method_encoding». The values for parameters default
perl6/doc
…/Handle.pod6 :233:
and whether it is L«C<.opened>|/type/IO::Handle#method_opened».
perl6/doc
…/Handle.pod6 :404:
L«C<unlock>|/routine/unlock».
perl6/doc
…/Handle.pod6 :618:
of L«C<.Str>|/routine/Str».
perl6/doc
…/Handle.pod6 :748:
L«C<IO::Handle.encoding>|/routine/encoding».
perl6/doc
…/Handle.pod6 :889:
L«C<lines>|/routine/lines».
perl6/doc
…/Handle.pod6 :909:
and L«C<.say>|/type/IO::Handle#method_say».
perl6/doc
…/Path.pod6 :157:
Alias for L«C<.add>|/routine/add». B<NOTE:> C<.child> exists largely for
perl6/doc
…/Path.pod6 :175:
L«C<resolve>|/routine/resolve».
perl6/doc
…/Path.pod6 :335:
L«C<.path>|/type/IO::Path#attribute_path». Note that no escaping
perl6/doc
…/Path.pod6 :348:
Alias for L«C<IO::Path.path>|/routine/path». In particular, note that default
perl6/doc
…/Path.pod6 :350:
L«C<$.CWD> attribute|/type/IO::Path#attribute_CWD». To stringify while
perl6/doc
…/Path.pod6 :754:
L«C<.add>|/type/IO::Path#method_add».
perl6/doc
…/Path.pod6 :769:
Opens the invocant and returns its L«words|/type/IO::Handle#routine_words».
perl6/doc
…/Path.pod6 :795:
Opens the invocant and returns its L«lines|/type/IO::Handle#routine_lines».
perl6/doc
…/Path.pod6 :839:
in L«C<IO::Handle.open>|/routine/open». Defaults to C<utf8>. Ignored if C<$data>
perl6/doc
…/Path.pod6 :840:
is a L«C<Blob>|/type/Blob».
perl6/doc
…/Path.pod6 :899:
To delete non-empty directory, see L«rmtree in C<File::Directory::Tree> module|https://github.com/labster/p6-file-directory-tree».
perl6/doc
…/Path.pod6 :938:
different storage device. See also: L«C<move>|/routine/move».
perl6/doc
…/Path.pod6 :999:
To create a hard link, see L«C<link>|/routine/link».
perl6/doc
…/Path.pod6 :1016:
To create a symbolic link, see L«C<symlink>|/routine/symlink».
perl6/doc
…/Unix.pod6 :80:
Alias for L«C<catdir>|/routine/catdir».
perl6/doc
…/Win32.pod6 :72:
Alias for L«C<catdir>|/routine/catdir».
perl6/doc
…/Junction.pod6 :139:
(gather $j».take).grep(Numeric).say; # OUTPUT: «(42 2.1)␤»
perl6/doc
…/Junction.pod6 :170:
$j = any (gather $j».take).grep: {Nil !=== try calc $_};
perl6/doc
…/List.pod6 :943:
my @ops = [Z] (<+ - * />, 1..20)».roll(4);
perl6/doc
…/Mix.pod6 :130:
Coerces the C<Mix> to a L«C<Bag>|/type/Bag». The weights are convert to
perl6/doc
…/Mix.pod6 :141:
Coerces the C<Mix> to a L«C<BagHash>|/type/BagHash». The weights are
perl6/doc
…/MixHash.pod6 :133:
Coerces the C<MixHash> to a L«C<Bag>|/type/Bag». The weights are converted
perl6/doc
…/MixHash.pod6 :144:
Coerces the C<MixHash> to a L«C<BagHash>|/type/BagHash». The weights are converted
perl6/doc
…/Mu.pod6 :243:
via L«C<nextwith>|/language/functions#sub_nextwith». Alternatively,
perl6/doc
…/Mu.pod6 :305:
use the default constructor like this: C«Point.new( x => 3, y => 8 )». In this
perl6/doc
…/Pair.pod6 :271:
L«C<.antipair> method|/type/Pair#method_antipair».
perl6/doc
…/Async.pod6 :422:
L«C<.Supply>|/type/Proc::Async#method_Supply». It is also an error
perl6/doc
…/RatStr.pod6 :56:
Equivalent to L«C<Mu.Capture>|/type/Mu#method_Capture».
perl6/doc
…/Routine.pod6 :75:
say &foo.candidates».multi; # OUTPUT: «(True)␤»
perl6/doc
…/Str.pod6 :351:
L«C<Str.Numeric>|/type/Str#method_Numeric».
perl6/doc
…/Str.pod6 :360:
L«C<Str.Numeric>|/type/Str#method_Numeric». If the denominator is larger
perl6/doc
…/Systemic.pod6 :9:
L«C<$*KERNEL>|/language/variables#Dynamic_variables».
perl6/doc
…/Test.pod6 :40:
C<subtest>'s L«C<Callable>|/type/Callable». For that reason, to be able to
perl6/doc
…/htmlify.p6 :505:
my $rest = $meta[0..*-2]».&textify-guts.join;
perl6/doc
…/htmlify.p6 :535:
multi textify-guts (List:D \v) { v».&textify-guts.Str }
perl6/doc
…/list-missing-methods.p6 :40:
my ($type-name, $method-names) = .split('#')[0].split(':')».trim;
perl6/doc
…/list-missing-methods.p6 :58:
.IO.dir(test => exclude)».&?BLOCK when .IO.d
perl6/doc
…/list-missing-methods.p6 :64:
my \types := gather for type-pod-files».IO {
perl6/doc
…/list-missing-methods.p6 :79:
})».name)
perl6/doc
…/list-missing-methods.p6 :83:
my @found-methods = ($path.slurp ~~ m:g/method \s (<[-'\w]>+) '('/)».[0];
perl6/doc
…/list-missing-methods.p6 :84:
my Set $missing-methods = @expected-methods (-) ignore{$type-name} (-) @found-methods».Str;
perl6/doc
…/list-missing-methods.p6 :85:
# dd @missing-methods, @expected-methods, @found-methods».Str;
perl6/doc
…/aspell.t :46:
my $tasks = $promises».result;
perl6/p6-sake
…/Task.pm6 :19:
await @.deps».readify;
perl6/p6-sake
…/IO.pm6 :14:
await @.deps».readify;
perl6/p6-sake
…/IO.pm6 :18:
my $last-dep = @.deps».modification-time.max;
perl6/p6-sake
…/TaskStore.pm6 :18:
~ %TASKS.keys.sort».indent(4).join: “\n”
perl6/perl6-pod-to-bigpage
…/BigPage.pm6 :344:
$node.contents».&handle().join
perl6/perl6-pod-to-bigpage
…/BigPage.pm6 :467:
my @name = $node.meta».&escape-markup;
perl6/whateverable
…/Whateverable.pm6 :153:
|((^32)».chr Z=> (0x2400..*).map(*.chr)), # convert all unreadable ASCII crap
perl6/whateverable
…/long-term-storage.p6 :72:
my @bytes = @pack.join.comb(2)».parse-base: 16;
perl6/whateverable
…/Quotable.p6 :40:
my $messages = $CACHE-DIR.dir(test => *.ends-with: ‘.total’)».slurp».trim».Int.sum;
perl6/whateverable
…/Releasable.p6 :112:
my @shas = $changes.match(:g, / [‘[’ (<.xdigit>**4..*) ‘]’ \s*]+ $$/)»[0].flat».Str;
perl6/whateverable
…/Reportable.p6 :158:
%data<tags> = ( |$0».Str, |%data<CF.{Tag}>.comb(/\w+/) )».lc.unique; # CF.{Tag} is comma-separated
perl6/whateverable
…/Reportable.p6 :168:
%data<tags> = %data<labels>»<name>».lc;
perl6/whateverable
…/Statisfiable.p6 :118:
my @values = @results.reverse».value;
perl6/whateverable
…/Statisfiable.p6 :119:
my @labels = @results.reverse».key».substr: 0, 8;
perl6/whateverable
…/Unicodable.p6 :56:
multi method codepointify(Str $char) { $char.ords».fmt(‘U+%04X’).join: ‘, ’ }
perl6/whateverable
…/Unicodable.p6 :85:
return ‘’ if @all».uniprop(‘Grapheme_Cluster_Break’).any eq
perl6/whateverable
…/Unicodable.p6 :87:
my $preview = @all».chr.join;
perl6/whateverable
…/Unicodable.p6 :88:
return ‘’ if @all !~~ $preview.comb».ord; # round trip test
perl6/whateverable
…/Unicodable.p6 :176:
for $query.comb».ords.flat {
perl6/whateverable
…/Unicodable.p6 :195:
my @query = @numerics || $query.comb».ords.flat;
perl6/whateverable
…/Unicodable.p6 :209:
$answer ~= &escape(.comb».ords.flat.map({self.sanify: $_}).join).fmt: ‘ %-25s |’ for @props;
perlpilot/p6-Test-Class
…/Class.pm6 :31:
%h{%h.keys} = %h.values».sort(*.name);
perlpilot/p6-Time-Duration-Parser
…/Parser.pm6 :10:
rule timespec { <time> *% <sep> { make [+] $<time>».ast } }
ppentchev/perl6-Getopt-Std
…/Std.pm6 :35:
make $<option>».made;
raydiak/Inline-Lua
…/Lua.pm6 :17:
if !$raw && $auto !eqv False && ($lib, $lua)».defined.none {
raydiak/Inline-Lua
…/Raw.pm6 :184:
Lua::Raw::.grep({ .key ~~ /^ \&luaL?_/ })».value.map: {
raydiak/Inline-Lua
…/lua.p6 :29:
say "--- Returned\n{ @results».perl.join("\n").indent(4) }";
raydiak/Math--ThreeD
…/Generator.pm :236:
qq[method perl () \{ '{$.name}.new(' ~ join(',', self.list».perl) ~ ')' }\n\n];
raydiak/Math-Symbolic
…/Symbolic.pm6 :53:
my @vars = $tree.find_all(:type<symbol>)».content.sort.squish;
raydiak/Math-Symbolic
…/Symbolic.pm6 :345:
$node.content = eval( |@($node.children».content) );
raydiak/Math-Symbolic
…/Symbolic.pm6 :375:
my $max_elems = @paths».elems.min;
raydiak/Math-Symbolic
…/Symbolic.pm6 :519:
self.condense: Any, $_ for $vars.values».grep: Math::Symbolic::Tree;
raydiak/Math-Symbolic
…/Symbolic.pm6 :594:
unless $vars.keys».keys.all eq $var;
raydiak/Math-Symbolic
…/Symbolic.pm6 :921:
$str = (@$parse».Str).join: ', ' if $is_array;
raydiak/Math-Symbolic
…/Symbolic.pm6 :989:
my @keys = $parse<postfix_operator>.list».Str;
raydiak/Math-Symbolic
…/Symbolic.pm6 :1012:
$str = (@$tree».Str).join: ', ' if $is_array;
raydiak/Math-Symbolic
…/Grammar.pm6 :41:
my %circ = @circ».parts;
raydiak/Math-Symbolic
…/Grammar.pm6 :96:
my $in_ops_a = '[' ~ @(%in{@prec[2]}».parts»[0]).map("'" ~ * ~ "'").join('|') ~ ']';
raydiak/Math-Symbolic
…/Grammar.pm6 :97:
my $in_ops_b = '[' ~ @(%in{@prec[1]}».parts»[0]).map("'" ~ * ~ "'").join('|') ~ ']';
raydiak/Math-Symbolic
…/Grammar.pm6 :98:
my $in_ops_c = '[' ~ @(%in{@prec[0]}».parts»[0]).map("'" ~ * ~ "'").join('|') ~ ']';
raydiak/Math-Symbolic
…/Grammar.pm6 :117:
@in_chains.push: rule {<$term>[ (<@(%in{@prec[$_]}».parts»[0])>) <$term>]+};
raydiak/Math-Symbolic
…/Grammar.pm6 :123:
my $pre_ops = '[' ~ @(@pre».parts»[0]).map("'" ~ * ~ "'").join('|') ~ ']';
raydiak/Math-Symbolic
…/Grammar.pm6 :130:
my $post_ops = '[' ~ @(@post».parts»[0]).map("'" ~ * ~ "'").join('|') ~ ']';
raydiak/Math-Symbolic
…/Tree.pm6 :49:
@child_results».unshift: $i if $path;
raydiak/Math-Symbolic
…/Tree.pm6 :77:
[+] @.children».count, 1
raydiak/Math-Symbolic
…/Tree.pm6 :156:
my @args = @.children».Str;
raydiak/Math-Symbolic
…/Tree.pm6 :185:
return @.children».Str.join: $.content.Str;
raydiak/Math-Symbolic
…/Tree.pm6 :209:
my @args = @.children».translate: $language;
raydiak/Math-Symbolic
…/Tree.pm6 :213:
$str = @.children».translate($language).join: $.content.Str;
raydiak/Math-Symbolic
…/Tree.pm6 :237:
eval(|@(self.children».Numeric))
raydiak/Math-Symbolic
…/Tree.pm6 :245:
self.new( :$.type, :$.content, :children(@.children».clone) );
raydiak/Math-Symbolic
…/01-basics.t :37:
#.evaluate(:V(2), :P(-3)).expression('t').list».Numeric.sort,
raydiak/Math-Symbolic
…/01-basics.t :38:
.expression('t').list».compile(<P V>)».(-3, 2).sort, # precomp bug workaround
retupmoca/P6-Digest-HMAC
…/HMAC.pm6 :22:
return hmac($key, $message, &hash, $blocksize).list».fmt("%02x").join;
retupmoca/P6-Net-DNS
…/Message.pm6 :62:
|@.question».Buf,
retupmoca/P6-Net-DNS
…/Message.pm6 :63:
|@.answer».Buf,
retupmoca/P6-Net-DNS
…/Message.pm6 :64:
|@.authority».Buf,
retupmoca/P6-Net-DNS
…/Message.pm6 :65:
|@.additional».Buf;
retupmoca/P6-Net-POP3
…/Raw.pm6 :124:
my $digest = md5(($!timestamp ~ $pass).encode).list».fmt("%02x").join;
retupmoca/P6-Net-SOCKS
…/SOCKS.pm6 :27:
$request-data = Buf.new($host.split('.')».Int);
salortiz/p6-LMDB
…/02-quick.t :22:
is-deeply %DB.kv».Str, <A a B b C c D d E e>, 'All in';
salortiz/p6-LMDB
…/03-custom.t :34:
is-deeply %DB.kv».Str, <AZ 1 BY 2 CX 3 DW 4 EV 5>, 'The ordered data';
salortiz/p6-LMDB
…/03-custom.t :47:
is-deeply %DBR.kv».Str, <EV 5 DW 4 CX 3 BY 2 AZ 1>».Str,'Reversed order data';
samcv/perl6-Font-QueryInfo
…/QueryAllFonts.p6 :9:
dir($folder).grep(*.d)».&query-folder;
samcv/perl6-Font-QueryInfo
…/QueryInfo.pm6 :71:
my @rows = $=pod[0].contents[5].contents.join.lines».split(/\s+/, 3);
samcv/perl6-Font-QueryInfo
…/QueryInfo.pm6 :174:
?? $value.split(' ').map({my @t = .split('-')».parse-base(16); @t > 1 ?? Range.new(@t[0], @t[1]) !! Range.new(@t[0], @t[0]) }).list
samcv/perl6-Git-Log
…/Log.pm6 :77:
my $format = '--pretty=format:' ~ @fields».value.join($column-sep) ~ $commit-sep;
samcv/perl6-Git-Log
…/Log.pm6 :90:
my %thing = %( @fields».key Z=> $entry.split($column-sep) );
sergot/http-useragent
…/MediaType.pm6 :56:
parameters => $<parameter>».made())
sergot/openssl
…/MD5.pm6 :49:
self.hash.list».fmt("%02x").join;
sergot/openssl
…/05-digest.t :8:
my $sha1 = [~] .list».fmt: "%02x" given sha1 $test-buf;
sergot/openssl
…/05-digest.t :9:
my $sha256 = [~] .list».fmt: "%02x" given sha256 $test-buf;
sergot/openssl
…/05-digest.t :10:
my $sha384 = [~] .list».fmt: "%02x" given sha384 $test-buf;
sergot/openssl
…/05-digest.t :11:
my $sha512 = [~] .list».fmt: "%02x" given sha512 $test-buf;
sergot/openssl
…/05-digest.t :17:
is md5('abc'.encode: 'ascii').list».fmt("%02x").join, '900150983cd24fb0d6963f7d28e17f72', "md5";
shintakezou/Xmav-JSON
…/Actions.pm6 :17:
method json-string($/) { make $/.caps».value».made .join }
shintakezou/Xmav-JSON
…/Actions.pm6 :18:
method json-array($/) { make Array.new($/.caps».value».made) }
shintakezou/Xmav-JSON
…/Actions.pm6 :19:
method json-object($/) { make Hash.new($/.caps».value».made) }
skids/perl6-Proc-Screen
…/Screen.pm6 :279:
($c».decode('ascii')).join;
skids/perl6sum
…/Sum.pm6 :87:
$s.partials(1,1,2,1)».Int.say; # (16 17 19 20)
skids/perl6sum
…/Sum.pm6 :92:
$s.partials(1,'abc',1)».Int.say; # (21 118 216 315 316)
skids/perl6sum
…/siphash.t :18:
is $s.partials("......")».Int, (0xf3009ba116623fd5, 0xb28753d8b488ae38, 0xfedd16cd7a81b334, 0x17241487941ee6da, 0xdc73124438fcb94d, 0x4c80530e3ead0ad7), "partials yields expected values across a w boundary";
skids/perl6sum
…/sum.t :134:
is $h.partials(3,2,1)».Numeric.join(''), "343637", "partials method works";
skids/perl6sum
…/tiger.t :1699:
{ $t2.push($_) } for $test.key».encode('ascii');
skids/perl6sum
…/tiger.t :1702:
{ $t2u.push($_) } for $test.key».encode('ascii');
softmoth/p6-Template-Mustache
…/Mustache.pm :50:
for $<hunk>».made.flat -> $hunk {
softmoth/p6-Template-Mustache
…/Mustache.pm :87:
for $<linetag tag>.grep(*.defined)».made -> $tag {
spitsh/spitsh
…/gen-docs.p6 :27:
SDM.generate-dot-md($SETTING.symbols[SCALAR,ARRAY]».values.flat,:$path);
spitsh/spitsh
…/DependencyList.pm6 :76:
@!deps».gist.join("\n");
spitsh/spitsh
…/Markdown.pm6 :134:
flat do for |.pos,|.named.sort».value {
spitsh/spitsh
…/Exceptions.pm6 :201:
("\nCandidates defined for: {@.candidates».name.join(', ')}." if @.candidates);
spitsh/spitsh
…/Exceptions.pm6 :212:
("\nCandidates defined for: {@.candidates».name.join(', ')}." if @.candidates);
spitsh/spitsh
…/Exceptions.pm6 :363:
@.repos».gist.join("\n$pad");
spitsh/spitsh
…/Compiler.pm6 :598:
escape .class-type.^types-in-enum».name.join('|')
spitsh/spitsh
…/Composer.pm6 :250:
patterns => { case => $enum.^types-in-enum».name.join('|') }
spitsh/spitsh
…/Method-Optimizer.pm6 :218:
when Str { so $b.^types-in-enum».name.first($a) }
spitsh/spitsh
…/Stage2-Util.pm6 :47:
arg-hints => @non-slurpy[+@pos..*]».spit-gist,
spitsh/spitsh
…/Util.pm6 :47:
if $*REPO.repo-chain».loaded.flat.first($module) -> $cu {
stmuk/p6-app-p6tags
…/p6tags :66:
my @files = find( :dir("."), :type('file'), :name( rx/(.p(m|l|6)|pm6 )$/) )».IO.flat.list;
taboege/p6-SAT
…/SAT.pm6 :63:
my $lits = set((m:g/ '-'? \d+ /)».Int) ∖ 0;
taboege/p6-SAT
…/01-dispatch.t :14:
take $<var>».Str.map(-> $n {
tadzik/App-redpanda
…/redpanda :72:
say "{$dist.name} depends on {@deps».name.join(", ")}"
tadzik/Grammar-BNF
…/ABNF.pm :16:
$g.parse('02-BF-C0-00-02-01')<macaddr><octet>».Str.print; # 02BFC0000201
tadzik/Grammar-BNF
…/ABNF.pm :306:
make join(" | ", $/<concatenation>[]».made)
tadzik/Grammar-BNF
…/ABNF.pm :310:
make join(" ", $/<repetition>[]».made)
tadzik/Grammar-BNF
…/abnf.t :308:
my $rfc4466g_meths2 = Set($rfc4466.comb(/<after [ ^ | \n ]><-[\s\=]>+/)».lc);
tadzik/Module-Toolkit
…/Toolkit.pm :57:
my @tests = find(dir => $*CWD.child('t'), name => /\.t$/).list».Str;
tadzik/Shell-Command
…/Command.pm :53:
for dir($from)».basename -> $item {
tadzik/Template-Mojo
…/Mojo.pm :46:
my @exprs = $<expression>».ast;
tadzik/panda
…/Command.pm :53:
for dir($from)».basename -> $item {
tadzik/panda
…/Panda.pm :217:
self.announce('depends', $bone => @bonedeps».name);
tadzik/panda
…/App.pm :50:
my $max-name = @projects».name».chars.max;
tadzik/panda
…/App.pm :51:
my $max-ver = @projects».version».chars.max;
tadzik/panda
…/App.pm :52:
my $max-rev = @saved.flatmap({ $_<source-revision> // '?'})».chars.max;
tadzik/perl6-Config-INI
…/INI.pm :26:
my %hash = $<sections>».ast;
tadzik/perl6-Config-INI
…/INI.pm :30:
method toplevel ($/) { make $<keyval>».ast.hash }
tadzik/perl6-Config-INI
…/INI.pm :31:
method sections ($/) { make $<header><text>.Str => $<keyval>».ast.hash }
thundergnat/Acme-Scrub
…/Scrub.pm6 :13:
@socks[$soap[*]».fmt("%08b").join.comb].join, $suds;
thundergnat/Lingua-EN-Numbers-Cardinal
…/Cardinal.pm6 :121:
my ( $i, $x, $c ) = .comb».Int;
thundergnat/Lingua-EN-Numbers-Cardinal
…/Cardinal.pm6 :144:
my ($mantissa, $exponent) = $num.fmt("%.14e").split('e')».Numeric;
thundergnat/Lingua-EN-Numbers-Cardinal
…/Cardinal.pm6 :162:
my ($l, $h) = $year.flip.comb(/\d ** 1..2/).».flip;
thundergnat/Lingua-EN-Numbers-Cardinal
…/00-cardinal.t :7:
is((join ', ', (1..10)».&cardinal), 'one, two, three, four, five, six, seven, eight, nine, ten', 'Int list');
tokuhirom/p6-HTTP-Parser
…/Parser.pm6 :82:
$/.make: $/<field-content>».made.join("");
tokuhirom/p6-Protocol-WebSocket
…/Cookie.pm6 :19:
$/.make: $/<pair>».made;
tokuhirom/p6-Protocol-WebSocket
…/Cookie.pm6 :22:
$/.make: $/.caps».value.join("");
tokuhirom/p6-Test-Base
…/Actions.pm :8:
$/.make: $/<block>».made;
tokuhirom/p6-Test-Base
…/Actions.pm :12:
my %pairs = $/<data>».made;
tokuhirom/p6-Test-Base
…/05-skip.t :20:
is @blocks».title.join(','), 'hoh,heh';
ufobat/p6-time-crontab
…/Actions.pm6 :71:
my ($from, $to) = $p.value{$prefix ~ '-value'}».made;
ufobat/p6-time-crontab
…/Actions.pm6 :75:
my ($from, $to, $step) = $p.value{$prefix ~ '-value'}».made;
ufobat/perl6-Temp-Path
…/Path.pm6 :32:
).join.encode('utf8-c8').&sha256».fmt('%02X').join;
viklund/november
…/November.pm :237:
my $phash = sha256((sha256($user_name.encode).list».fmt("%02x") ~ $password).encode).list».fmt("%02x");
viklund/november
…/November.pm :250:
my $hashed = sha256((sha256($user_name.encode).list».fmt("%02x") ~ $password).encode).list».fmt("%02x");
zag/plosurin
…/Plosurin.pm :81:
return { self.WHAT.perl =>[ @!childs».dumper]};
zag/plosurin
…/Plosurin.pm :112:
method TOP ($/) { make [ $<content>».ast]}
zag/plosurin
…/Plosurin.pm :130:
my %attr = $/<attribute>».ast.hash;
zag/plosurin
…/t01.t :30:
is-deeply [ $/.ast».dumper],$check, $test_name ?? $test_name !! $template;
zag/plosurin
…/t02.t :35:
is-deeply [$/.ast.values».WHAT».perl], ["Template", "Template", "Template"], 'objects';
zoffixznet/perl6-IO-MiddleMan
…/MiddleMan.pm6 :29:
@what = @what».gist if $meth eq 'say';
zoffixznet/perl6-IRC-Client
…/04-bash-bot.p6 :17:
for $!ua.get($BASH_URL).res.dom.find('.qt').each».all_text.lines.join: ' ';
zoffixznet/perl6-IRC-Client
…/05-bash-bot-with-filter.p6 :18:
for $!ua.get($BASH_URL).res.dom.find('.qt').each».all_text;
zoffixznet/perl6-IRC-Client
…/Actions.pm6 :10:
$<message>».made,
zoffixznet/perl6-IRC-Client
…/Server.pm6 :14:
@!out.append: |.lines».&from-json
zoffixznet/perl6-Proc-Q
…/01-basic.t :19:
:in[@l».uc],
zoffixznet/perl6-Reminders
…/02-crud.t :13:
is-deeply $rem.all».Capture, (
zoffixznet/perl6-Reminders
…/02-crud.t :20:
is-deeply $rem.all(:all)».Capture, (
zoffixznet/perl6-Testo
…/Test.pm6 :37:
$!tester.tests».result».so.all.so
zoffixznet/q
…/Actions.pm6 :9:
make q:to/♥/ ~ 「<ul class="nodes">」 ~ $<node>».made.join("\n") ~ 「</ul>」;
zoffixznet/q
…/Actions.pm6 :153:
make $<node>.elems ?? 「<ul class="nodes">」 ~ $<node>».made ~ 「</ul>」 !! ''
zostay/HTTP-Supply
…/Test.pm6 :70:
for @exp».key -> $exp-key {
zostay/p6-Path-Router
…/Router.pm6 :25:
for (|@pairs, |%pairs)».kv -> (Str $path, %options) {
zostay/p6-Path-Router
…/Router.pm6 :51:
for (|@pairs, |%pairs)».kv -> (Str $path, %options) {
orangebot/p6-Git-Wrapper
…/Parser.pm6 :51:
make [ $<commit>».made ];
orangebot/p6-Git-Wrapper
…/Parser.pm6 :62:
make join "\n", @($<indented-line>)».trim;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment