ggl

#!/usr/bin/env perl

use strict;
use warnings;

use File::Copy;
use Path::Iterator::Rule;

unless ($ARGV[0]) {
	print "usage: $0 <directory>\n";

ggl

#!/usr/bin/env perl

use strict;
use warnings;

use Try::Tiny;
use Benchmark qw(cmpthese);
use JSON::XS ();
use Cpanel::JSON::XS ();
use JSON::Tiny;

ggl

#!/usr/bin/env perl
#
# Display a CSV file to STDOUT using Data::Dumper or YAML::Tiny

use strict;
use warnings;

use Getopt::Std;
use Text::CSV;
use Data::Dumper;

ggl

#!/usr/bin/env perl

use strict;
use warnings;

use AnyEvent;
use AnyEvent::Socket;
use AnyEvent::Handle;

my ($host, $port) = parse_hostport('127.0.0.1:8000');

ggl

#!/usr/bin/env perl

package Boo;

use Moo;

has blah => ( is => 'ro' );

sub bla {
        my ($oh, @ah) = @_;

ggl

package Blah;

use strict;
use warnings;
 
use Class::Tiny qw(blah);
 
sub bla {
	my ($oh, @ah) = @_;
	return join(' ', ucfirst($oh->blah), @ah);

ggl

#!/usr/bin/env perl
# four ways to match two arays

use strict;
use warnings;

use match::smart qw(match);
use Test::Deep;
use Benchmark qw(cmpthese);

ggl

#!/usr/bin/env perl
#
# Time::Piece and Class::Date benchmarked
#

use strict;
use warnings;

use Benchmark qw(cmpthese);
use Time::Piece;

ggl

#!/usr/bin/end perl

use strict;
use warnings;

use Data::Dumper;

my $hist = sub {
	my $input = shift;
	if ($input and $input =~ /^\d+$/) {

ggl

#!/usr/bin/env perl

use strict;
use warnings;

use Child;
use Data::Dumper;
use Sereal::Encoder;
use Sereal::Decoder;