oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scripts aren't classes, so use anon package instead

Browse source
This commit is contained in:
Graham Knop 2012-11-17 15:59:00 -05:00
parent 798c3e169a
commit 58d6aff8f6
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Upgrade/File/pl.pm
View file

@ -18,7 +18,7 @@ WebGUI::Upgrade::File::pl - Upgrade class for Perl scripts
package WebGUI::Upgrade::File::pl;
use Moose;
use Class::MOP::Class;
use Class::MOP::Package;
use File::Spec::Functions qw(devnull);
use Scope::Guard;
use namespace::autoclean -also => qr/^_/;
@ -52,9 +52,9 @@ sub _runScript {
local *_;
# use an anonymous package for this code. the namespace will
# automatically be deleted when this goes out of scope.
my $anon_class = Class::MOP::Class->create_anon_class;
my $anon_package = Class::MOP::Package->create_anon;
my $wanted = wantarray;
eval sprintf(<<'END_CODE', $anon_class->name);
eval sprintf(<<'END_CODE', $anon_package->name);
package %s;
# maintain context
if ($wanted) {