Moose Package Foolishness

test.pl

package Test;
use Moose;

has m => ( is => 'rw', default => sub { "Hello, World!" } );

sub run {
    my $t = Test->new;
    print $t->m . "\n";
}

run unless caller;