/usr/local/CPAN/Pangloss/Pangloss/Segment/Pager/SaveInSession.pm

• package Pangloss::Segment::Pager::SaveInSession
  • dispatch
• EOF

package Pangloss::Segment::Pager::SaveInSession;

use base qw( Pangloss::Segment::Pager::Session );

our $VERSION  = ((require Pangloss::Version), $Pangloss::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.1 $ '))[2];

sub dispatch {
    my $self  = shift;
    my $pager = $self->store->get('Pangloss::Search::Results::Pager') || return;
    $self->save_pager_in_session( $pager );
    return 1;
}

1;