use Moo::Role ();
use Sub::Quote;
-our $VERSION = '1.001000'; # 1.1.0
+our $VERSION = '1.002000'; # 1.2.0
$VERSION = eval $VERSION;
has lexicals => (is => 'rw', default => quote_sub q{ {} });
isa => sub {
my ($val) = @_;
die "Invalid context type $val - should be list, scalar or void"
- unless $valid_contexts{$val};
+ unless $valid_contexts{$val};
},
);
}
}
}
+1;
+__END__
+
=head1 NAME
Eval::WithLexicals - pure perl eval with persistent lexical variables
as perl itself.
=cut
-
-1;