head

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

use Pastebin::Gist;
use Pastebin::Shadowcat;

unit class App::Nopaste:ver<1.002>:auth<zef:raku-community-modules>;

subset ValidPastebins of Str where any <gist shadow>;
method paste(@files --> Str:D) {
    if %*ENV<PASTEBIN_GIST_TOKEN> {
        my %paste;
        %paste{$_.IO.basename}<content> = $_.IO.slurp for @files;
        Pastebin::Gist.new.paste(%paste)
    }
    else {
        my $content := @files == 1
          ?? @files[0].IO.slurp
          !! @files.map({ "#### File: $_\n" ~ .IO.slurp }).join("\n\n\n");
        Pastebin::Shadowcat.new.paste($content)
    }
}

multi method fetch(Str:D $url where .contains('gist') --> List:D) {
    my ($files, $desc) = Pastebin::Gist.new.fetch($url);
    $files.keys.map({"#### File: $_\n$files{$_}"}).join, $desc || 'N/A'
}

multi method fetch(Str:D $url where .contains('fpaste') --> List:D) {
    my ($paste, $desc) = Pastebin::Shadowcat.new.fetch($url);
    $paste, $desc || 'N/A'
}



App::Nopaste - command line interface to pastebins


nopaste http://fpaste.scsys.co.uk/500226


nopaste https://gist.github.com/zoffixznet/83adc0789cdb0cf57d43


This module allows to paste to create GitHub Gists as retrieve them.


Currently, the module supports fetching/pasting from
L<https://gist.github.com/> and L<http://fpaste.scsys.co.uk/>. To
use L<https://gist.github.com/> you need to
L<create a GitHub token|https://github.com/settings/tokens>. Only the C<gist>
permission is needed. Set C<PASTEBIN_GIST_TOKEN> environmental variable
to the value of that token.


If C<PASTEBIN_GIST_TOKEN> is set, pastes will be created on
L<https://gist.github.com/>; otherwise on L<http://fpaste.scsys.co.uk/>.


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


Nopaste

This provides a facility to take a "snapshot" of the Raku modules you have installed
on your system in the form of a skeleton distribution with the modules as dependencies
which can be used to reinstall the modules or even install them fresh on a new machine.


The key use cases for this kind of thing would be either that you need to remove and
reinstall your Raku installation (rather than just upgrading in place that will
leave the modules as they were,) or you want deploy the same modules on another machine
to run some application (or duplicate a development environment.)


This is similar in intent to the C<autobundle> command of Perl 5's C<cpan> command.


It should work with any module installer that uses the standard Raku installation
mechanisms (such as C<zef>) and should in theory work with any new
ones that may come along as it simply writes a minimal META file into an otherwise
bare directory.  The META file contains the installed modules as it's dependencies
just a like a normal module might.


The primary interface for this is the provided script C<raku-module-snapshot> and
this module, whilst it may be useful in another context, simply encapsulates the
bulk of the implementation in order to take advantage of precompilation.


All of the methods are 'class' methods that can be called on the type object, they
could just as easily be exported sub-routines but I feel making them methods
allows for easier extension and doesn't pollute the consumers namespace.


method create-meta(Str :$name!, Version :$raku-version = $*RAKU.version, Version :$version = v0.0.1) returns META6


This returns a C<META6> object initialised with the minimal attributes for it to work.
The C<name> must be provided.


method get-dists(@exclude-auth = <raku perl private:snapshot>)


This returns a list of the installed L<Distribution> objects, it will skip distributions that appear to
either be part of the installed Rakudo or those created by this module. To allow for other uses a
list of the 'auth' strings that should be skipped can be provided.


method get-meta(Str :$name!, Version :$raku-version = $*RAKU.version, Version :$version = v0.0.1, :@exclude-auth = <perl private:snapshot>) returns META6


This returns the fully populated META data that will be serialised to create the
META6.json file.  C<name> is required (and will form the name of the
created distribution,) all of the other arguments have defaults that are
sensible for the application.



class App::ModuleSnap {
    use JSON::Fast;
    use META6;

    my $auth     = 'private:snapshot';

    has Str $.auth is rw = $auth;

    my @excludes = ('perl', $auth );

    has Str @.exclude-auths is rw = @excludes;

    my @repos = <site vendor core>;

    has Str @.include-repositories is rw = @repos;

    sub timestamp-part( --> Str ) {
        DateTime.now.Str.subst(/<[:+.-]>/,"", :g);
    }

    sub auto-name-parts( --> Positional ) {
        ('Snapshot', 'Auto', timestamp-part() );
    }

    multi sub MAIN(IO() :$directory = '.') is export {

        my @parts = auto-name-parts();
        my Str $name = @parts.join('::');
        my Str $dir-name = @parts.join('-');

        my IO::Path $dir = $directory.add($dir-name);

        my META6 $meta = App::ModuleSnap.get-meta(:$name);

        if !$dir.d {
            $dir.mkdir;
        }

        $dir.add('META6.json').spurt($meta.to-json);
        say "the snapshot has been written in the directory $dir";
    }

    proto get-meta { * }

    multi method get-meta(App::ModuleSnap:U: Str :$name!, Version :$raku-version = $*RAKU.version, Version :$version = v0.0.1, :@exclude-auth = @excludes --> META6 ) {
        my $meta = self.create-meta(:$name, :$raku-version, :$version);
        $meta.depends = self.get-dists(@exclude-auth).map(*.meta<name>).list;
        $meta;
    }

    proto create-meta { * }

    multi method create-meta(App::ModuleSnap:U: Str :$name!, Version :$raku-version = $*RAKU.version, Version :$version = v0.0.1 --> META6 ) {
        my Str $auth        = 'private:snapshot';
        my Str $source-url  = 'urn:no-install';
        my $meta = META6.new(:$name, :$raku-version, :$version, :$auth, :$source-url);
        return $meta;
    }

    method get-repos( --> Iterable ) {
        $*REPO.repo-chain.grep(CompUnit::Repository::Installation);
    }

    proto get-dists { * }

    multi method get-dists(App::ModuleSnap:U: @exclude-auth = @excludes --> Iterable ) {
        my @dists;
        for self.get-repos -> $r {
            for $r.installed -> $dist {
                if !$dist.meta<auth>.defined || $dist.meta<auth> ne any(@exclude-auth.list) {
                    @dists.append: $dist;
                }
            }
        }
        @dists;
    }
}
# vim: expandtab shiftwidth=4 ft=raku


ModuleSnap

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

App::ModuleSnap

image i_github_com_jonathanstowe_app_modulesnap_workflows_ci_badge_svg not found

Synopsis

Description

Installation

Support

Licence and Copyright

App::ModuleSnap v0.0.13

Authors

License

Dependencies

Test Dependencies

Provides

Documentation