File Coverage

blib/lib/WWW/Mixi/OO/TablePreviewListPage.pm

Criterion	Covered	Total	%
statement	15	49	30.6
branch	0	12	0.0
condition			n/a
subroutine	5	8	62.5
pod	1	1	100.0
total	21	70	30.0

# -*- cperl -*-
# copyright (C) 2005 Topia . all rights reserved.
# This is free software; you can redistribute it and/or modify it
#   under the same terms as Perl itself.
# $Id: TablePreviewListPage.pm 100 2005-02-04 19:19:55Z topia $
# $URL: file:///usr/minetools/svnroot/mixi/trunk/WWW-Mixi-OO/lib/WWW/Mixi/OO/TablePreviewListPage.pm $
package WWW::Mixi::OO::TablePreviewListPage;
use strict;
use warnings;
use URI;
use URI::QueryParam;
use base qw(WWW::Mixi::OO::TableListPage);

=head1 NAME

WWW::Mixi::OO::TablePreviewListPage - WWW::Mixi::OO's Table style List Pages base class

=head1 SYNOPSIS

  package WWW::Mixi::OO::Foo;
  use base qw(WWW::Mixi::OO::TableListPage);
  # some implementations...

=head1 DESCRIPTION

table style list pages base class.

=head1 METHODS

=over 4

=cut

=item parse_title

title parser: return scalar.

=cut

sub parse_title {
    my $this = shift;
    my $part = $this->parse_table_item('title');
    return () unless defined $part;
    return () unless $part =~ m|(.+)
    return $1;
}

sub _parse_table {
    my $this = shift;
    return $this->SUPER::_parse_table(@_) if @_ == 1; # overridable

    my $attr_regex = $this->regex_parts->{html_attr};
    my $attrval_regex = $this->regex_parts->{html_attrval};
    my $maybe_attrs_regex = $this->regex_parts->{html_maybe_attrs};
    $this->SUPER::_parse_table(
	qr|

             ((?>.*?)


           |oisx);
}

sub _parse_body {
    my $this = shift;
    my $part = $this->parse_table_item('body');
    return () unless defined $part;
    my $maybe_attrs_regex = $this->regex_parts->{html_maybe_attrs};
    my $regex = qr|\A(.*?)
	(.*?)\Z|oisx;
    my $link;
    return [map {
	my ($photo, $text) = /$regex/;
	# parse top-half
	my @top_half = map {
	    if (m||oi) {
		$link = $this->html_anchor_to_uri($1);
		my %data = (
		    link => $link,
		    $this->analyze_uri($link),
		   );
		$data{image} = $this->absolute_linked_uri(
		    $this->generate_case_preserved_hash(
			$this->html_attrs_to_hash($2))->{src});
		\%data;
	    } else {
		();
	    }
	} $photo =~ m|(.*?)
	# parse bottom-half
	my @data = map {
	    if (m|\A(.*)\((\d+)\)|oi) {
		my $data = shift(@top_half);
		$data->{count} = $2;
		$data->{subject} = $this->rewrite($1);
		$data;
	    } else {
		();
	    }
	} $text =~ m|
	@data;
    } $part =~ m|(.*?
		 .*?)
}

1;

__END__