diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Reply.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/Reply.pm b/lib/Reply.pm index bb72149..d5a3d4d 100644 --- a/lib/Reply.pm +++ b/lib/Reply.pm @@ -283,6 +283,22 @@ sub _chained_plugin { return @args; } +sub _concatenate_plugin { + my $self = shift; + my @plugins = ref($_[0]) ? @{ shift() } : $self->_plugins; + my ($method, @args) = @_; + + @plugins = grep { $_->can($method) } @plugins; + + my @results; + + for my $plugin (@plugins) { + push @results, $plugin->$method(@args); + } + + return @results; +} + =head1 BUGS No known bugs. |