view release on metacpan or  search on metacpan

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

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(@_);
}

1;
__END__

=encoding utf-8

=head1 NAME