4 use base qw(Pod::Hyperlink);
10 my $self = $class->SUPER::new();
18 if($self->SUPER::type() eq 'page')
20 my $url = "?module=".$self->SUPER::page();
21 $url.=";css=".$_ for @{$self->{css}};
24 $self->SUPER::node(@_);
30 return $self->SUPER::page() if($self->SUPER::type() eq 'page');
31 $self->SUPER::text(@_);
37 return "hyperlink" if($self->SUPER::type() eq 'page');
38 $self->SUPER::type(@_);