diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-06-27 18:21:59 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-06-27 18:21:59 -0400 |
| commit | 6bd057874f99aeb2c0d243880f3333a64d96045f (patch) | |
| tree | cff8f85b8a3a784a582774b3ab9f160a74032c68 /lib/Reply/Plugin.pm | |
| parent | ca1aa50a460e9a179168dfb211f3e32751f69bb7 (diff) | |
| download | reply-6bd057874f99aeb2c0d243880f3333a64d96045f.tar.gz reply-6bd057874f99aeb2c0d243880f3333a64d96045f.zip | |
clean up the publisher stuff some more
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 |