File Coverage

blib/lib/Template/Magic/Pager.pm

Criterion	Covered	Total	%
statement	62	63	98.4
branch	29	38	76.3
condition	2	3	66.6
subroutine	15	15	100.0
pod	9	9	100.0
total	117	128	91.4

package Template::Magic::Pager ;
$VERSION = 1.15 ;
use 5.006_001 ;
use strict ;

# This file uses the "Perlish" coding style
# please read http://perl.4pro.net/perlish_coding_style.html

; use Carp
; $Carp::Internal{+__PACKAGE__}++
; our $no_template_magic_zone = 1 # prevents passing the zone object to properties

; sub new
   { my $c = shift
   ; ref($c)  && croak qq(Can't call method "new" on a reference)
   ; (@_ % 2) && croak qq(Odd number of arguments for $c->new)
   ; my $s = bless {}, $c
   ; while ( my ($p, $v) = splice @_, 0, 2 )
      { if ($s->can($p))                     # if method
         { $s->$p( $v )
         }
        else
         { croak qq(No such property "$p")
         }
      }
   ; if ( ref $$s{total_results} eq 'ARRAY' )
      { my $r = $$s{total_results}
      ; $$s{total_results} = @$r
      ; $s->page_rows( [ @$r[ $s->_start_offset .. $s->_end_offset ] ] )
      }
   ; $$s{total_results} ? $s : undef
   }

; use Object::props
      ( { name       => 'total_results'
        , validation => sub
                         {  /^[\d]+$/
                         || ref eq 'ARRAY'
                         }
        }
      , { name       => 'page_rows'
        }
      , { name       => 'page_number'
        , default    => 1
        , validation => sub
                         { /^[\d]+$/
                         && $_ > 0
                         }
        }
      , { name       => [ qw | rows_per_page
                               pages_per_index
                             |
                        ]
        , default    => 10
        , validation => sub{ /^[\d]+$/ }
        }
      )

; sub total_pages
   { my $s = shift
   ; int ($s->total_results / $s->rows_per_page)
     + ($s->total_results % $s->rows_per_page ? 1 : 0)
   }

; sub next_page
   { my $s = shift
   ; $s->page_number + 1 if $s->page_number < $s->total_pages
   }

; sub next
   { $_[0]->next_page && {}
   }

; sub previous_page
   { my $s = shift
   ; $s->page_number - 1 if $s->page_number > 1
   }

; sub previous
   { $_[0]->previous_page && {}
   }

; sub _start_offset
   { my ($s, $page_number) = @_
   ; $page_number ||= $s->page_number
   ; $s->rows_per_page * ($page_number - 1)
   }

; sub _end_offset
   { my ($s, $page_number) = @_
   ; my $end = $s->_start_offset($page_number) + $s->rows_per_page - 1
   ; $end > ($s->total_results - 1)
     ? $s->total_results - 1
     : $end
   }

; sub start_result
   { my ($s, $page_number) = @_
   ; $s->_start_offset($page_number) + 1
   }

; sub end_result
   { my ($s, $page_number) = @_
   ; $s->_end_offset($page_number) + 1
   }

; sub index
   { my $s = shift
   ; my ( $half, $start, $end )
   ; $half = int ($s->pages_per_index / 2)
   ; my $page_number = $s->page_number
   ; my $total_pages = $s->total_pages
   ; if ( $total_pages / 2 > $page_number) # if first half
      { $start = $page_number - $half
      ; $start = 1 if $start < 1
      ; $end   = $start + $s->pages_per_index - 1
      ; $end   = $total_pages if $end > $total_pages
      }
     else
      { $end   = $page_number + $half
      ; $end   = $total_pages if $end > $total_pages
      ; $start = $end - $s->pages_per_index + 1
      ; $start = 1 if $start < 1
      }
   ; my @i = map
              { $_ != $page_number
                ? { linked_page  => {}
                  , page_number  => $_
                  , start_result => $s->start_result($_)
                  , end_result   => $s->end_result($_)
                  }
                : { current_page => {}
                  , page_number  => $_
                  }
              } $start .. $end
   ; \@i
   }


; 1

__END__