diff options
author | Jesse Luehrs <doy@tozt.net> | 2015-12-02 20:51:30 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2015-12-02 20:54:40 -0500 |
commit | b09901c5c1c9b024cb4253e85b3263b992339339 (patch) | |
tree | 40ef1e97f0f79f5202d87527975aac8e35e34b3d /lib/Reply/Plugin/Defaults.pm | |
parent | 4a19c586a3ad3f3a8ca1b8b3dc2ba761c57e8cb9 (diff) | |
download | reply-b09901c5c1c9b024cb4253e85b3263b992339339.tar.gz reply-b09901c5c1c9b024cb4253e85b3263b992339339.zip |
set a default package in case the Packages plugin isn't used (#45)
Diffstat (limited to 'lib/Reply/Plugin/Defaults.pm')
-rw-r--r-- | lib/Reply/Plugin/Defaults.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm index e7874e3..bbe5934 100644 --- a/lib/Reply/Plugin/Defaults.pm +++ b/lib/Reply/Plugin/Defaults.pm @@ -48,6 +48,7 @@ sub compile { my $env = { map { %$_ } $self->publish('lexical_environment') }; my $package = ($self->publish('package'))[-1]; + $package = 'main' unless defined $package; my $prefix = "package $package;\n$PREFIX"; |