schwern

#!/usr/bin/perl

use perl5i::2;

# A full on Integer class.
{
    package Integer;

    use perl5i::2;
    use Method::Signatures;

schwern

#!/usr/bin/perl

# This turns on function signatures and autoboxing
# amongst a lot of other things.
use perl5i::2;

# This class adds methods callable on all scalar variables.
{
    package SCALAR;
    use perl5i::2;

schwern

#!/usr/bin/perl

use v5.10;
use strict;
use warnings;

use Benchmark qw(cmpthese);

{
    package MS;

schwern

#!/usr/bin/perl

use v5.19;
use strict;
use warnings;

# This isn't strictly necessary, I just want to use them.
use feature 'signatures';
no warnings 'experimental::signatures';

schwern

#!/usr/bin/env perl

use strict;
use warnings;

use Date::Manip::Date;

my($command_date_string, @command) = @ARGV;

my $command_date = Date::Manip::Date->new;

schwern

#!/usr/bin/env perl

# Hand it something like EVO/Class-MakeMethods-1.01.tar.gz on STDIN

use perl5i::2;

use MetaCPAN::API;

my %Releases;
my @Missing;

schwern

# Test that unblocking all threads at once using cond_broadcast won't
# cause them to collide with each other.

use strict;
use warnings;

use Config;

BEGIN {
    if (! $Config{'useithreads'}) {

schwern

#!/usr/bin/env perl

use strict;
use warnings;

use Benchmark qw(cmpthese);

cmpthese shift || -3, {
    "shift"     => sub {
        my $arg = shift;

schwern

#!/usr/bin/env perl

use strict;
use warnings;

use Sub::Quote;

use Benchmark qw(cmpthese);

my $qs = Sub::Quote::inlinify q{my $foo = 23; my $bar = 42; my $biff = 99}, '';

schwern

[color]
        # Turn on colors as applicable
        ui = auto

[alias]
        # Shortcuts
        st = status
        br = branch
        co = checkout