automoo

automoo.pl

use 5.10.0;

sub create_moo {
    my ( $class, $prototype ) = @_;

    eval join "\n", "package $class;", 'use Moo;',
          map { "has $_ => ( is => 'ro' );" } keys %$prototype;

    return $class;
}

my %test = ( a => 1, b => 2, c => 3 );

my $obj = create_moo( 'Stuff', \%test )->new( %test );

say $obj->c;

I'm trying to remember a way of modifying the current namespace outside of doing eval "package $foo;", and I don't come up with anything...