invert the sense of the package message too

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;