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

# This is a naughty module, inspired by Rakudo::Internals.DIR-RECURSE
use nqp;

my sub path-exists(str $path) {
    nqp::stat($path,nqp::const::STAT_EXISTS)
}
my sub path-is-directory(str $path) {
    nqp::stat($path,nqp::const::STAT_ISDIR)
}
my sub path-is-regular-file(str $path) {
    nqp::stat($path,nqp::const::STAT_ISREG)
}
my sub path-is-device(str $path) {
    nqp::stat($path,nqp::const::STAT_ISDEV)
}
my sub path-is-symbolic-link(str $path) {
    nqp::stat($path,nqp::const::STAT_ISLNK)
}

my sub path-created(str $path) {
    nqp::stat_time($path,nqp::const::STAT_CREATETIME)
}
my sub path-accessed(str $path) {
    nqp::stat_time($path,nqp::const::STAT_ACCESSTIME)
}
my sub path-modified(str $path) {
    nqp::stat_time($path,nqp::const::STAT_MODIFYTIME)
}
my sub path-meta-modified(str $path) {
    nqp::stat_time($path,nqp::const::STAT_CHANGETIME)
}

my sub path-uid(str $path) {
    nqp::stat($path,nqp::const::STAT_UID)
}
my sub path-gid(str $path) {
    nqp::stat($path,nqp::const::STAT_GID)
}

my sub path-inode(str $path) {
    nqp::stat($path,nqp::const::STAT_PLATFORM_INODE)
}

my sub path-device-number(str $path) {
    nqp::stat($path,nqp::const::STAT_PLATFORM_DEV)
}

my sub path-mode(str $path) {
    nqp::stat($path,nqp::const::STAT_PLATFORM_MODE)
}

my sub path-hard-links(str $path) {
    nqp::stat($path,nqp::const::STAT_PLATFORM_NLINKS)
}

my sub path-filesize(str $path) {
    nqp::stat($path,nqp::const::STAT_FILESIZE)
}

my sub path-block-size(str $path) {
    nqp::stat($path,nqp::const::STAT_PLATFORM_BLOCKSIZE)
}
my sub path-blocks(str $path) {
    nqp::stat($path,nqp::const::STAT_PLATFORM_BLOCKS)
}

my sub EXPORT(*@names) {
    Map.new: UNIT::{@names
      ?? @names.map: { '&' ~ $_ }
      !! UNIT::.keys.grep({
             .starts-with('&') && $_ ne '&EXPORT'
         })
    }:p
}



path::utils - low-level path introspection utility functions


=begin code :lang<raku>

use path-utils;  # export all subs

use path-utils <path-exists>;  # only export sub path-exists

say path-exists($filename);  0 or 1

=end code


path-utils provides a number of low-level path introspection utility
functions for those cases where you're interested in performance, rather
than functionality.


All subroutines take a (native) string as the only argument.


Note that these functions only return native C<int> and native C<num>
values, which can be used in conditions without any problems, just
don't expect them to be upgraded to C<Bool> values.


Also note that all functions (except C<path-exists>) expect the path
to exist.  An exception will be thrown if the path does not exist.
The reason for this is that in situations where you are already sure
a path exists, there is no point checking for its existence again if
you e.g. would like to know its size.


By default all utility functions are exported.  But you can limit this to
the functions you actually need by specifying the names in the C<use>
statement.


Returns 1 if path is a directory, 0 if not.


Returns 1 if path is a regular file, 0 if not.


Returns 1 if path is a device, 0 if not.


Returns 1 if path is a symbolic link, 0 if not.


Returns number of seconds since epoch as a C<num> when path was
created.


Returns number of seconds since epoch as a C<num> when path was
last accessed.


Returns number of seconds since epoch as a C<num> when path was
last modified.


Returns number of seconds since epoch as a C<num> when the meta
information of the path was last modified.


Returns the numeric user id of the path.


Returns the numeric group id of the path.


Returns the device number of the filesystem on which the path resides.


Returns the number of hard links to the path.


Returns the preferred I/O size in bytes for interacting wuth the path.


Returns the number of filesystem blocks allocated for this path.


Source can be located at: https://github.com/lizmat/path-utils .
Comments and Pull Requests are welcome.


path-utils

use HTTP::UserAgent;
use URI::Encode;
use HTML::Entity;

unit class Pastebin::Shadowcat:ver<2.002>:auth<zef:raku-community-modules>;

has $!pastebin_url = 'http://fpaste.scsys.co.uk/';

method paste($paste, $summary? --> Str:D) {
    my $res := HTTP::UserAgent.new.post: $!pastebin_url ~ 'paste', %(
        :channel(''), :nick(''), :summary($summary // ''), :paste($paste),
        'Paste it' => 'Paste it'
    );
    $res.is-success or fail $res.status-line;
    $res.content ~~ /
        'meta http-equiv="refresh" content="5;url=' $<url>=<-["]>+
    / or fail 'Did not find paste URL in response from the pastebin';
    ~$<url>
}

method fetch ($what) returns List {
    my $paste_url := $what ~~ m:P5/\D/ ?? $what !! $!pastebin_url ~ $what;

    my $res := HTTP::UserAgent.new.get: $paste_url;
    $res.is-success or fail 'Did not find that paste';
    $res.content ~~ /
        '<br>' \s+ '<b>' $<summary>=.+ '</b>' .+ '<pre>' $<paste>=.+ '</pre>'
    / or fail 'Could not find paste content on the returned page';

    decode-entities(~$<paste>), decode-entities(~$<summary>),
}



Pastebin::Shadowcat - Raku interface to http://fpaste.scsys.co.uk/


=begin code :lang<raku>

use Pastebin::Shadowcat;

my $p = Pastebin::Shadowcat.new;
say "Pasting test content:";
my $paste_url = $p.paste('<pre>test paste1</pre>', 'My optional summary');
say "Paste is located at $paste_url";

say "Retrieiving paste content:";
my ( $content, $summary ) = $p.fetch('http://fpaste.scsys.co.uk/471157');
say "Summary: $summary";
say "Content: $content";

=end code


This module allows to paste to L<http://fpaste.scsys.co.uk/> pastebin
as well as retrieve content from existing pastes.


=begin code :lang<raku>

my $p = Pastebin::Shadowcat.new;

=end code


Creates new C<Pastebin::Shadowcat> object.


=begin code :lang<raku>

my $paste_url = $p.paste('Paste content');

my $paste_url = $p.paste('Paste content', 'Optional summary');

=end code


B<Returns> URL to the created paste (e.g. L<http://fpaste.scsys.co.uk/471157>).
C<fail>s on error. B<Takes> one mandatory and one optional arguments:
the content to paste and optional sumary.


=begin code :lang<raku>

my ($content,$summary) = $p.fetch('http://fpaste.scsys.co.uk/471157');

my ($content, $summary) = $p.fetch('471157');

=end code


B<Returns> a two-item list: paste content and paste summary.
C<fail>s on error. B<Takes> one mandatory argument: a full URL or just the
ID number of the paste you want to retrieve.


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


Shadowcat

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

METHODS

`new`

`paste`

`fetch`

AUTHOR

COPYRIGHT AND LICENSE

Pastebin::Shadowcat v2.002

Authors

License

Dependencies

Test Dependencies

Provides

Documentation