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
David Leadbeater <dgl@dgl.cx>
+haarg - Graham Knop (cpan:HAARG) <haarg@cpan.org>
+
=head1 COPYRIGHT
Copyright (c) 2010 the Eval::WithLexicals L</AUTHOR> and L</CONTRIBUTORS>
as perl itself.
=cut
-
-1;