File Coverage

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

Criterion	Covered	Total	%
statement	15	63	23.8
branch	0	14	0.0
condition			n/a
subroutine	5	10	50.0
pod	2	2	100.0
total	22	89	24.7

# -*- 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: ListDiary.pm 109 2005-02-05 10:40:18Z topia $
# $URL: file:///usr/minetools/svnroot/mixi/trunk/WWW-Mixi-OO/lib/WWW/Mixi/OO/ListDiary.pm $
package WWW::Mixi::OO::ListDiary;
use strict;
use warnings;
use File::Basename;
use base qw(WWW::Mixi::OO::TableHistoryListPage);
use base qw(WWW::Mixi::OO::Util::EntryParserMixin);

sub uri {
    my $this = shift;
    my $options = $this->_init_uri(@_);

    $this->copy_hash_val($options, $options->{_params}, qw(year month));
    $this->SUPER::uri($options);
}

sub parse_uri {
    my ($this, $data, %options) = @_;

    $this->copy_hash_val($data->{params}, \%options, qw(year month));
    $this->SUPER::parse_uri($data, %options);
}

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|\s*

             ((?>.*?)\s*