New posts in Moose

Can anybody please explain (my $self = shift) in Perl