Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created October 25, 2019 00:51
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/3b2631c1b3781a4a813e56b097cebb24 to your computer and use it in GitHub Desktop.
Save Whateverable/3b2631c1b3781a4a813e56b097cebb24 to your computer and use it in GitHub Desktop.
greppable6
File Code
ELIZABETH/P5caller
…/P5caller.pm6 :29:
my $package = .subname eq '<unit>' ?? 'GLOBAL' !! .code.package.^name;
HMBRAND/Text-CSV
…/020-bugs.txt :9:
in block <unit> at t.pl:7
HMBRAND/Text-CSV
…/022-bugs.txt :15:
in block <unit> at test.pl:4
HMBRAND/Text-CSV
…/023-bugs.txt :7:
in block <unit> at -e:1
HMBRAND/Text-CSV
…/bugs.pl :109:
# in block <unit> at t.pl:15
HMBRAND/Text-CSV
…/bugs.pl :177:
# in block <unit> at t.pl:7
HMBRAND/Text-CSV
…/bugs.pl :217:
# in block <unit> at t23114.pl:1
HMBRAND/Text-CSV
…/bugs.pl :232:
# in block <unit> at t4156.pl:1
JSTOWE/Lumberjack-Application
…/JSON.pm :56:
"subname" : "<unit>",
JSTOWE/Lumberjack
…/050-formatter.t :18:
is format-message("[%S]", $message), '[<unit>]', '%S works for unit case';
MARTIMM/MongoDB
…/Log.pm6 :382:
? $m<method> ?? " in $m<method>" ~ ($m<method> eq '<unit>' ?? '' !! '()')
SKAJI/App-Mi6
…/Release.pm6 :14:
in block <unit> at bin/mi6 line 27
TYIL/App-Assixt
…/README.pod6 :75:
C<class> and C<unit>.
FCO/Punnable
…/README.md :8:
in block <unit> at -e line 1
FCO/Punnable
…/README.md :11:
in block <unit> at -e line 1
Juerd/p6-mqtt
…/MyPack.pm :8:
token prefixed_unit { <length=basic_unit> '/' <unit> }
Juerd/p6-mqtt
…/MyPack.pm :12:
<unit>+ %% <.ws>?
Juerd/p6-mqtt
…/MyPack.pm :20:
for $composed<TOP><unit> -> $unit {
Juerd/p6-mqtt
…/MyPack.pm :32:
for template.parse($template).<unit> -> $unit {
Juerd/p6-mqtt
…/MyPack.pm :35:
my $subtemplate = $p<unit>;
Juerd/p6-mqtt
…/MyPack.pm :36:
if ($p<unit><composed_unit>) -> $composed {
Juerd/p6-mqtt
…/MyPack.pm :68:
if $c<TOP><unit>.grep(-> $/ { $<prefixed_unit> }) {
MARTIMM/mongo-perl6-driver
…/Log.pm6 :349:
? $m<method> ?? " in $m<method>" ~ ($m<method> eq '<unit>' ?? '' !! '()')
Tux/CSV
…/020-bugs.txt :9:
in block <unit> at t.pl:7
Tux/CSV
…/022-bugs.txt :15:
in block <unit> at test.pl:4
Tux/CSV
…/023-bugs.txt :7:
in block <unit> at -e:1
Tux/CSV
…/bugs.pl :109:
# in block <unit> at t.pl:15
Tux/CSV
…/bugs.pl :177:
# in block <unit> at t.pl:7
Tux/CSV
…/bugs.pl :217:
# in block <unit> at t23114.pl:1
Tux/CSV
…/bugs.pl :232:
# in block <unit> at t4156.pl:1
bduggan/p6-log-async
…/14-frame.t :42:
is @all[5], "$file 31 <unit>: world", 'right frame output in main';
finanalyst/pod-cached
…/contexts.pod6 :134:
# in block <unit> at /tmp/bO_heb6AS9 line 1␤␤»
jamesneko/dice-roller
…/output.txt :38:
in block <unit> at ./roll.p6 line 8
jonathanstowe/Lumberjack-Application
…/JSON.pm :56:
"subname" : "<unit>",
jonathanstowe/Lumberjack
…/050-formatter.t :18:
is format-message("[%S]", $message), '[<unit>]', '%S works for unit case';
nxadm/StrictNamedArguments
…/README.md :38:
in block <unit> at t/strict2.t line 19
perl6/doc
…/create-cli.pod6 :243:
If the entire program body resides within C<MAIN>, you can use the C<unit>
perl6/doc
…/exceptions.pod6 :24:
# RESULT: «oops, something went wrong in block <unit> at my-script.p6:1␤»
perl6/doc
…/exceptions.pod6 :42:
# in block <unit> at my-script.p6:1»
perl6/doc
…/exceptions.pod6 :206:
in block <unit> at exception.p6 line 21
perl6/doc
…/exceptions.pod6 :301:
# in block <unit> at my-script.p6:1»
perl6/doc
…/hashmap.pod6 :172:
# OUTPUT: «(exit code 1) Pair␤Cannot modify an immutable Str (Nil)␤ in block <unit>»
perl6/doc
…/module-packages.pod6 :118:
=head3 The C<unit> keyword
perl6/doc
…/module-packages.pod6 :121:
with the C<unit> keyword; C<unit module> specifies that the
perl6/doc
…/module-packages.pod6 :123:
C<Foo.pm6> rewritten with C<unit>:
perl6/doc
…/module-packages.pod6 :136:
(Note that C<unit> can also be used with C<class>, C<grammar> and
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 :325:
# in block <unit> at -e line 1
perl6/doc
…/numerics.pod6 :540:
# in block <unit> at -e line 1
perl6/doc
…/numerics.pod6 :546:
# in block <unit> at -e line 1
perl6/doc
…/numerics.pod6 :681:
# in block <unit> at -e line 1
perl6/doc
…/operators.pod6 :1056:
# in block <unit> at <tmp> line 1␤␤»
perl6/doc
…/syntax.pod6 :838:
Several packages may be declared in a single file. However, you can declare a C<unit> package
perl6/doc
…/traps.pod6 :988:
# OUTPUT: «No such method 'foo' for invocant of type 'Match'␤ in block <unit> at <unknown file> line 1␤»
perl6/doc
…/traps.pod6 :1194:
@b.push: |@a; # OUTPUT: «Too many arguments in flattening array.␤ in block <unit> at <tmp> line 1␤␤»
perl6/doc
…/traps.pod6 :1388:
in block <unit> at print.p6 line 4
perl6/doc
…/traps.pod6 :1648:
in block <unit> at print.p6 line 5
perl6/doc
…/traps.pod6 :1752:
# /tmp/dZ3evir0pb line 1␤ in block <unit> at /tmp/dZ3evir0pb line 1␤␤»
perl6/doc
…/01-debugging.pod6 :108:
# in block <unit> at /tmp/script.p6 line 4
perl6/doc
…/Exception.pod6 :128:
# in block <unit> at <unknown file> line 1␤»
perl6/doc
…/Exception.pod6 :159:
# in block <unit> at /tmp/nH_B3Fq_zU line 1␤␤»
perl6/doc
…/Nil.pod6 :92:
# in block <unit> at <unknown file> line 1
perl6/doc
…/Nil.pod6 :96:
# in block <unit> at <unknown file> line 1
perl6/doc
…/Routine.pod6 :335:
in block <unit> at bt.p6:3
perl6/doc
…/Routine.pod6 :351:
in block <unit> at bt.p6:3
perl6/doc
…/Signature.pod6 :392:
# in block <unit> at -e line 1
perl6/doc
…/NYI.pod6 :53:
# in block <unit> at NYI.p6 line 14
perl6/whateverable
…/committable.t :177:
/^ $($t.our-nick) ‘, ¦586f784,8ea2ae8: «␤» ¦87e8067: «repeat count (-8446744073709551617) cannot be negative␤ in block <unit> at /tmp/’ \w+ ‘ line 1␤␤ «exit code = 1»»’ $/);
teodozjan/path6-coverage
…/path-coverage :8:
rule TOP {^^ [<unit><myunit>] $$ }
teodozjan/path6-coverage
…/path-provides :8:
rule TOP {^^ [<unit><myunit>] $$ }
zoffixznet/perl6-Games-TauStation-DateTime
…/DateTime.pm6 :15:
'/' <segment> ':' <unit> [:i 'GCT' <.ws>?]?
zoffixznet/perl6-Games-TauStation-DateTime
…/DateTime.pm6 :41:
+ $<unit>*.864);
zoffixznet/perl6-IRC-Client
…/02-trickster-bot.p6 :6:
multi method irc-to-me ($ where /temp \s+ $<temp>=\d+ $<unit>=[F|C]/) {
zoffixznet/perl6-IRC-Client
…/02-trickster-bot.p6 :7:
$<unit> eq 'F' ?? "That's {($<temp> - 32) × .5556}°C"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment