package My::Object;
use Moose;

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

sub BUILD {
    my ($self, $params) = @_;
    $self->foo( $params->{bar} );
}