From 68371e78f12feffce4151d6fd9434c3ca46700bd Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 26 Jun 2013 13:52:02 -0400
Subject: turn setting the current package into a parameter

---
 lib/Reply/Plugin/Defaults.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/Reply/Plugin/Defaults.pm')

diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm
index debed09..f1813fb 100644
--- a/lib/Reply/Plugin/Defaults.pm
+++ b/lib/Reply/Plugin/Defaults.pm
@@ -26,7 +26,6 @@ sub read_line {
 }
 
 (my $PREFIX = <<'PREFIX') =~ s/__PACKAGE__/__PACKAGE__/ge;
-package main;
 BEGIN {
     $^H = $__PACKAGE__::default_hints;
     %^H = %$__PACKAGE__::default_hinthash;
@@ -47,8 +46,11 @@ sub compile {
         $args{environment} = { map { %$_ } @envs }
     }
 
+    my $package = delete $args{package} || 'main';
+    my $prefix = "package $package;\n$PREFIX";
+
     return eval_closure(
-        source      => "sub {\n$PREFIX;\n$line\n}",
+        source      => "sub {\n$prefix;\n$line\n}",
         terse_error => 1,
         %args,
     );
-- 
cgit v1.2.3-54-g00ecf