summaryrefslogtreecommitdiffstats
path: root/lib/Reply/Plugin/Packages.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Reply/Plugin/Packages.pm')
-rw-r--r--lib/Reply/Plugin/Packages.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Reply/Plugin/Packages.pm b/lib/Reply/Plugin/Packages.pm
index a206d6e..75b459e 100644
--- a/lib/Reply/Plugin/Packages.pm
+++ b/lib/Reply/Plugin/Packages.pm
@@ -27,8 +27,6 @@ sub new {
my $self = $class->SUPER::new(@_);
$self->{package} = $opts{default_package} || 'main';
- $self->publish('package', $self->{package});
-
return $self;
}
@@ -56,9 +54,13 @@ sub compile {
# eval_closure's environment parameter since we need to access the
# information in a BEGIN block
$self->{package} = our $package;
- $self->publish('package', $self->{package});
return @result;
}
+sub package {
+ my $self = shift;
+ return $self->{package};
+}
+
1;