File Coverage

blib/lib/Mojolicious/Plugin/BootstrapPagination.pm

Criterion	Covered	Total	%
statement	67	68	98.5
branch	31	38	81.5
condition	47	65	72.3
subroutine	7	7	100.0
pod	1	1	100.0
total	153	179	85.4

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

use strict;
use warnings;

our $VERSION = "0.13";

# 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( bootstrap_pagination => sub{
      my ( $self, $actual, $count, $opts ) = @_;

      my $localize = ( $opts->{localize} || $args->{localize} ) ?
          ( $opts->{localize} || $args->{localize} ) : undef;

      $count = ceil($count);
      return "" unless $count > 1;
      $opts = {} unless $opts;
      my $round = $opts->{round} || $args->{round} || 4;
      my $param = $opts->{param} || $args->{param} || "page";
      my $class = $opts->{class} || $args->{class} || "";
      if ($class ne ""){
          $class = " " . $class;
      }
      my $outer = $opts->{outer} || $args->{outer} || 2;
      my $query = exists $opts->{query} ? $opts->{query} : $args->{query} || "";
      my $start = $opts->{start} // $args->{start} // 1;
      my @current = ( $actual - $round .. $actual + $round );
      my @first   = ($start.. $start + $outer - 1);
      my @tail    = ( $count - $outer + 1 .. $count );
      my @ret = ();
      my $last = undef;
      foreach my $number( sort { $a <=> $b } @current, @first, @tail ){
        next if ( $last && $last == $number && $start > 0 ) || ( defined $last && $last == $number && $start == 0 );
        next if ( $number <= 0 && $start > 0) || ( $number < 0 && $start == 0 );
        last if ( $number > $count && $start > 0 ) || ( $number >= $count && $start == 0 );
        push @ret, ".." if( $last && $last + 1 != $number );
        push @ret, $number;
        $last = $number;
      }
      my $html = "";
      if( $actual == $start ){
        $html .= "«";
      } else {
        $html .= "url_with->query( [$param => $actual - 1] ) . $query . "\" >«";
      }
      my $last_num = -1;
      foreach my $number( @ret ){
        my $show_number = $start > 0 ? $number : ( $number =~ /\d+/ ? $number + 1 : $number );

        if ( $localize ) {
            $show_number = $localize->($self, $show_number);
        }

        if( $number eq ".." && $last_num < $actual ){
          my $offset = ceil( ( $actual - $round ) / 2 ) + 1 ;
          $html .= "url_with->query( [$param => $start == 0 ? $offset + 1 : $offset] ) . $query ."\" >…";
        }
        elsif( $number eq ".." && $last_num > $actual ) {
          my $back = $count - $outer + 1;
          my $forw = $round + $actual;
          my $offset = ceil( ( ( $back - $forw ) / 2 ) + $forw );
          $html .= "url_with->query( [$param => $start == 0 ? $offset + 1 : $offset] ) . $query ."\" >…";
        } elsif( $number == $actual ) {
          $html .= "$show_number";
        } else {
          $html .= "url_with->query( [$param => $number] ) . $query ."\">$show_number";
        }
         $last_num = $number;
      }
      if( $actual == $count ){
        $html .= "url_with->query( [$param => $actual + 1] ) . $query . "\" >»";
      } else {
        $html .= "url_with->query( [$param => $actual + 1] ) . $query . "\" >»";
      }
      $html .= "";
      return b( $html );
    } );

}

1;
__END__