/usr/share/perl5/HTML/Widgets/NavMenu/HeaderRole.pm is in libhtml-widgets-navmenu-perl 1.0703-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | package HTML::Widgets::NavMenu::HeaderRole;
use strict;
use warnings;
use base 'HTML::Widgets::NavMenu';
require HTML::Widgets::NavMenu::Iterator::NavMenu::HeaderRole;
sub _get_nav_menu_traverser
{
my $self = shift;
return
HTML::Widgets::NavMenu::Iterator::NavMenu::HeaderRole->new(
$self->_get_nav_menu_traverser_args()
);
}
1;
__END__
=head1 NAME
HTML::Widgets::NavMenu::HeaderRole - A Specialized HTML::Widgets::NavMenu
sub-class
=head1 SYNOPOSIS
Mostly the same as L<HTML::Widgets::NavMenu> except for the ability to
specify C<'role' =E<gt> "header"> as one of the node attributes.
=head1 DESCRIPTION
This module is constructed and invoked similarly to HTML::Widgets::NavMenu.
The only difference is that it is meaningful to specify C<"header"> as the
value of the C<'role'>.
In that case, the link or bolded label will be rendered within its own
C<E<lt>h2E<gt>> header. The HTML will look something like this:
</ul>
<h2>
<a href="../me/" title="About Myself">About Me</a>
</h2>
<ul>
An example of this use can be found on the Perl Beginners Site
( L<http://perl-begin.org/> ).
=head1 SEE ALSO
L<HTML::Widgets::NavMenu> for the complete documentation of the super-class.
=head1 AUTHORS
Shlomi Fish, L<http://www.shlomifish.org> .
=cut
|