File Coverage

blib/lib/WWW/Ruler.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	19	24	79.1
condition	6	9	66.6
subroutine	5	5	100.0
pod	2	2	100.0
total	64	72	88.8

package WWW::Ruler;

use strict;
use warnings;

use WWW::Ruler::Piece;

our $VERSION = '0.12';

sub new {
    my ( $class, %opts ) = @_;

    bless { %opts }, ref($class) || $class;
}

sub cut_off {
    my ( $self, %opts ) = @_;

    my (
	$page_size,
	$ruler_size,
	$page_number,
	$amount,
	$left_size,
	$right_size,
	$all_pages
    );

    for ( qw( page_size ruler_size page_number amount ) ) {
	eval("\$$_ = " . q{defined( $opts{$_} ) ? $opts{$_} : $self->{$_}});
    }

    # A building of ruler line...
    my $piece	= WWW::Ruler::Piece->new( $amount );

    return $piece->outside(1)
      unless $amount;

    $all_pages		= int( ($amount - 1) / $page_size + 1 );

    $left_size		= int( ( $ruler_size - 1 ) / 2 );
    $right_size		= $ruler_size - 1 - $left_size;

    return $piece->outside(1)
      if ( $page_number > $all_pages || $page_number <= 0 );

    $piece->add_ruler_item( { type => 'prev_pointer', page_number => $page_number - 1} ) if ( $page_number > 1 );
    $piece->add_ruler_item( { type => 'page', page_number => 1, ( $page_number == 1 ? ( current_page => 1 ) : () )} );
    $piece->add_ruler_item( { type => 'ellipsis' } ) if ( $page_number - $left_size > 2 );

    for ( my ($n, $cnt) = ( $page_number - $left_size < 2 ? 2 : $page_number - $left_size, $ruler_size );
      $n < $all_pages && $cnt > 0;
      $cnt--, $n++)
    {
	$piece->add_ruler_item( { type => 'page', page_number => $n, ( $n == $page_number ? ( current_page => 1 ) : () ) } );
    }

    $piece->add_ruler_item( { type => 'ellipsis' } ) if ( $page_number + $right_size < $all_pages - 1 );
    $piece->add_ruler_item( { type => 'page', page_number => $all_pages, ( $page_number == $all_pages ? ( current_page => 1 ) : () )} ) if $all_pages > 1;
    $piece->add_ruler_item( { type => 'next_pointer', page_number => $page_number + 1} ) if ( $page_number < $all_pages );

    # Calculation of bounds
    $piece->{start}	= ( $page_number - 1 ) * $page_size;
    $piece->{end}	= $page_number < $all_pages ? $piece->{start} + $page_size - 1 : $amount - 1;

    return $piece;
}

1;

__END__