view release on metacpan or  search on metacpan

lib/Mackerel/Webhook/Receiver/Declare.pm  view on Meta::CPAN

package Mackerel::Webhook::Receiver::Declare;
use strict;
use warnings;

use Mackerel::Webhook::Receiver;
use parent 'Exporter';

our @EXPORT = qw/receiver on/;

our $_RECEIVER;
sub receiver(&) {
    my $code = shift;
    local $_RECEIVER = Mackerel::Webhook::Receiver->new;
    $code->();
    $_RECEIVER;
}

sub on($;$) {
    die 'not in receiver block' unless $_RECEIVER;
    $_RECEIVER->on(@_);
}