diff options
Diffstat (limited to 'lib/Reply/Plugin.pm')
-rw-r--r-- | lib/Reply/Plugin.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lib/Reply/Plugin.pm b/lib/Reply/Plugin.pm index 4eca813..c0746d1 100644 --- a/lib/Reply/Plugin.pm +++ b/lib/Reply/Plugin.pm @@ -137,7 +137,22 @@ should terminate. =cut -sub new { bless {}, shift } +sub new { + my $class = shift; + my (%opts) = @_; + + die "publisher is required" unless $opts{publisher}; + + return bless { + publisher => $opts{publisher}, + }, $class; +} + +sub publish { + my $self = shift; + + $self->{publisher}->(@_); +} =for Pod::Coverage new |