view release on metacpan or  search on metacpan

lib/Github/Hooks/Receiver/Declare.pm  view on Meta::CPAN

package Github::Hooks::Receiver::Declare;
use strict;
use warnings;

use Github::Hooks::Receiver;
use parent 'Exporter';

our @EXPORT = qw/receiver secret on/;

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

sub secret($) {
    die 'not in receiver block' unless $_RECEIVER;
    $_RECEIVER->{secret} = $_[0];
}