File Coverage

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

Criterion	Covered	Total	%
statement	15	50	30.0
branch	0	6	0.0
condition	0	2	0.0
subroutine	5	11	45.4
pod	1	1	100.0
total	21	70	30.0

package WWW::Mixi::Scraper::Plugin::ShowFriend;

use strict;
use warnings;
use WWW::Mixi::Scraper::Plugin;
use WWW::Mixi::Scraper::Utils qw( _uri );
use utf8;

validator {qw( id is_number )};

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

  return {
    profile => $self->_scrape_profile($html),
    outline => $self->_scrape_outline($html),
  };
}

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

  my %scraper;
  $scraper{items} = scraper {
    process 'th',
      key => 'TEXT';
    process 'td',
      value => $self->html_or_text;
    result qw( key value );
  };

  $scraper{profile} = scraper {
    process 'div.profileListTable>div>table>tr',
      'items[]' => $scraper{items};
    result qw( items );
  };

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

  my $profile = {};
  foreach my $item ( @{ $stash } ) {
    next unless $item->{key};
    $profile->{$item->{key}} = $item->{value};
  }

  return $profile;
}

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

  my %scraper;
  $scraper{outline} = scraper {
    process 'div#myArea>div.profilePhoto>div.contents>p.name',
      'string' => 'TEXT';
    process 'div#myArea>div.profilePhoto>div.contents>p.name>span.loginTime',
      'description' => 'TEXT';
    process 'div#myArea>div.profilePhoto>div.contents>p.photo>a>img',
      image => '@src';
    process 'div.personalNavigation>ul>li.profile>a',
      link  => '@href';
    result qw( image string description link );
  };

  my $stash = $self->post_process($scraper{outline}->scrape(\$html))->[0];

  my $string = delete $stash->{string} || '';
  if ( $string =~ s/さん\((\d+)\)\s.+// ) {
    $stash->{name}  = $string;
    $stash->{count} = $1;
  }
  if ( $stash->{description} ) {
    $stash->{description} =~ s/^（//;
    $stash->{description} =~ s/）$//;
  }

  return $stash;
}

1;

__END__