Select Code to Download

package LockedBox;
use Moose;
...
        lock_value( %$self, $attr->name )
    }
}

my $foo = LockedBox->new( bar => 10 );

my $foo = LockedBox->new( bar => 10, baz => 100 );

$foo->{baz} = 20;

$foo->{bar} = 20;