SYNOPSIS use Modern::Perl; use Data::PaginatedTable; use Data::Printer; my @series = 'aaa' .. 'zzz'; my $pt = Data::PaginatedTable->new( { data => \@series, string_mode => 'preformatted', fill_direction => 'vertical', } ); do { say $pt } while ( $pt->next ); # aaa aae aai # aab aaf aaj # aac aag aak # aad aah aal # # ... # # zzg zzk zzo # zzh zzl zzp # zzi zzm zzq # zzj zzn zzr # # zzs zzw # zzt zzx # zzu zzy # zzv zzz say Data::Printer::p( $pt->page( 32 ) ); # \ [ # [0] [ # [0] "aoi", # [1] "aom", # [2] "aoq" # ], # [1] [ # [0] "aoj", # [1] "aon", # [2] "aor" # ], # [2] [ # [0] "aok", # [1] "aoo", # [2] "aos" # ], # [3] [ # [0] "aol", # [1] "aop", # [2] "aot" # ] # ] DESCRIPTION This is yet another class to generate tables and paginate data. Each page represents a two-dimensional array of given dimensions, and can be filled horizontally or vertically. In string context, an instance of Data::PaginatedTable will invoke one of the string_mode methods to render the current page. ATTRIBUTES data, data ( ArrayRef REQUIRED ) Gets or sets the data to be transformed by the instance of Data::PaginatedTable. rows, rows ( PositiveInteger default => 4 ) Gets or sets the number of rows per page. columns, columns ( PositiveInteger default => 3 ) Gets or sets the number of columns per row. fill_direction, fill_direction ( Enum[ 'vertical', 'horizontal' ] default => 'horizontal' ) Gets or sets the order in which data elements will be used to fill the two-dimensional array of each page. use Modern::Perl; use Data::PaginatedTable; my @series = 1 .. 9; my $pt = Data::PaginatedTable->new( { data => \@series, rows => 3, columns => 3, fill_direction => 'vertical', # default horizontal string_mode => 'preformatted' } ); say $pt; # 1 4 7 # 2 5 8 # 3 6 9 $pt->fill_direction( 'horizontal' ); say $pt; # 1 2 3 # 4 5 6 # 7 8 9 string_mode, string_mode ( Enum[ 'html', 'preformatted', 'raw' ] default => 'raw' ); Gets or sets the method to use when a Data::PaginatedTable object is used in string context. See "STRING MODES". current, current ( PositiveInteger default => 1 ); Gets or sets the current page. METHODS page_count Returns the total number of pages based on the number of rows and columns. page, page( PositiveInteger ) Returns the two-dimensional array with the given number of rows and columns representing the current page, or optionally returns a specific page when passed an integer argument. pages Returns an array reference containing each page of data. first Sets the current page to the first page and returns the instance. next Sets the current page to the next page and returns the instance or undef if there are no next pages. previous Sets the current page to the previous page and returns the instance or undef if there are no previous pages. last Sets the current page to the last page and returns the instance. STRING MODES as_string This is a wrapper around the as_* string_mode methods. This method is called implicitly when the instance is in string context. as_html The html string_mode stringifies the current page as a plain html table. All page elements are placed in string context (see overload). use Modern::Perl; use Data::PaginatedTable; my @series = 1 .. 12; my $pt = Data::PaginatedTable->new( { data => \@series, string_mode => 'html' } ); say $pt; #
1 | #2 | #3 | #
4 | #5 | #6 | #
7 | #8 | #9 | #
10 | #11 | #12 | #