Source

p5-crm-care / moosetest.pl

Full commit
package Local::TestMoose;

use Data::Dumper;
use 5.010;
use Moose;

has fluff => (is=>'rw');

our $AUTOLOAD;

sub AUTOLOAD
{
	say $AUTOLOAD;
}

__PACKAGE__->meta->make_immutable;

package main;

my $ltm = Local::TestMoose->new(foo=>1);
print "Hello\n";
$ltm->fluff(8);
$ltm->FooBar;
print "World\n";