File Coverage

blib/lib/WWW/YahooJapan/Baseball.pm

Criterion	Covered	Total	%
statement	20	32	62.5
branch	0	4	0.0
condition			n/a
subroutine	7	9	77.7
pod	0	2	0.0
total	27	47	57.4

package WWW::YahooJapan::Baseball;
use 5.008001;
use strict;
use warnings;
use utf8;

use WWW::YahooJapan::Baseball::Game;
use WWW::YahooJapan::Baseball::Parser;
use URI;

our $VERSION = "0.01";

sub new {
  my ($class, %self) = @_;
  for my $required (qw/date league/) {
    unless (defined $self{$required}) {
      return undef;
    }
  }
  unless (defined $self{prefix}) {
    $self{prefix} = 'http://baseball.yahoo.co.jp';
  }
  bless \%self, $class;
}

sub games {
  my $self = shift;
  my $uri = URI->new($self->{prefix} . '/npb/schedule/?date=' . $self->{date});
  my @game_uris = WWW::YahooJapan::Baseball::Parser::parse_games_page($self->{date}, $self->{league}, uri => $uri);
  map { WWW::YahooJapan::Baseball::Game->new(uri => $_) } @game_uris;
}

1;
__END__