From 30d7375bba8b179dedf1c2ca322d758e5330752d Mon Sep 17 00:00:00 2001 From: Stevan Little Date: Sun, 1 Sep 2013 13:27:33 -0400 Subject: twigils --- lib/Reply/Plugin/Hints.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'lib/Reply/Plugin/Hints.pm') 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 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; } -- cgit v1.2.3-54-g00ecf