ggl

# Configuration file for the color ls utility
# This file goes in the /etc directory, and must be world readable.
# You can copy this file to .dir_colors in your $HOME directory to override
# the system defaults.

# COLOR needs one of these arguments: 'tty' colorizes output to ttys, but not
# pipes. 'all' adds color characters to all output. 'none' shuts colorization
# off.
#
COLOR all

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;

ggl

#!/usr/bin/env perl

use Mojo::IOLoop;
use POSIX;

# Start at sec % 5 == 0
Mojo::IOLoop->timer((5 - (localtime)[0] % 5) => sub {
	# Perform operation every 5 seconds
	Mojo::IOLoop->recurring(5 => sub {
		my $loop = shift;

ggl

#!/bin/sh
alias rm='rm -i'
alias mv='mv -i'
alias cp='cp -i
alias plack-app-dir="plackup -MPlack::App::Directory -e 'my \$app = Plack::App::Directory->new({ root => \"\$ENV{HOME}/public\" })->to_app;'"

ggl

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use Mojo::URL;
use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new->max_redirects(3);

ggl

#!/usr/bin/env perl

use strict;
use warnings;

if (@ARGV < 1) {
	print "usage: $0 <file>\n";
	exit 0;
};

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

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 DBI;
use Data::Dumper;
use Geohash;
use Text::CSV;