File Coverage

blib/lib/XML/RSS/FOXSports.pm

Criterion	Covered	Total	%
statement	52	120	43.3
branch	6	78	7.6
condition	1	5	20.0
subroutine	19	38	50.0
pod	11	15	73.3
total	89	256	34.7

#=========================================================i======================
# Copyright (c) Brian Perez 2005. All rights reserved.
#--------------------------------------------------------------------------------
# This library is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
#================================================================================
package XML::RSS::FOXSports;

use 5.006;
use strict;
use warnings;

use XML::RSS::Parser;
use base qw(XML::RSS::Parser);

use Carp;
use LWP::UserAgent;
use XML::RSS::FOXSports::Constants qw(:feed_urls HEADLINE_BASE_URL TEAM_TO_ID);

our $VERSION = '0.02';

my $ua = LWP::UserAgent->new();
   $ua->agent('XML::RSS::FOXSports/'.$VERSION);

my $DEBUG = 0;

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my %opts  = @_;
  my $self  = $class->SUPER::new();
  $self->_set_fsutil unless $opts{NoUtil};
  $self->_set_fsmeta if $opts{Meta};
  $self->_set_debug  if $opts{Debug};
  return $self;
}

#-- AUTOLOAD ------
#-- used for method proxies
sub AUTOLOAD {
  our $AUTOLOAD;
  my ($method, $feed);
  ($method = $AUTOLOAD) =~ s/.*:://;
  warn "[dbg] method called: $method" if $DEBUG;
  die "$method is not a currently supported method" unless $method =~ /^parse_/;
  $feed = uc ((split('_', $method, 2))[1]);
  #-- headlines ----
  if (defined HEADLINE_FEED_URLS->{$feed}) {
    {
      no strict 'refs';
      *{$AUTOLOAD} =
        sub {
          my ($rss_xml, $message) = $_[0]->_get_rss_feed(HEADLINE_FEED_URLS->{$feed});
          croak "rss xml feed is empty with message $message" unless defined $rss_xml;
          $_[0]->_save_meta_data($feed, HEADLINE_FEED_URLS->{$feed}) if $_[0]->{_fsmeta};
          #-- for xml::rss::parser 4.0 compatibility
          return $_[0]->SUPER::parse_string($rss_xml) if $_[0]->SUPER::can('parse_string');
          return $_[0]->SUPER::parse($rss_xml);
        };
      goto &{$AUTOLOAD};
    }
  }
  #-- video ----
  elsif (defined VIDEO_FEED_URLS->{$feed}) {
    {
      no strict 'refs';
      *{$AUTOLOAD} =
        sub {
          my ($rss_xml, $message) = $_[0]->_get_rss_feed(VIDEO_FEED_URLS->{$feed});
          croak "rss xml feed is empty with message $message" unless defined $rss_xml;
          $_[0]->_save_meta_data($feed, VIDEO_FEED_URLS->{$feed}) if $_[0]->{_fsmeta};
          #-- for xml::rss::parser 4.0 compatibility
          return $_[0]->SUPER::parse_string($rss_xml) if $_[0]->SUPER::can('parse_string');
          return $_[0]->SUPER::parse($rss_xml);
        };
      goto &{$AUTOLOAD};
    }
  } #-- specific team (e.g., Giants, 49ers, Galaxy)
  elsif ($feed =~ /_TEAM$/) {
    my ($league, $ext) = split('_', $feed, 2);
    if (defined TEAM_TO_ID->{$league}) {
      croak 'sports team was not found, perhaps you forgot to supply one.' unless defined $_[1];
      {
        no strict 'refs';
        *{$AUTOLOAD} =
          sub {
            my $url = HEADLINE_BASE_URL . TEAM_TO_ID->{$league}->{lc $_[1]};
            my ($rss_xml, $message) = $_[0]->_get_rss_feed($url);
            croak "rss xml feed is empty with message $message" unless defined $rss_xml;
            $_[0]->_save_meta_data($league.'_'.lc $_[1], $url) if $_[0]->{_fsmeta};
            #-- for xml::rss::parser 4.0 compatibility
            return $_[0]->SUPER::parse_string($rss_xml) if $_[0]->SUPER::can('parse_string');
            return $_[0]->SUPER::parse($rss_xml);
          };
        goto &{$AUTOLOAD};
      }
    }
  }
  else {
    die "$method is not a currently supported method";
  }
}

#-- parse_team ------
sub parse_team {
  warn "[dbg] (parse_team) league:$_[1] team:$_[2]" if $DEBUG;
  TEAM_TO_ID->{uc $_[1]}           or die "the league $_[1] is not currently available";
  TEAM_TO_ID->{uc $_[1]}{lc $_[2]} or die "the team $_[2] is not currently available";
  my $sub = join('','parse_', $_[1], '_team');
  warn "[dbg] (parse_team) sub:$sub" if $DEBUG;
  $_[0]->$sub($_[2]);
}


#-- util methods ------
sub http_timeout     { $_[1] ? $ua->timeout($_[1]) : $ua->timeout }
sub last_parsed_url  { $_[0]->{_fsmeta}{last_parsed_url}  or ''   }
sub last_parsed_feed { $_[0]->{_fsmeta}{last_parsed_feed} or ''   }
sub parsed_feed      { $_[0]->{_fsmeta}{parsed_feeds}     or {}   }

sub get_feed_url {
  $_[0]->{_fsutil}
    ? $_[0]->{_fsutil}->get_feed_url($_[1])
    : $_[0]->_na;
}

sub get_feed_urls {
  $_[0]->{_fsutil}
    ? $_[0]->{_fsutil}->get_feed_urls
    : $_[0]->_na;
}

sub get_available_feeds {
  $_[0]->{_fsutil}
    ? $_[0]->{_fsutil}->get_available_feeds
    : $_[0]->_na;
}

sub get_available_teams {
  $_[0]->{_fsutil}
    ? $_[0]->{_fsutil}->get_available_teams
    : $_[0]->_na;
}

sub get_available_leagues {
  $_[0]->{_fsutil}
    ? $_[0]->{_fsutil}->get_available_leagues
    : $_[0]->_na;
}

sub get_available_headline_feeds {
  $_[0]->{_fsutil}
    ? $_[0]->{_fsutil}->get_available_headline_feeds
    : $_[0]->_na;
}

sub get_available_video_feeds {
  $_[0]->{_fsutil}
    ? $_[0]->{_fsutil}->get_available_video_feeds
    : $_[0]->_na;
}

sub get_available_leagues_teams  {
  $_[0]->{_fsutil}
    ? $_[0]->{_fsutil}->get_available_leagues_teams
    : $_[0]->_na;
}

sub debug { $_[1] ? $_[0]->_set_debug($_[1]) : $DEBUG }

sub DESTROY {
  my $self = shift;
  delete $self->{_fsutil};
  delete $self->{_fsmeta};
  #$self->SUPER::DESTROY;
}


#== PRIVATE METHODS ===================================

sub _get_rss_feed {
  my $res = $ua->get($_[1]);
  warn "[dbg] url requested: $_[1]" if $DEBUG;
  warn "[dbg] status line: $res->status_line" if $DEBUG;
  return $res->content, undef if $res->is_success;
  return undef, $res->status_line;
}

#-- avoid clashes
sub _set_fsutil {
  use XML::RSS::FOXSports::Utils;
  $_[0]->{_fsutil} = XML::RSS::FOXSports::Utils->new();
}

sub _set_fsmeta {
  $_[0]->{_fsmeta} = {
    last_parsed_feed => '',
    last_parsed_url  => '',
    parsed_feeds     => {},
  };
}

sub _na { "not available" }

sub _set_debug { $DEBUG = $_[1] || 1; }

sub _save_meta_data {
  $_[0]->{_fsmeta}{last_parsed_feed} = $_[1];
  $_[0]->{_fsmeta}{last_parsed_url}  = $_[2];
  $_[0]->{_fsmeta}{parsed_feeds}{$_[1]}++;
}


1;


__END__