File Coverage

blib/lib/XML/RSS/FOXSports/Utils.pm

Criterion	Covered	Total	%
statement	14	25	56.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	6	13	46.1
pod	8	9	88.8
total	28	52	53.8

#================================================================================
# 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::Utils;

use strict;
use warnings;

use Carp;
use XML::RSS::FOXSports::Constants qw(:all);

our $VERSION = '0.01';

my ($hfds, $vfds, $teams, $mw_url) = (HEADLINE_FEED_URLS, VIDEO_FEED_URLS, TEAM_TO_ID, MOST_WATCHED_URL);

sub new { bless {}, shift };
sub get_available_feeds          { keys %$hfds, keys %$vfds  }
sub get_available_headline_feeds { keys %$hfds }
sub get_available_video_feeds    { keys %$vfds }
sub get_available_leagues        { keys %$teams }
sub get_available_teams          { map { keys %{ $teams->{$_} } } keys %$teams }
sub get_available_leagues_teams  { $teams }
sub get_feed_url  { $hfds->{$_[1]} or  $vfds->{$_[1]} or croak "url for $_[1] feed was not found." }
sub get_feed_urls { values %{ $hfds }, values %{ $vfds }, $mw_url }


__END__