tools/LinkResolver.pm

   1
   2 package LinkResolver;
   3 use Pod::ParseUtils;
   4 use base qw(Pod::Hyperlink);
   5
   6 sub new
   7 {
   8         my $class = shift;
   9         my $css = shift;
  10         my $self = $class->SUPER::new();
  11         $self->{css} = $css;
  12         return $self;
  13 }
  14
  15 sub node
  16 {
  17         my $self = shift;
  18         if($self->SUPER::type() eq 'page')
  19         {
  20                 my $url = "?module=".$self->SUPER::page();
  21                 $url.=";css=".$_ for @{$self->{css}};
  22                 return $url;
  23         }
  24         $self->SUPER::node(@_);
  25 }
  26
  27 sub text
  28 {
  29         my $self = shift;
  30         return $self->SUPER::page() if($self->SUPER::type() eq 'page');
  31         $self->SUPER::text(@_);
  32 }
  33
  34 sub type
  35 {
  36         my $self = shift;
  37         return "hyperlink" if($self->SUPER::type() eq 'page');
  38         $self->SUPER::type(@_);
  39 }
  40
  41 1;
  42