pangyre

#!/usr/bin/env perl
use strictures;
use List::Util  "reduce";
use Path::Tiny;
use YAML;

# Given a list of filenames, return a hash of each word and the number
# of times it occurs.

my $reduced = word_count(@ARGV);

pangyre

#!/usr/bin/env perl
use strictures;
use XML::LibXML;
use HTTP::Status "status_message";

print "Checking HTTP::Status version ",
    HTTP::Status->VERSION, $/, $/;

my $page = do { local $/; <DATA> };
my $dom = XML::LibXML->load_html( string => $page );

pangyre

BEGIN {
    package Promise;
    use Moo;
    my %STATES = map { $_ => 1 } qw/ PENDING FULFILLED REJECTED /;

    has "value" => is => "ro", writer => "_value";
    has "reason" => is => "ro", writer => "_reason";

    has [qw/ on_fulfill on_reject /] =>
        is => "ro",

pangyre

#!/usr/bin/env perl
use strict;
use Encode;
use Text::Unidecode;
use Plack::Request;
use Text::Soundex;
use HTML::Entities;

=head1 Synopsis

pangyre

sub render : ActionClass('RenderView') {}

sub end : Private {
    my ( $self, $c ) = @_;
    $c->forward("render");
}

pangyre

sub render : ActionClass('RenderView') {}

sub end : Private {
    my ( $self, $c ) = @_;
    $c->forward("render");
}

pangyre

#!/usr/bin/env perl
use warnings;
use strict;
use List::Util qw( first );
use Statistics::Descriptive;
use HTML::Entities;
use Time::Progress;
use URI::GoogleChart;
use LWP::Simple qw( mirror );
use File::HomeDir;