summaryrefslogtreecommitdiffstats
path: root/lib/Reply/Plugin/Hints.pm
diff options
context:
space:
mode:
authorStevan Little <stevan.little@iinteractive.com>2013-09-01 13:27:33 -0400
committerJesse Luehrs <doy@tozt.net>2013-09-03 16:50:15 -0400
commit30d7375bba8b179dedf1c2ca322d758e5330752d (patch)
tree62427ef686e6f6576a5035887813050faad2fa31 /lib/Reply/Plugin/Hints.pm
parent5da5169c7fa1a64b9ddc2eae14d9435cc54f107a (diff)
downloadreply-30d7375bba8b179dedf1c2ca322d758e5330752d.tar.gz
reply-30d7375bba8b179dedf1c2ca322d758e5330752d.zip
twigils
Diffstat (limited to 'lib/Reply/Plugin/Hints.pm')
-rw-r--r--lib/Reply/Plugin/Hints.pm18
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;
}