ggl

#!/usr/bin/env perl
#
#  htpasswd.pl
#  
# Copyright (c) 2013, Gelu Lupas <gelu@devnull.ro>
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#

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/env perl

use strict;
use warnings;

use DBI;
use Data::Dumper;
use Geohash;
use Text::CSV;

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;