File Coverage

blib/lib/Mojolicious/Plugin/PageNavigator.pm

Criterion	Covered	Total	%
statement	51	53	96.2
branch	16	24	66.6
condition	11	16	68.7
subroutine	7	7	100.0
pod	1	1	100.0
total	86	101	85.1

package Mojolicious::Plugin::PageNavigator;
use Mojo::Base 'Mojolicious::Plugin';
use POSIX( qw/ceil/ );
use Mojo::ByteStream 'b';

use strict;
use warnings;

our $VERSION = 0.01;

# Homer: Well basically, I just copied the plant we have now.
#        Then, I added some fins to lower wind resistance.
#        And this racing stripe here I feel is pretty sharp.
# Burns: Agreed.  First prize!
sub  register{
  my ( $self, $app, $args ) = @_;
  $args ||= {};

  $app->helper( page_navigator => sub{
      my ( $self, $actual, $count, $opts ) = @_;
      $count = ceil($count);
      return "" unless $count > 1;
      $opts = {} unless $opts;
      my $round = $opts->{round} || 4;
      my $class = $opts->{class} || "number";
      my $param = $opts->{param} || "page";
      my $outer = $opts->{outer} || 2;
      my @current = ( $actual - $round .. $actual + $round );
      my @first   = ( $round > $actual ? (1..$round * 3 ) : (1..$outer) );
      my @tail    = ( $count - $round < $actual ? ( $count - $round * 2 + 1 .. $count ) :
          ( $count - $outer + 1 .. $count ) );
      my @ret = ();
      my $last = undef;
      foreach my $number( sort { $a <=> $b } @current, @first, @tail ){
        next if $last && $last == $number;
        next if $number <= 0 ;
        last if $number > $count;
        push @ret, ".." if( $last && $last + 1 != $number );
        push @ret, $number;
        $last = $number;
      }

      my $html = "";
      if( $actual == 1 ){
        $html .= "<<";
      } else {
        $html .= "url_for->query( $param => $actual - 1 ) . "\" class=\"$class\"><<";
      }
      foreach my $number( @ret ){
        if( $number eq ".." ){
          $html .= "..";
        } elsif( $number == $actual ) {
        $html .= "$number";
        } else {
          $html .= "url_for->query( $param => $number ) ."\" class=\"$class\">$number";
        }
      }
      if( $actual == $count ){
        $html .= ">>";
      } else {
        $html .= "url_for->query( $param => $actual + 1 ) . "\" class=\"$class\">>>"
      }
      $html .= " ";
      return b( $html );
    } );

}

1;
__END__