view release on metacpan or  search on metacpan

lib/AnyEvent/SparkBot/SharedRole.pm  view on Meta::CPAN

=item * my $headers=$self->default_headers()

Returns an HTTP::Headers Object that contains the default header values

=cut

sub default_headers  {
  my ($self)=@_;
  my $h=new HTTP::Headers;
  $h->header(Authorization=>'Bearer ' .$self->token);
  $h->header('Content-Type', 'application/json; charset=UTF-8');
  return $h;
}

=back

=head1 AUTHOR

Michael Shipper <AKALINUX@CPAN.ORG>

=cut