File Coverage

blib/lib/HTML/Subtext.pm

Criterion	Covered	Total	%
statement	38	42	90.4
branch	11	14	78.5
condition	4	6	66.6
subroutine	8	8	100.0
pod	4	5	80.0
total	65	75	86.6

package HTML::Subtext;

use strict;
use URI::Escape;
use vars qw($VERSION @ISA);

require HTML::Filter;
@ISA=qw(HTML::Filter);

$VERSION = '1.03';

sub new {
  my $class = shift;
  my $self = $class->SUPER::new();
  while (@_) {
    my $key = shift;
    my $val = shift;
    $self->{$key} = $val;
  }
  return $self;
}

sub output {
  my $self = shift;
  my $output = $self->{'OUTPUT'};
  if ($output) {
    my $type = ref($output);
    if    ($type eq 'ARRAY') {
      push(@{$output}, $_[0]);
    }
    elsif ($type eq 'SCALAR') {
      $$output .= $_[0];
    }
    else {
      print $output $_[0];
    }
  }
  else {
    $self->SUPER::output(@_);
  }
}

sub start {
  my $self = shift;
  my $tag = $_[0];
  if ($tag eq 'a' && $_[1]{'href'} =~ /^subtext:(.*)/) {
    ($self->{subtext} = $self->{'CONTEXT'}{uri_unescape($1)})
    || do { warn "WARNING: HTML::Subtext -- no context for " . $_[3] . "\n";
            $self->SUPER::start(@_); }
  }
  else {
    $self->SUPER::start(@_);
  }
}

sub text {
  my $self = shift;
  if ($self->{subtext}) {
    $self->output($self->{subtext});
  }
  else {
    $self->SUPER::text(@_);
  }
}

sub end {
  my $self = shift;
  my $tag = $_[0];
  if ($self->{subtext} && $tag eq 'a') {
    $self->{subtext} = 0;
  }
  else {
    $self->SUPER::end(@_);
  }
}

1;
__END__