Lines Matching defs:pagers
306 sub pagers { @{ shift->{'pagers'} } }
336 $self->{'pagers' } = [@Pagers] unless exists $self->{'pagers'};
583 $self->page($out, $self->{'output_to_stdout'}, $self->pagers);
1213 my @pagers;
1214 push @pagers, $self->pagers;
1215 $self->{'pagers'} = \@pagers;
1218 push @pagers, qw( more< less notepad );
1219 unshift @pagers, $ENV{PAGER} if $ENV{PAGER};
1222 push @pagers, qw( most more less type/page );
1225 push @pagers, qw( less.exe more.com< );
1226 unshift @pagers, $ENV{PAGER} if $ENV{PAGER};
1230 unshift @pagers, 'less', 'cmd /c more <';
1232 push @pagers, qw( more less pg view cat );
1233 unshift @pagers, $ENV{PAGER} if $ENV{PAGER};
1235 unshift @pagers, $ENV{PERLDOC_PAGER} if $ENV{PERLDOC_PAGER};
1276 foreach my $pager ( $self->pagers ) {
1290 sprintf "Can't manage to find a way to page [%s] via pagers [%s]\n",
1292 join(' ', $self->pagers),
1480 my ($self, $output, $output_to_stdout, @pagers) = @_;
1495 foreach my $pager (@pagers) {