Select Code to Download

package Foo;
use Moose;

has data (is => 'rw');

my $foo = Foo->new(data => { this => 1, that => 2 });
$foo->this #  returns $foo->data->{this}
$foo->that(10) # sets $foo->data->{that} = 10