File Coverage

blib/lib/Chess/ICC.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	31	32	96.8

package Chess::ICC;

require 5.005_62;
use strict;
use warnings;

use Data::Dumper;
use HTML::TreeBuilder;
use LWP::Simple;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Chess::ICC ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our $VERSION = '0.02';


# Preloaded methods go here.

sub games {
  my (undef, %cfg) = @_;
  my $url = "http://www.chessclub.com/finger/$cfg{of}";
  warn "querying $url";
  my $content = get $url;
  my $tree = HTML::TreeBuilder->new_from_content($content);
#  warn $tree;
  warn $content;
  my $h3 = $tree->look_down('_tag' => 'h3');
  my $table = $tree->look_down('_tag' => 'table');
  my @tr = $table->look_down('_tag' => 'tr');
  warn "we have ", scalar @tr, " rows";
#  warn Dumper($games);
}

1;
__END__