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;