trAvis - MANAGER

Edit File: Construct.pm

#!/usr/bin/perl package Bench::Construct; use Moose; use Moose::Util::TypeConstraints; has class => ( isa => "Str", is => "ro", ); eval { coerce ArrayRef => from HashRef => via { [ %$_ ] }; }; has args => ( isa => "ArrayRef", is => "ro", auto_deref => 1, coerce => 1, ); sub code { my $self = shift; my $class = $self->class; my @args = $self->args; sub { my $obj = $class->new( @args ) } } __PACKAGE__; __END__