File Coverage

blib/lib/WWW/CBF.pm

Criterion	Covered	Total	%
statement	16	35	45.7
branch	0	2	0.0
condition			n/a
subroutine	6	9	66.6
pod	3	3	100.0
total	25	49	51.0

package WWW::CBF;
use warnings;
use strict;

use utf8::all;
use URI;
use Web::Scraper;
eval 'use HTML::TreeBuilder::LibXML';

our $VERSION = '0.03';

my $cbf = scraper {
	process 'tr', 'clubes[]' => scraper {
		process 'td', 'dados[]'  => 'TEXT';
	},
};

sub new {
	my $class = shift;
	my $self = {};
	bless $self, $class;

	$self->reload;
	return $self;
}

sub reload {
	my $self = shift;
	my $url = 'http://www.cbf.com.br/competicoes/campeonato-brasileiro/serie-a/2012';

	my $site = $cbf->scrape( URI->new($url) );

	my $pos = -1;
	foreach my $clube ( @{$site->{clubes}} ) {
		next if ++$pos == 0; # first entry contains just table fields

		# get values from scraper
		$self->{$pos} = {
			clube    => $clube->{dados}->[1],
			pontos   => $clube->{dados}->[3],
			jogos    => $clube->{dados}->[4],
			vitorias => $clube->{dados}->[5],
			empates  => $clube->{dados}->[6],
			derrotas => $clube->{dados}->[7],
			gp       => $clube->{dados}->[8],
			gc       => $clube->{dados}->[9],
			sg       => $clube->{dados}->[10],
			ap       => $clube->{dados}->[11],
		};
	}

	return $self;
}


sub pos {
	my $self = shift;
	my $pos  = shift;

	return $self->{$pos};
}

42;
__END__