perl -de 'BEGIN { push @DB::typeahead, q{$s = PIPs->new->model("PIPs")->schema} }; 1'
If you're using Moose, MooseX::AttributeHelpers has a Counter helper that will give you increment_num and decrement mutators:
use MooseX::AttributeHelpers;
has num => (
metaclass => 'Counter',
isa => 'Num',
is => 'ro',
provides => {
inc => 'inc_num',
dec => 'dec_num',
reset => 'reset_num',
}
);
my $thing = Foo->new(num => 26);
$thing->inc_num;
$thing->inc_num;
Like many others, I prefer to leave the system perl alone. I also like the flattened libdir structure that Aristotle describes here:
PREFIX=$HOME/perl-5.10