Select Code to Download

package MemImpact;
use vars qw($before $after $now);
...
}
END { printf "%-40s % 10d kB\n", "total impact:" , $after - $before; }
1;

perl -MMemImpact=Moose,MooseX::AttributeHelpers -e 1

#!/usr/bin/perl
use MemImpact qw(Moose);
use MemImpact qw(MooseX::AttributeHelpers);

initial memory:                                7576 kB
after loading Moose:                          13408 kB
...
after loading MooseX::AttributeHelpers:       14848 kB
impact of MooseX::AttributeHelpers:            1440 kB
total impact:                                  7272 kB