head

item

Image

code

root

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

README

my constant $GitHub-URL = 'https://github.com/rakudo/rakudo/blob/';
my $Setting = (
    %*ENV<SOURCERY_SETTING>
      // $*EXECUTABLE.parent.parent.parent.child(&say.file)
).IO;

my constant $Commit = do with $*RAKU.compiler.version.Str -> $v is copy {
    # remove dots if we have a non-release version; `.g` seps commit SHA
    $v .= subst: '.', '', :g if $v.contains: '.g';
    $v.split('g').tail
}

multi sourcery($thing, Str:D $method, Capture:D $c) {
    for $thing.^can($method) -> $meth {
         with $meth.cando(\($thing, |$c)).first(*.defined) {
             return do-sourcery($_);
         }
    }
    die "Could not find candidate that can do $c.gist()";
}

multi sourcery(Mu $thing, Str:D $method) {
    do-sourcery $thing.^can($method).head
}
multi sourcery(&code) { do-sourcery &code }
multi sourcery(&code, Capture $c) {
    do-sourcery &code.cando($c).head
      // die "Could not find candidate that can do $c.gist()";
}

my sub do-sourcery(&code) {
    my $file := &code.file;
    $file := $file.substr(9) if $file.starts-with('SETTING::');
    my $line := &code.line;

    "$file:$line", "$GitHub-URL$Commit/$file#L$line"
}

my sub EXPORT {
    use MONKEY-TYPING;
    augment class Code {
        multi method sourcery()   { sourcery self     }
        multi method sourcery(|c) { sourcery self, c; }
    }
    .^compose for
      Block, WhateverCode, Routine, Macro, Method, Sub, Submethod, Regex;

    Map.new: ('&sourcery' => &sourcery)
}



CoreHackers::Sourcery - Show source locations of core methods and subs


=begin code :lang<raku>

use CoreHackers::Sourcery;
&say.sourcery("foo").put;

# OUTPUT:
# src/core/io_operators.pm:22 https://github.com/rakudo/rakudo/blob/c843682/src/core/io_operators.pm#L22

put sourcery Int, 'abs';         # method called on a type object
put sourcery 42,  'split';       # method called on an Int object
put sourcery 42,  'base', \(16); # method call with args

=end code


This module provides the *actual* location of the sub or method definition
in Rakudo's source code.


Related L<blog post|https://github.com/Raku/CCR/blob/main/Remaster/Zoffix%20Znet/Raku-Core-Hacking-Wheres-Da-Sauce-Boss.md#raku-core-hacking-wheres-da-sauce-boss>.


=begin code :lang<raku>

&say.sourcery.put;        # location of the `proto`
&say.sourcery('foo').put; # location of the candidate that can do 'foo'

=end code


The core C<Code> class and its core subclasses get augmented with a
C<.sourcery> method.  Calling this method without arguments provides
the location of the method or sub, or the C<proto> of the multi.


When called with arguments, returns the location of the narrowest
candidate, possibly C<die>ing if no candidate can be found.


Returns a list of two strings: the C<file:line-number> referring to the
core file and the GitHub URL.


=begin code :lang<raku>

put sourcery &say;              # just Code object
put sourcery &say, \('foo');    # find best candidate for a Code object
put sourcery Int, 'abs';        # method `abs` on a type object

# find best candidate for method `base` on object 42, with argument `16`
put sourcery 42, 'base', \(16);

=end code


Operates similar to the method form, except allows more flexibility, such
as passing object/method names.
Returns a list of two strings: the C<file:line-number> referring to the
core file and the GitHub URL.


The location of the setting file. Defaults to:


=begin code :lang<raku>

$*EXECUTABLE.parent.parent.parent.child(&say.file)

=end code


This will generally work for most installs.


This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.


Sourcery

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


README

CoreHackers::Q

DESCRIPTION

image izef_corehackers_q_dist_example_png not found

USAGE

`a` command

`o` command

`z` command

Meta

REPOSITORY

BUGS

AUTHOR

LICENSE

CoreHackers::Q v1.002000

Authors

License

Dependencies

Test Dependencies

Provides

Documentation