jeffa

#!/usr/bin/env plackup

use strict;
use warnings;
use Data::Dumper;
use Plack::Request;
use Plack::Response;

my $app = sub {

jeffa

#!/usr/bin/perl -l
package Model;
use Moose;
has state => ( is => 'ro', reader => 'get_state', default => 0 );
sub set_state { $_[0]->{state} += $_[1] }

package View;
use Moose;
sub update_display { print $_[1]->get_state }

jeffa

prove -rl --formatter=TAP::Formatter::JUnit --timer > junit.xml

jeffa

perl -MData::Dumper -MJSON -MFile::Slurp -e"print Dumper decode_json read_file shift" foo.json

jeffa

perl -e'print /\s+/ ? $/ : unpack B8 => $_ for split //, shift' 'hello world '

jeffa

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;
use Getopt::Long;
use Pod::Usage;

GetOptions (
    'r|remote=s'    => \my $remote,

jeffa

#!/usr/bin/env perl
package LWP::Authen::OAuth2::Dancer;
our $VERSION = '0.1';
use Dancer ':syntax';
use Net::Twitter;
use Scalar::Util 'blessed';
 
our $nt = Net::Twitter->new(
    traits   => [qw/API::RESTv1_1/],
    consumer_key        => '',

jeffa

#!/usr/bin/env perl
package LWP::Authen::OAuth2::Dancer;
our $VERSION = '0.1';
use Dancer ':syntax';
use LWP::Authen::OAuth2;

our $oauth2 = LWP::Authen::OAuth2->new(
    client_id        => '',
    client_secret    => '',
    service_provider => 'Google',

jeffa

use strict;
use warnings;
use DBI;

# connect
my $dbh = DBI->connect(
   qw(DBI:mysql:mp3:host user pass),
   { RaiseError => 1 }
);

jeffa

use strict;
use warnings;
use Math::Matrix qw(transpose);
use Spreadsheet::ParseExcel::Simple;
use Spreadsheet::WriteExcel::Simple;

my $xls = Spreadsheet::ParseExcel::Simple->read('old.xls');
my @data;
for ($xls->sheets) {
   while ($_->has_data) {