File Coverage

lib/WWW/Mixi/Scraper/Plugin/ListComment.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	1	1	100.0
total	13	27	48.1

package WWW::Mixi::Scraper::Plugin::ListComment;

use strict;
use warnings;
use WWW::Mixi::Scraper::Plugin;

validator {qw( id is_number )};

sub scrape {
  my ($self, $html) = @_;

  my %scraper;
  $scraper{comments} = scraper {
    process 'dl>dd',
      string => 'TEXT';
    process 'dl>dd>a',
      link => '@href',
      subject => 'TEXT';
    process 'dl>dt',
      time => 'TEXT';
    result qw( string time link subject );
  };

  $scraper{list} = scraper {
    process 'div.listCommentArea>ul.entryList01>li',
      'comments[]' => $scraper{comments};
    result qw( comments );
  };

  return $self->post_process(
    $scraper{list}->scrape(\$html) => \&_extract_name
  );
}

1;

__END__