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.pm | |
parent | 5da5169c7fa1a64b9ddc2eae14d9435cc54f107a (diff) | |
download | reply-30d7375bba8b179dedf1c2ca322d758e5330752d.tar.gz reply-30d7375bba8b179dedf1c2ca322d758e5330752d.zip |
twigils
Diffstat (limited to 'lib/Reply.pm')
-rw-r--r-- | lib/Reply.pm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lib/Reply.pm b/lib/Reply.pm index 4261109..6c4bd8f 100644 --- a/lib/Reply.pm +++ b/lib/Reply.pm @@ -80,8 +80,8 @@ An arrayref of additional plugins to load. =cut class Reply { - has $plugins = []; - has $_default_plugin = $_->_instantiate_plugin('Defaults'); + has $!plugins = []; + has $!_default_plugin = $_->_instantiate_plugin('Defaults'); submethod BUILD ($opts) { if (defined $opts->{config}) { @@ -170,7 +170,7 @@ requested to quit. method _load_plugin ($plugin, $opts) { $plugin = $self->_instantiate_plugin($plugin, $opts); - push @$plugins, $plugin; + push @{$!plugins}, $plugin; } method _instantiate_plugin ($plugin, $opts) { @@ -193,7 +193,7 @@ requested to quit. } method _plugins { - return (@$plugins, $_default_plugin); + return (@{$!plugins}, $!_default_plugin); } method _read { @@ -239,11 +239,11 @@ requested to quit. # XXX $self should be available in parameter defaults too $plugins //= [ $self->_plugins ]; - $plugins = [ grep { $_->can($method) } @$plugins ]; + $plugins = [ grep { $_->can($method) } @{$plugins} ]; - return @$args unless @$plugins; + return @$args unless @{$plugins}; - my $plugin = shift @$plugins; + my $plugin = shift @{$plugins}; my $next = sub { $self->_wrapped_plugin($method, [@_], $plugins) }; return $plugin->$method($next, @$args); @@ -253,9 +253,9 @@ requested to quit. # XXX $self should be available in parameter defaults too $plugins //= [ $self->_plugins ]; - $plugins = [ grep { $_->can($method) } @$plugins ]; + $plugins = [ grep { $_->can($method) } @{$plugins} ]; - for my $plugin (@$plugins) { + for my $plugin (@{$plugins}) { @$args = $plugin->$method(@$args); } @@ -266,11 +266,11 @@ requested to quit. # XXX $self should be available in parameter defaults too $plugins //= [ $self->_plugins ]; - $plugins = [ grep { $_->can($method) } @$plugins ]; + $plugins = [ grep { $_->can($method) } @{$plugins} ]; my @results; - for my $plugin (@$plugins) { + for my $plugin (@{$plugins}) { push @results, $plugin->$method(@$args); } |