--- trunk/lib/Frey/Pager.pm 2008/07/16 21:21:49 148 +++ trunk/lib/Frey/Pager.pm 2008/07/16 21:23:27 149 @@ -33,9 +33,13 @@ }, ); +sub first_item { + my $self = shift; + $self->items->[0]; +} + sub last_item { my $self = shift; - warn "## last_item = ", my $last = $#{ $self->items }; $self->update_collection if $last < 0; $self->items->[ $#{ $self->items } ]; @@ -54,6 +58,11 @@ warn "## update_collection from iterator"; + if ( ! $self->fey_class->can('collection') ) { + warn "ERROR: ", $self->fey_class, " can't do collection"; + return; + } + my $i = $self->fey_class->collection( $self->pager ); while ( my $u = $i->next ) { $self->add_item(