33 |
}, |
}, |
34 |
); |
); |
35 |
|
|
36 |
|
sub first_item { |
37 |
|
my $self = shift; |
38 |
|
$self->items->[0]; |
39 |
|
} |
40 |
|
|
41 |
sub last_item { |
sub last_item { |
42 |
my $self = shift; |
my $self = shift; |
|
warn "## last_item = ", |
|
43 |
my $last = $#{ $self->items }; |
my $last = $#{ $self->items }; |
44 |
$self->update_collection if $last < 0; |
$self->update_collection if $last < 0; |
45 |
$self->items->[ $#{ $self->items } ]; |
$self->items->[ $#{ $self->items } ]; |
58 |
|
|
59 |
warn "## update_collection from iterator"; |
warn "## update_collection from iterator"; |
60 |
|
|
61 |
|
if ( ! $self->fey_class->can('collection') ) { |
62 |
|
warn "ERROR: ", $self->fey_class, " can't do collection"; |
63 |
|
return; |
64 |
|
} |
65 |
|
|
66 |
my $i = $self->fey_class->collection( $self->pager ); |
my $i = $self->fey_class->collection( $self->pager ); |
67 |
while ( my $u = $i->next ) { |
while ( my $u = $i->next ) { |
68 |
$self->add_item( |
$self->add_item( |