File Coverage

blib/lib/WWW/Txodds.pm

Criterion	Covered	Total	%
statement	12	163	7.3
branch	0	14	0.0
condition	1	17	5.8
subroutine	4	31	12.9
pod			n/a
total	17	225	7.5

package WWW::Txodds;

use 5.006;
use strict;
use warnings;

require HTTP::Request::Common;
require LWP::UserAgent;
require XML::LibXML::Simple;
require Carp;

our $VERSION = '0.69';
use constant DEBUG => $ENV{TXODDS_DEBUG} || 0;

sub new {
    my $class = shift;
    my $self  = {@_};

    $self->{ua} ||= LWP::UserAgent->new( agent => "TXOdds-agent/$VERSION" );
    $self->{xml} ||= XML::LibXML::Simple->new;
    bless $self, $class;
}

sub odds_feed {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/odds/xml.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ),
        ForceArray => 'bookmaker' );
}

sub results_feed {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/result/xml.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub htcs_feed {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/odds/htftcrs.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub average_feed {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/average/xml.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub antepost_feed {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/odds/ap.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub boid_states {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/boid_states.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub starting_times {
    my ( $self, %params ) = @_;
    my $url = 'http://txodds.com/feed/starting_times.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub moves {
    my ( $self, %params ) = @_;
    my $url = 'http://www.txodds.com/feed/moves/xml.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub sports {
    my $self    = shift;
    my $content = $self->get('http://xml2.txodds.com/feed/sports.php');
    my $data = $self->parse_xml( $content, ValueAttr => [ 'sport', 'name' ] );

    my %sports;
    foreach (@$data) {
        $sports{ $_->{id} } = $_->{name};
    }
    return %sports;
}

sub mgroups {
    my ( $self, %params ) = @_;
    my $content =
      $self->get( 'http://xml2.txodds.com/feed/mgroups.php', \%params );
    my $data =
      $self->parse_xml( $content, ValueAttr => [ 'mgroup', 'sportid' ] );
    my %mgroups;
    foreach (@$data) {
        $mgroups{ $_->{name} } = $_->{sportid};
    }
    return %mgroups;
}

sub odds_types {
    my $self    = shift;
    my $content = $self->get('http://xml2.txodds.com/feed/odds_types.php');
    my $data    = $self->parse_xml( $content, ValueAttr => ['type'] );
    unless (@_) {
        my %obj;
        foreach (@$data) {
            $obj{ $_->{ot} } = $_->{name};
        }
        return \%obj;
    }
    else { return $data; }
}

sub offer_amounts {
    my ( $self, %params ) = @_;
    my $content =
      $self->get( 'http://xml2.txodds.com/feed/offer_amounts.php', \%params );
    my $data = $self->parse_xml( $content, ValueAttr => ['offer'] );
    my %obj;
    if ( ref $data eq 'ARRAY' ) {
        foreach (@$data) { $obj{ $_->{boid} } = $_->{amount}; }
    }
    elsif ( ref $data eq 'HASH' ) {
        $obj{ $$data{boid} } = $$data{amount};
    }
    return \%obj;
}

sub ap_offer_amounts {
    my $self = shift;
    my $content =
      $self->get('http://xml2.txodds.com/feed/ap_offer_amounts.php');
    my $data = $self->parse_xml( $content, ValueAttr => ['offer'] );
    return $data;
}

sub deleted_ap_offers {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/deleted_ap_offers.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub countries {
    my $self    = shift;
    my $content = $self->get('http://xml2.txodds.com/feed/countries.php');
    my $data    = $self->parse_xml( $content, ValueAttr => ['country'] );
    return $data;
}

sub competitors {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/competitors.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ),
        ValueAttr => ['competitor'] );
}

sub deleted_peids {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/deleted_peids.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub deleted_boids {
    my ( $self, %params ) = @_;
    my $url = 'http://xml2.txodds.com/feed/deleted_boids.php';
    @params{ 'ident', 'passwd' } = get_ident_passwd();
    return $self->parse_xml( $self->get( $url, \%params ) );
}

sub groups {
    my ( $self, %params ) = @_;
    my $content =
      $self->get( 'http://xml2.txodds.com/feed/groups.php', \%params );
    my $data = $self->parse_xml( $content, ValueAttr => ['group'] );

    return $data;
}

sub books {
    my ( $self, %params ) = @_;
    my $content =
      $self->get( 'http://xml2.txodds.com/feed/books.php', \%params );
    my $data = $self->parse_xml( $content, ValueAttr => ['bookmaker'] );

    return $data;
}

sub xml_schema {
    my $self    = shift;
    my $content = $self->get('http://xml2.txodds.com/feed/odds/odds.xsd');
    return $content;
}

sub create_get_request {
    my ( $self, $url, $params ) = @_;

    $url = URI->new($url);
    $url->query_form(%$params);

    HTTP::Request::Common::GET($url);
}

sub get {
    my $self = shift;

    my $request = $self->create_get_request(@_);

    warn "GET>\n" if DEBUG;
    warn $request->as_string if DEBUG;

    my $response = $self->{ua}->request($request);

    warn "GET<\n" if DEBUG;

    return $response->decoded_content;
}

sub parse_xml {
    my ( $self, $xml_string, %options ) = @_;

    my $obj = $self->{xml}->XMLin( $xml_string, %options );

    Carp::croak( "Wrong responce: " . $xml_string ) unless $obj;

    return $obj;
}

sub get_ident_passwd {
    my $self = shift;
    Carp::croak(
        "ident & passwd of http://txodds.com API required for this action")
      unless ( $self->{ident} && $self->{passwd} );
    return $self->{ident}, $self->{passwd};
}

sub clean_obj {
    my ( $self, $BadObj ) = @_;
    my %sports  = $self->sports();
    my %mgroups = $self->mgroups();

    my $obj->{'timestamp'} = $BadObj->{'timestamp'};
    $obj->{time} = $BadObj->{'time'};
    $obj->{'time'} =~
s/(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):\d{2}\+\d{2}:\d{2}/$4:$5 $3-$2-$1/;
    while ( my ( $MatchId, $MatchObj ) = each %{ $BadObj->{match} } ) {
        my $Home =
          $MatchObj->{hteam}->{ each %{ $MatchObj->{hteam} } }->{content};
        my $Away =
          $MatchObj->{ateam}->{ each %{ $MatchObj->{ateam} } }->{content};
        my $Group =
          $MatchObj->{group}->{ each %{ $MatchObj->{group} } }->{content};
        my $MatchTime = $MatchObj->{'time'};
        $MatchTime =~
s/(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):\d{2}\+\d{2}:\d{2}/$4:$5 $3-$2-$1/;
        my $Sport = $sports{ $mgroups{$1} } if $Group =~ m/^([A-Z]+).*/;
        $Group =~ s/^[A-Z]+ (.*)/$1/;

        %{ $obj->{sport}->{$Sport}->{$Group}->{"$Home - $Away"} } = (
            MatchTime => $MatchTime,
            Home      => $Home,
            Away      => $Away
        );

        while ( my ( $BookmakerName, $BookmakerObj ) =
            each %{ $MatchObj->{bookmaker} } )
        {
            while ( my ( $OfferId, $OfferObj ) =
                each %{ $BookmakerObj->{offer} } )
            {
                my $ot = $OfferObj->{ot};
                if (
                    $ot == 0
                    && (   $OfferObj->{odds}->[0]->{o1}
                        || $OfferObj->{odds}->[0]->{o2}
                        || $OfferObj->{odds}->[0]->{o3} )
                  )
                {
                    %{ $obj->{sport}->{$Sport}->{$Group}->{"$Home - $Away"}
                          ->{bookmaker}->{$BookmakerName}->{offer}->{$ot} } = (
                        1 => $OfferObj->{odds}->[0]->{o1},
                        x => $OfferObj->{odds}->[0]->{o2},
                        2 => $OfferObj->{odds}->[0]->{o3}
                          );
                }
            }
        }
    }
    return $obj;
}

__END__