File Coverage

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

Criterion	Covered	Total	%
statement	25	153	16.3
branch	2	44	4.5
condition	2	16	12.5
subroutine	7	41	17.0
pod	35	35	100.0
total	71	289	24.5

# -*- 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: Page.pm 55 2005-02-01 19:16:17Z topia $
# $URL: file:///usr/minetools/svnroot/mixi/trunk/WWW-Mixi-OO/lib/WWW/Mixi/OO/Page.pm $
package WWW::Mixi::OO::Page;
use strict;
use warnings;
use Carp;
use base qw(Class::Accessor::Fast);
use base qw(WWW::Mixi::OO::Util);

=head1 NAME

WWW::Mixi::OO::Page - WWW::Mixi::OO's Pages base class

=head1 SYNOPSIS

  package WWW::Mixi::OO::Foo;
  use base qw(WWW::Mixi::OO::Page);
  sub uri {
      shift->absolute_uri('foo.pl');
  }
  # some implementations...

=head1 DESCRIPTION

pages base class.

=head1 METHODS

=over 4

=cut

=item new

  # subclass
  sub new {
      my $this = shift->SUPER::new(@_);
      # some initializations...
  }

  # call
  my $page = $pkg->new($session);

constructor of page.
please override if you need some initializations.

=cut

sub new {
    my ($class, $session) = @_;

    croak 'session argument is not found' unless defined $session;

    my $this = {
	session => $session,
    };
    bless $this, $class;
}

=item uri

  # subclass
  sub uri {
      my ($this, %options) = @_;
      $this->SUPER::uri(_path => 'foo',
			_params => {
			    a => b,
			},
			%options);
  }

  # call
  my $uri = $page->uri([opt => val], ...);

return URI of page.

=cut

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

    my $uri = $this->absolute_uri($options->{_path});
    $this->copy_hash_val($options, $options->{_params}, 'id');
    $uri->query_form($options->{_params});
    $uri;
}

sub _init_uri {
    my $this = shift;
    my $options;
    if (@_ % 2) {
	$options = shift;
	if (@_ > 0) {
	    my $key;
	    while (@_) {
		$key = shift;
		$options->{$key} = shift;
	    }
	}
    } else {
	$options = {@_};
    }

    if (!defined $options->{_path}) {
	$options->{_path} = $this->class_to_page(ref($this) || $this);
    }
    $options->{_params} ||= {};
    $options;
}

=item parse_uri

  # subclass
  sub parse_uri {
      my ($this, $data, %options) = @_;
      $this->copy_hash_val($data->{params}, \%options, 'page');
      if ($data->{path} eq "show_friend") {
	  # blah...
      }
      if ($data->{uri}->...) {
	  # maybe you won't use this
      }
      $this->SUPER::uri($data, %options);
  }

  # call
  my %options = $page->analyze_uri($uri);

return page information of URI.

=cut

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

    $this->copy_hash_val($data->{params}, \%options, 'id');
    if ($data->{path} =~ /^(?:view|show)_(\w+)/) {
	$options{type} = $1;
    }
    %options;
}

=item parse

  # subclass
  sub parse {
      my ($this, %options) = @_;
      # parse...
      my $part = $this->parse_extract_parts(qw/.../);
      return () unless defined $part;
      # return
      return ({ a => b, c => d }, { a => e, c => f }, ...);
  }

  # call
  my @datas = $page->parse;

page parser. please return hashref array.

=cut

sub parse { shift->please_override_this }

=item parse_banner

  my $data = $page->parse_banner;

parse banner.
structure:

 link:    link to ad page.
 subject: subject of ad(banner's alt text).
 image:   image of banner
 height:  height of image
 width:   width of image

=cut

sub parse_banner {
    my $this = shift;
    my ($uri, $attrs) = $this->parse_extract_parts(
	qr||i);
    return () unless defined $uri and defined $attrs;
    my %data;
    $data{link} = $this->absolute_linked_uri($uri);

    my $temp = $this->generate_case_preserved_hash(
	$this->html_attrs_to_hash($attrs));
    $data{subject} = $temp->{alt};
    $data{image} = $this->absolute_linked_uri($temp->{src});
    $this->copy_hash_val($temp, \%data, qw(height width));
    return \%data;
}

=item parse_mainmenu

  my @data = $page->parse_mainmenu;

parse mainmenu.
structure:

 link:    link to page
 subject: subject of page

=cut

sub parse_mainmenu {
    my $this = shift;
    my $part = $this->parse_extract_parts(
	qr|(.+?)|is);
    return () unless defined $part;
    return map {
	my(%data,$temp);
	$temp = $this->generate_ignore_case_hash(
	    $this->html_attrs_to_hash($_));
	$data{link} = $this->absolute_linked_uri($temp->{href});
	$data{subject} = $this->rewrite($temp->{alt});
	\%data;
    } ($part =~ m||g);
}

=item parse_tool_bar

  my @data = $page->parse_tool_bar;

parse toolbar.
structure:

 link:    link to page
 subject: subject of page
 image:   image of toolbar.
 height:  height of image
 width:   width of image

=cut

sub parse_tool_bar {
    my $this = shift;
    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};
    my $part = $this->parse_extract_parts(
	qr|(?>.*?
	   (?>.*?
	   (.+)
	   (?>.*?
	   (?>.*?