lib/Frey/Pager.pm

package Frey::Pager;
use Moose;
use MooseX::AttributeHelpers;

use Data::Page;
use Data::Dump qw/dump/;

has 'pager' => (
        is => 'rw',
        isa => 'Data::Page',
        default => sub { Data::Page->new },
);

has 'fey_class' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has 'item_constructor' => (
        is => 'rw',
        isa => 'CodeRef',
        required => 1,
);

has 'items' => (
        metaclass => 'Collection::Array',
        is => 'rw',
        isa => 'ArrayRef[Frey::Web::Item]',
        default => sub { [] },
        provides => {
                'push' => 'add_item',
        },
);

sub last_item {
        my $self = shift;
        warn "## last_item = ",
        my $last = $#{ $self->items };
        $self->update_collection if $last < 0;
        $self->items->[ $#{ $self->items } ];
}

=head2 update_collection

  $o->update_collection;

=cut

sub update_collection {
        my ( $self ) = @_;

        return if $#{ $self->items } >= 0;

        warn "## update_collection from iterator";

        my $i = $self->fey_class->collection( $self->pager );
        while ( my $u = $i->next ) {
                $self->add_item(
                        $self->item_constructor->(
                                fey => $u,
                        )
                );
        }
}

=head2 items_in_layout

  my $html = $o->items_in_layout( $f );

=cut

sub items_in_layout {
        my ( $self, $f ) = @_;

        my $layout = delete( $f->{layout} );

        # FIXME somehow, this seem cludgy
        if ( $f->{page} ) {
                $self->pager->current_page( $f->{page} );
                $self->items( [] );
                $self->update_collection;
        }

        my $html = join('', map {
                $_->layout( $layout ) if $layout;
                $_->process($f) || ''
        } @{ $self->items } );

        return $html;
}

=head2 render_pager

  my $html = $o->render_pager;

=cut

sub render_pager {
        my $self = shift;

        my $pager = $self->pager;

        return join( ' ',
                        qq|<div class="notice">|,
                        'Showing',
                        $pager->first, '-', $pager->last,
                        'of',
                        $pager->total_entries,
                        'results<br>',
#                       'page', $pager->current_page, '/', $pager->last_page,
                        Frey::Web::Links->new(
                                name => 'page',
                                current => $pager->current_page,
                                values => [ $pager->first_page .. $pager->last_page ],
                        )->links,
                        qq|</div>|
                );
}

1;
1	package Frey::Pager;
2	use Moose;
3	use MooseX::AttributeHelpers;
4
5	use Data::Page;
6	use Data::Dump qw/dump/;
7
8	has 'pager' => (
9	is => 'rw',
10	isa => 'Data::Page',
11	default => sub { Data::Page->new },
12	);
13
14	has 'fey_class' => (
15	is => 'rw',
16	isa => 'Str',
17	required => 1,
18	);
19
20	has 'item_constructor' => (
21	is => 'rw',
22	isa => 'CodeRef',
23	required => 1,
24	);
25
26	has 'items' => (
27	metaclass => 'Collection::Array',
28	is => 'rw',
29	isa => 'ArrayRef[Frey::Web::Item]',
30	default => sub { [] },
31	provides => {
32	'push' => 'add_item',
33	},
34	);
35
36	sub last_item {
37	my $self = shift;
38	warn "## last_item = ",
39	my $last = $#{ $self->items };
40	$self->update_collection if $last < 0;
41	$self->items->[ $#{ $self->items } ];
42	}
43
44	=head2 update_collection
45
46	$o->update_collection;
47
48	=cut
49
50	sub update_collection {
51	my ( $self ) = @_;
52
53	return if $#{ $self->items } >= 0;
54
55	warn "## update_collection from iterator";
56
57	my $i = $self->fey_class->collection( $self->pager );
58	while ( my $u = $i->next ) {
59	$self->add_item(
60	$self->item_constructor->(
61	fey => $u,
62	)
63	);
64	}
65	}
66
67	=head2 items_in_layout
68
69	my $html = $o->items_in_layout( $f );
70
71	=cut
72
73	sub items_in_layout {
74	my ( $self, $f ) = @_;
75
76	my $layout = delete( $f->{layout} );
77
78	# FIXME somehow, this seem cludgy
79	if ( $f->{page} ) {
80	$self->pager->current_page( $f->{page} );
81	$self->items( [] );
82	$self->update_collection;
83	}
84
85	my $html = join('', map {
86	$_->layout( $layout ) if $layout;
87	$_->process($f) \|\| ''
88	} @{ $self->items } );
89
90	return $html;
91	}
92
93	=head2 render_pager
94
95	my $html = $o->render_pager;
96
97	=cut
98
99	sub render_pager {
100	my $self = shift;
101
102	my $pager = $self->pager;
103
104	return join( ' ',
105	qq\|<div class="notice">\|,
106	'Showing',
107	$pager->first, '-', $pager->last,
108	'of',
109	$pager->total_entries,
110	'results<br>',
111	# 'page', $pager->current_page, '/', $pager->last_page,
112	Frey::Web::Links->new(
113	name => 'page',
114	current => $pager->current_page,
115	values => [ $pager->first_page .. $pager->last_page ],
116	)->links,
117	qq\|</div>\|
118	);
119	}
120
121	1;