mfontani

Keybase proof

I hereby claim:

• I am mfontani on github.
• I am mfontani (https://keybase.io/mfontani) on keybase.
• I have a public key whose fingerprint is 7D94 1D1C CF93 1598 A567 01B3 D47F C150 38AE 4D5E

To claim this, I am signing this object:

mfontani

#!/usr/bin/env perl
use common::sense;
use DateTime;
use Text::Table;

my $now   = DateTime->from_epoch(epoch => time, time_zone => 'UTC');
my @where = qw<
    UTC
    Europe/London
    Europe/Rome

mfontani

#!/usr/bin/env perl
use Mojolicious::Lite;

get '/'  => sub {
    my $c = shift;
    $c->render( template => 'index' );
};

get '/*' => sub {
    my $c = shift;

mfontani

severity = 1
verbose  = 8

# Allows us to set use strict;use warnings before package keyword
[-Modules::RequireExplicitPackage]
[Lax::RequireExplicitPackage::ExceptForPragmata]
# make scripts - like t/ - exempt from this policy
exempt_scripts = 1

# this is what we *use* to make this module work...

mfontani

severity = 1
verbose  = 8

# Allows us to set use strict;use warnings before package keyword
[-Modules::RequireExplicitPackage]
[Lax::RequireExplicitPackage::ExceptForPragmata]
# make scripts - like t/ - exempt from this policy
exempt_scripts = 1

# this is what we *use* to make this module work...

mfontani

#!/usr/bin/env perl
use Mojolicious::Lite;

my $use_auth = 1;    # with auth enabled..
my ( $user, $pass ) = qw/user password/;
if ($use_auth) { plugin 'basic_auth'; }

get '/' => sub { my $self = shift; $self->redirect_to('/upload'); };
get '/upload' => sub {
  my $self = shift;

mfontani

#!/usr/bin/env perl
use strict;
use warnings;

# List of previously installed modules was created with:
# perldoc -o text perllocal | grep '"Module"' | cut -d'"' -f3 | cut -d' ' -f2
my $installed = shift;
$installed = "$ENV{HOME}/perl-installed-20100908-1917.txt" unless defined $installed;

print "Using modules list from $installed\n";

mfontani

use strict;
use warnings;

# Column details and sample line, from the post
my $header  = q{0 AOZSVIN, TAMSSZ B      A  A-  B+   B  B-  C+   C  C-  D+   D  D-   F  CR   P  PR   I  I*   W  WP  WF  AU  NR  FN  FS};
my $sample  = q{0            AAS  150   23  25  16  35  45  14   8  10   2   1   1   4                           4                     };
#               -+--------+-----+-----+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---..
# chars         1212345678912345612345612341234123412341234123412341234123412341234123412341234123412341234123412341234123412341234...
# num. chars:   2 9        6     6     4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   4   *
my $unpack  = q{A2A9       A6    A6    A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A4  A*};

mfontani

#!/bin/sh
# Marco Fontani - MFONTANI at cpan dot org
# Repack all the .git repos from the current directory
# using 8 processes at once
find . -type d -name '.git' | \
    xargs -I{} -P8 \
    sh -c "(cd {}/..; git gc; echo done {})2>/dev/null"

mfontani

# scripts/capsule.sh

    if [ -f 'dist.ini' ]; then
        echo "Found dist.ini, using Dist::Zilla"
        #dzil authordeps | cpanm
        #cpanm --installdeps .
        echo "Installing author deps" >> $logfile
        dzil authordeps | cpanm >> $logfile 2>&1
        echo "Installing dist deps" >> $logfile
        dzil listdeps | cpanm >> $logfile 2>&1