package Haz;
use Modern::Perl;
use lib 'lib';

use Moo;
use Acme::Mo;


# has split / /, 'cheezburgers is rw default 22';
haz 'cheezburgers is rw default 22';
rw 'weight default 100';
ro 'name default barbara';
rwdef100 'money';

package main;

run();

sub run
{
    my $haz = Haz->new;
    say "haz = ", Dumper($haz);
    say 'i haz ', $haz->cheezburgers, ' cheezburgers';
    $haz->weight(99);
    say 'weight: ', $haz->weight;
    say 'name: ', $haz->name;
    #$haz->name('jane');
    say "it all worked";
}
__END__