diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-10 02:13:25 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-10 02:13:25 -0400 |
commit | 99202371c7784d346cf43a4c25c64bb6d7630f10 (patch) | |
tree | d2a55982c2ff990ec6251a43ed421feb23818da8 /lib/Reply/Plugin/Packages.pm | |
parent | 3db6d5dccb0b1fade69467e1800a8eb763bd3158 (diff) | |
download | reply-99202371c7784d346cf43a4c25c64bb6d7630f10.tar.gz reply-99202371c7784d346cf43a4c25c64bb6d7630f10.zip |
invert the sense of the package message too
Diffstat (limited to 'lib/Reply/Plugin/Packages.pm')
-rw-r--r-- | lib/Reply/Plugin/Packages.pm | 8 |
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; |