File Coverage

blib/lib/WebService/Annict.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	36	37	97.3

package WebService::Annict;
use 5.008001;
use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Headers;

use WebService::Annict::Works;
use WebService::Annict::Episodes;
use WebService::Annict::Records;

our $VERSION = "0.02";

sub new {
  my ($class, %args) = @_;
  my $access_token = $args{access_token};
  my $ua = LWP::UserAgent->new(
    agent => "Perl5 WebService::Annict/$VERSION",
    default_headers => HTTP::Headers->new(
      "Content-Type" => "application/json",
      Accept         => "application/json",
      Authorization  => "Bearer $access_token",
    ),
  );

  bless {
    works => WebService::Annict::Works->new($ua),
  }, $class;
}



1;
__END__