Lines Matching refs:page
221 my $link = Pod::Hyperlink->new('alternative text|page/"section in page"');
265 $self->{-page} ||= '';
287 my ($alttext,$page,$node,$type,$quoted) = (undef,'','','',0);
307 # we match all possibilities (alttext, page, section/item)
310 # only page
312 # man page sections. But this collides with L<func()> that is supposed
315 # page name only
317 $page = $1;
318 $type = 'page';
320 # alttext, page and "section"
322 ($alttext, $page, $node) = ($1, $2, $3);
326 # alttext and page
328 ($alttext, $page) = ($1, $2);
329 $type = 'page';
337 # page and "section"
339 ($page, $node) = ($1, $2);
343 # page and item
345 ($page, $node) = ($1, $2);
364 # alttext, page and item
366 ($alttext, $page, $node) = ($1, $2, $3);
389 $alttext = $node | $page;
396 if($page =~ /[(]\w*[)]$/) {
397 $self->warning("(section) in '$page' deprecated");
405 $self->{-page} = $page;
408 #warn "DEBUG: page=$page section=$section item=$item alttext=$alttext\n";
419 my $page = $self->page();
421 $page =~ s/([(]\w*[)])$// && ($page_ext = $1);
430 (($page && $section) ? ' in ' : '') .
431 "$page$page_ext";
445 ($page ? ($section ? ' in ':'') . "P<$page>$page_ext" : '');
519 =item $link-E<gt>page()
521 This method sets or returns the POD page this link points to.
525 # The POD page the link appears on
526 sub page {
528 $_[0]->{-page} = $_[1];
531 $_[0]->{-page};
587 my $link = $self->page() || '';
623 # class to hold POD page details
681 my ($self,$page) = @_;
683 if($_->page() eq $page) {
723 =item $cacheitem-E<gt>page()
729 # The POD page
730 sub page {
731 return (@_ > 1) ? ($_[0]->{-page} = $_[1]) : $_[0]->{-page};