NAME

WWW::Mixi::OO::ListPage - WWW::Mixi::OO's List Pages base class

SYNOPSIS

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

DESCRIPTION

list pages base class.

METHODS

uri

see super class (WWW::Mixi::OO::Page).

this module handle following params:

page: page number, maybe 1 origin.

parse_uri

see super class (WWW::Mixi::OO::Page).

this module handle following params:

page: page number, maybe 1 origin.

parse_navi_next

  # subclass
  sub parse_navi_next {
      my ($this, %options) = @_;
      # parse...
      $this->content =~ /.../;
      # return
      return { a => b, c => d };
  }

  # call
  my $next = $pkg->parse_navi_next;

page "next" navi parser. please return hashref. page didn't have next page navigation, no need to implement this.

parse_navi_prev

  # subclass
  sub parse_navi_prev {
      my ($this, %options) = @_;
      # parse...
      $this->content =~ /.../;
      # return
      return { a => b, c => d };
  }

  # call
  my $prev = $pkg->parse_navi_prev;

page "prev" navi parser. please return hashref. page didn't have previous page navigation, no need to implement this.

fetch

  # call
  $pkg->fetch(
      limit => $limit,
      other_options...
  );

fetch all items from some pages. need ->get and ->parse_navi_next()->{link}.

gen_sort_proc

  # call
  $pkg->gen_sort_proc($spec, [$pkg]);

generate sort closure(anonsub).

spec is "$field" or "!$field"(reverse order).

sort

  # call
  $pkg->sort($spec, @items...);

handy sort function. (but maybe need unnecessarily array copy...)

sort_type

  # subclass
  sub sort_type {
      my ($this, $field) = @_;

      if (grep { $_ eq $field } qw(more nums...)) {
          return 'num';
      } else {
          return $this->SUPER::sort_type($field);
      }
  }

sort type probe function.

get_navi_next

  # call
  $pkg->get_navi_next([opt => val], ...);

handy method. call ->set_content and ->parse_navi_next.

get_navi_prev

  # call
  $pkg->get_navi_prev([opt => val], ...);

handy method. call ->set_content and ->parse_navi_prev.

AUTHOR

Topia <topia@clovery.jp>

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.