NAME

Data::Page::FlickrLike − Generates flickr−like navigation links

SYNOPSIS

           use Data::Page;
           use Data::Page::FlickrLike;

           my $page = Data::Page−>new();
           $page−>total_entries($total_entries);
           $page−>entries_per_page($entries_per_page);
           $page−>current_page($current_page);

           print join (" ",
                   map { $_ == 0
                     ? q{<span>...</span>}
                     : qq{<a href="/page/$_">$_</a>}
                   } $page−>navigations);

           # 12 3 4 5 6 7 ... 76 77
           # 1 2 ... 10 11 12 1314 15 16 ... 76 77
           # 1 2 ... 71 72 73 74 75 76 77*
           # Note: * means the current page

DESCRIPTION

       Data::Page::FlickrLike is an extension to Data::Page to generate
       flickr‐like navigation links.

METHODS

       navigations (Data::Page)
           This method gets an array reference consists of the number of
           pages.

              $nav = $page−>navigations

           It calculates: how may numbers should be displayed from the first
           page, how many numbers should be displayed form the last page,
           whether or not thereâ€TMs a big enough gap between the first page and
           current page to put an ellipsis and more.  As the name of this
           modules says, the array ref should make it easy to generate a
           "Flickr‐Like" navigation.

           It uses "0" for an ellipsis between two sets of page numbers.  For
           example, if you have enough amount of items, navigations() returns
           like this:

             [ 1, 2, 3, 4, 5, 6, 7, 0, 76, 77 ]

           So, you need to put an exception to display an ellipsis(...) like
           this.

               for my $num ($page−>navigations) {
                   if ($num == 0 ) {
                       print "...";
                   } else {
                       print qq{<a href="/page/$_">$_</a>};
                   }
               }

CONFIGURATION VARIABLES

       By default, navigation() generates an array reference to create
       pagination links exactly as the same as Flickr.com does. But if you do
       not like this behavior, you can tweak these configuration variables.

       $Data::Page::FlickrLike::InnerWindow or
       $page−>navigations({inner_window => $val})
           Customises the number of links displayed at side of the current
           page.

       $Data::Page::FlickrLike::OuterWindow or
       $page−>navigations({outer_window => $val})
           Customises the number of links displayed at the start and end of
           the page links.

       $Data::Page::FlickrLike::MinLength or $page−>navigations({min_length =>
       $val})
           Customises the minimum number of the links displayed when the
           current page at the first or last page.

       $Data::Page::FlickrLike::GlueLength or $page−>navigations({glue_length
       => $val})
           Customises the minimum number of the links at the either side of
           the current page and the links at the first and last. For example,
           these "3g" and "4g" are displayed because of the glue length (= 2).

            1   2   3   4   5   6  7   8   9     ...   21   22
            1   2   3g  4   5   6   7  8   9   10     ...   21   22
            1   2   3g  4g  5   6   7   8  9   10   11     ...  21   22
            1   2     ...   5   6   7   8   9  10   11   12     ...   21   22

            (* means a number of the current page)

AUTHOR

Masayoshi Sekimura <sekimura@cpan.org>

LICENSE

       This library is free software; you can redistribute it and/or modify it
       under the same terms as Perl itself.

SEE ALSO

Data::Page, Data::Page::Navigation, http://flickr.com/