Image

head

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

unit class CPAN::Uploader::Tiny;

use CPAN::Uploader::Tiny::MultiPart;
use HTTP::Tinyish;

has $.url;
has $.user;
has $.password;
has $.agent;

submethod BUILD(:$!url, :$!user, :$!password, :$!agent) {
    $!url ||= %*ENV<CPAN_UPLOADER_UPLOAD_URI> || 'https://pause.perl.org/pause/authenquery?ACTION=add_uri';
    $!agent ||= do {
        my $name = self.^name;
        my $ver  = self.^ver.Str;
        "perl6 $name/$ver";
    };
}

method new-from-config($file) {
    my %config = self.read-config($file);
    self.new(user => %config<user>, password => %config<password>);
}

method read-config($file) {
    die "missing $file" unless $file.IO.e;
    my $is-plain = ?try {
        my $content = $file.IO.slurp(:!bin);
        $content !~~ / 'BEGIN PGP MESSAGE' /;
    };
    if $is-plain {
        self!read-plain-config(:$file);
    } else {
        self!read-encrypted-config(:$file);
    }
}

method !read-plain-config(:$file, :@line) {
    @line ||= $file.IO.lines;
    my %config = gather for @line -> $line {
        if $line ~~ /^ $<key>=(\S+) \s+ $<value>=(.+)/ {
            take $<key>.Str => $<value>.Str;
        }
    };
    %config<user> or die "missing user in $file";
    %config<password> or die "missing password in $file";
    %config;
}

method !read-encrypted-config(:$file) {
    my $proc = run "gpg", "-qd", "--no-tty", $file, :out, :err;
    if $proc.exitcode != 0 {
        my $err = $proc.err.slurp-rest;
        my $exitcode = $proc.exitcode;
        die $err ?? $err !! "gpg failed, exitcode = $exitcode";
    }
    my @line = $proc.out.lines;
    self!read-plain-config(:$file, :@line);
}

method upload($tarball, :$subdirectory = "Perl6", :$async) {
    my $url = $!url.subst('//', "//{$.user}:{$.password}@");

    my $multi = CPAN::Uploader::Tiny::MultiPart.new;
    $multi.add-content('HIDDENNAME', $!user);
    $multi.add-content('CAN_MULTIPART', "1");
    $multi.add-content('pause99_add_uri_uri', '');
    $multi.add-content('pause99_add_uri_subdirtext', $subdirectory) if $subdirectory;
    $multi.add-content('SUBMIT_pause99_add_uri_httpupload', ' Upload this file from my disk ');
    $multi.add-file('pause99_add_uri_httpupload',
        filename => $tarball.IO.basename,
        content => $tarball.IO.slurp(:bin),
        content-type => 'application/gzip',
    );
    my ($boundary, $content) = $multi.finalize;

    my %option =
        headers => {
            content-type => "multipart/form-data; boundary=$boundary",
        },
        content => $content,
    ;
    my &cb = sub (%res) {
        return True if %res<success>;
        die "%res<status> %res<reason>, $!url";
    };

    if $async {
        return HTTP::Tinyish.new(:$!agent, :async).post($url, |%option).then: -> $p { &cb($p.result) };
    } else {
        return &cb( HTTP::Tinyish.new(:$!agent).post($url, |%option) );
    }
}



CPAN::Uploader::Tiny - Upload tarballs to CPAN


=begin code :lang<raku>

use CPAN::Uploader::Tiny;

my $uploader = CPAN::Uploader::Tiny.new-from-config($*HOME.add: '.pause');
$uploader.upload("Your-Raku-Module-0.0.1.tar.gz");

=end code


CPAN::Uploader::Tiny uploads tarballs to CPAN.


L<https://github.com/rjbs/CPAN-Uploader>


L<https://github.com/Leont/cpan-upload-tiny>


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


Tiny

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.


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

NAME

SYNOPSIS

DESCRIPTION

BLOG POST

METHODS

EXPORTED SUBROUTINES

sourcery

ENVIRONMENT VARIABLES

SOURCERY_SETTING

AUTHOR

COPYRIGHT AND LICENSE

CoreHackers::Sourcery v2.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation