Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created August 19, 2018 18:25
Show Gist options
  • Save Whateverable/eba0e13e567dc669774d6fc3f945044e to your computer and use it in GitHub Desktop.
Save Whateverable/eba0e13e567dc669774d6fc3f945044e to your computer and use it in GitHub Desktop.
greppable6
File Code
ELIZABETH/P5-X
…/P5-X.pm6 :19:
multi sub prefix:<-r>() { -r CALLERS::<$_> }
ELIZABETH/P5-X
…/P5-X.pm6 :25:
multi sub prefix:<-w>() { -w CALLERS::<$_> }
ELIZABETH/P5-X
…/P5-X.pm6 :31:
multi sub prefix:<-x>() { -x CALLERS::<$_> }
ELIZABETH/P5-X
…/P5-X.pm6 :37:
multi sub prefix:<-e>() { -e CALLERS::<$_> }
ELIZABETH/P5-X
…/P5-X.pm6 :43:
multi sub prefix:<-d>() { -d CALLERS::<$_> }
ELIZABETH/P5-X
…/P5-X.pm6 :49:
multi sub prefix:<-f>() { -f CALLERS::<$_> }
ELIZABETH/P5-X
…/P5-X.pm6 :55:
multi sub prefix:<-l>() { -l CALLERS::<$_> }
ELIZABETH/P5-X
…/P5-X.pm6 :61:
multi sub prefix:<-s>() { -s CALLERS::<$_> }
ELIZABETH/P5-X
…/P5-X.pm6 :67:
multi sub prefix:<-z>() { -z CALLERS::<$_> }
ELIZABETH/P5ucfirst
…/Changes :11:
- Must use CALLERS:: instead of CALLER:: to reliably access $_ of caller.
ELIZABETH/Sub-Name
…/Name.pm6 :19:
!! CALLER::CALLER::<::?PACKAGE>.^name ~ '::' ~ $name
ELIZABETH/Sub-Util
…/Util.pm6 :27:
!! CALLER::CALLER::<::?PACKAGE>.^name ~ '::' ~ $name
TOKUHIROM/HTTP-Server-Tiny
…/moar-profiler-json-to-callgrind :41:
our $CALLER_ID;
TOKUHIROM/HTTP-Server-Tiny
…/moar-profiler-json-to-callgrind :63:
if (defined $CALLER_ID) {
TOKUHIROM/HTTP-Server-Tiny
…/moar-profiler-json-to-callgrind :64:
$call_inclusive{$CALLER_ID}{$id} += $node->{inclusive_time};
TOKUHIROM/HTTP-Server-Tiny
…/moar-profiler-json-to-callgrind :69:
local $CALLER_ID = $id;
spitsh/spitsh
…/Markdown.pm6 :16:
my $*lvl = (CALLERS::<$*lvl> || 0) + 1;
spitsh/spitsh
…/Exceptions.pm6 :91:
my $tmp = OUTER::CALLER::LEXICAL::<$/>;
spitsh/spitsh
…/Actions.pm6 :26:
$new.outer = $_ with CALLERS::<$*CURPAD>;
spitsh/spitsh
…/Actions.pm6 :1149:
$new.outer = $_ with CALLERS::<$*CURPAD>;
spitsh/spitsh
…/Regex.pm6 :13:
my $tmp = CALLER::LEXICAL::<$/>;
spitsh/spitsh
…/SAST.pm6 :79:
my $tmp = OUTER::CALLER::LEXICAL::<$/>;
spitsh/spitsh
…/SAST.pm6 :261:
my $parent-pad = CALLERS::<$*gpad> || '';
spitsh/spitsh
…/SAST.pm6 :304:
my $tmp = CALLER::LEXICAL::<$/>;
spitsh/spitsh
…/Compiler.pm6 :144:
my $*indent = CALLERS::<$*indent> || 0;
spitsh/spitsh
…/SpitDoc.pm6 :7:
my $tmp = OUTER::CALLER::LEXICAL::<$/>;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment