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

#!/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

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

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

jeffa

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

jeffa

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

jeffa

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

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

#!/usr/bin/env plackup

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

my $app = sub {

jeffa

package HTML::Auto;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT = qw( html head title body h1 p br table Tr td );                                                          
our $AUTOLOAD;                                                                                                         
sub new { bless {}, shift }                                                                                            
sub AUTOLOAD {                                                                                                         
    my $self = ref($_[0]) eq __PACKAGE__ ? shift : undef;                                                              
    my $attr = ref($_[0]) eq 'HASH' ? shift : {};                                                                      

jeffa

grep package t/lib/Test/Strategy/*.pm | perl -F'\s' -lape's/(:package|;)//for@F;$_=sprintf"  * [%s](/%s)",reverse@F'