view release on metacpan or  search on metacpan

lib/AnyEvent/WebService/Notifo.pm  view on Meta::CPAN

  my $cb = delete $args{cb};
  confess("Missing required parameter 'cb', ") unless $cb;

  ## Accept both coderef's and condvar's
  unless (ref($cb) eq 'CODE') {
    my $cv = $cb;
    $cb = sub { $cv->send(@_) };
  }

  my $req = $self->SUPER::send_notification(%args);
  return $self->_do_request($cb, $req);
}

sub _do_request {
  my ($self, $cb, $req) = @_;

  my ($meth, $url, $body, $hdrs) = @$req{qw(method url body headers)};

  return http_request(
    $meth   => $url,