/ 
Data-PaginatedTable-1.0.0
River stage zero No dependents
⭐ Starred 0 GitHub stars
/ Data::PaginatedTable

NAME

Data::PaginatedTable - Paginate lists as two-dimensional arrays and stringify

VERSION

version 1.0.0

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;

# <table>
#   <tr>
#     <td>1</td>
#     <td>2</td>
#     <td>3</td>
#   </tr>
#   <tr>
#     <td>4</td>
#     <td>5</td>
#     <td>6</td>
#   </tr>
#   <tr>
#     <td>7</td>
#     <td>8</td>
#     <td>9</td>
#   </tr>
#   <tr>
#     <td>10</td>
#     <td>11</td>
#     <td>12</td>
#   </tr>
# </table>

as_preformatted

The preformatted string_mode uses Text::Table to format the current page. 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 => 'preformatted'
    }
);

say $pt;

#  1  2  3
#  4  5  6
#  7  8  9
# 10 11 12

as_raw

The as_raw method iterates over the page elements and invokes each in string context (see overload), without seperating rows with newlines. This method is likely not how you want to render your data unless your data elements are string overloaded objects with their own rendering logic.

VERSIONING

This module adopts semantic versioning (http://www.semver.org).

REPOSITORY

https://github.com/Camspi/Data-PaginatedTable

SEE ALSO

AUTHOR

Chris Tijerina

COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Chris Tijerina.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.