diff options
author | Stevan Little <stevan.little@iinteractive.com> | 2013-09-01 13:27:33 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-09-03 16:50:15 -0400 |
commit | 30d7375bba8b179dedf1c2ca322d758e5330752d (patch) | |
tree | 62427ef686e6f6576a5035887813050faad2fa31 /lib/Reply/Plugin/Hints.pm | |
parent | 5da5169c7fa1a64b9ddc2eae14d9435cc54f107a (diff) | |
download | reply-30d7375bba8b179dedf1c2ca322d758e5330752d.tar.gz reply-30d7375bba8b179dedf1c2ca322d758e5330752d.zip |
twigils
Diffstat (limited to 'lib/Reply/Plugin/Hints.pm')
-rw-r--r-- | lib/Reply/Plugin/Hints.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/Reply/Plugin/Hints.pm b/lib/Reply/Plugin/Hints.pm index a944e40..4f4666d 100644 --- a/lib/Reply/Plugin/Hints.pm +++ b/lib/Reply/Plugin/Hints.pm @@ -30,9 +30,9 @@ lines (at least until C<no strict> is given). =cut class Reply::Plugin::Hints extends Reply::Plugin { - has $hints = $default_hints; - has $hinthash = $default_hinthash; - has $warning_bits = $default_warning_bits; + has $!hints = $default_hints; + has $!hinthash = $default_hinthash; + has $!warning_bits = $default_warning_bits; method mangle_line ($line) { my $package = __PACKAGE__; @@ -56,15 +56,15 @@ LINE # XXX it'd be nice to avoid using globals here, but we can't use # eval_closure's environment parameter since we need to access the # information in a BEGIN block - our $HINTS = $hints; - our $HINTHASH = $hinthash; - our $WARNING_BITS = $warning_bits; + our $HINTS = $!hints; + our $HINTHASH = $!hinthash; + our $WARNING_BITS = $!warning_bits; my @result = $next->($line, %args); - $hints = $HINTS; - $hinthash = $HINTHASH; - $warning_bits = $WARNING_BITS; + $!hints = $HINTS; + $!hinthash = $HINTHASH; + $!warning_bits = $WARNING_BITS; return @result; } |