File Coverage

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

Criterion	Covered	Total	%
statement	9	29	31.0
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	1	1	100.0
total	13	36	36.1

package WWW::Mixi::Scraper::Plugin::ListMessage;

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

validator {qw( page is_number box is_anything )};

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

  my %scraper;
  $scraper{messages} = scraper {
    process 'td.subject',
      string => 'TEXT';
    process 'td.subject>a',
      link => '@href';
    process 'td.status>img',
      envelope => '@src';
    process 'td.date',
      date => 'TEXT';
    process 'td.sender',
      sender => 'TEXT';
    result qw( string envelope link date sender );
  };

  $scraper{list} = scraper {
    process 'div.messageListBody>table.tableBody>tr',
      'messages[]' => $scraper{messages};
    result qw( messages );
  };

  my $stash = $self->post_process( $scraper{list}->scrape(\$html) );

  my @messages;
  for my $msg (@{ $stash }) {
    $msg->{sender} =~ s/^\s+//;
    $msg->{sender} =~ s/\s+$//;
    push @messages, {
      subject  => $msg->{string},
      name     => $msg->{sender},
      link     => $msg->{link},
      envelope => $msg->{envelope},
      time     => $msg->{date},  #???
    };
  }

  return $self->post_process( \@messages );
}

1;

__END__