File Coverage

blib/lib/Pod/PseudoPod/CrossReference.pm

Criterion	Covered	Total	%
statement	60	63	95.2
branch	7	14	50.0
condition			n/a
subroutine	22	22	100.0
pod	2	17	11.7
total	91	116	78.4

package Pod::PseudoPod::CrossReference;
use strict;
use base qw( Pod::PseudoPod );

use Carp;

use vars qw( $VERSION );
$VERSION = '0.02';

sub new {
    my $self  = shift;
    my $index = shift;
    my $new   = $self->SUPER::new(@_);
    $new->accept_targets_as_text(
        qw(author blockquote comment caution
          editor epigraph example figure important note production
          programlisting screen sidebar table tip warning)
    );
    $new->{'scratch'} = '';
    $new->{'title'}   = '';
    map { $new->{_HNDL_TYPES}->{$_} = 1 }
      qw( Z head0 head1 head2 head3 head4 figure table );
    $new;
}

sub _end {
    my ($self, $type) = @_;
    my $handler = $self->{'Handlers'}->{$type};
    $self->{'title'}   = $handler->($self, $self->{'scratch'}) if $handler;
    $self->{'reftype'} = $type;
    $self->{'scratch'} = '';
    $self->{'capture'} = 0;
}

sub start_Z { $_[0]{'capture'} = 1; }

sub end_Z {
    my $self    = shift;
    my $handler = $self->{'Handlers'}->{'Z'};
    $handler->($self, $self->{'scratch'}) if $handler;
    $self->{'scratch'} = '';
    $self->{'capture'} = 0;
}

sub handle_text { $_[0]{'scratch'} .= $_[1] if $_[0]{'capture'}; }

sub start_head0 { $_[0]{'capture'} = 1; }
sub start_head1 { $_[0]{'capture'} = 1; }
sub start_head2 { $_[0]{'capture'} = 1; }
sub start_head3 { $_[0]{'capture'} = 1; }
sub start_head4 { $_[0]{'capture'} = 1; }

sub end_head0 { _end($_[0], 'head0') }
sub end_head1 { _end($_[0], 'head1') }
sub end_head2 { _end($_[0], 'head2') }
sub end_head3 { _end($_[0], 'head3') }
sub end_head4 { _end($_[0], 'head4') }

sub start_figure {
    my $handler = $_[0]->{'Handlers'}->{'figure'};
    $_[0]{'title'} = $handler->($_[0], $_[1]->{'title'}) if $handler;
    $_[0]{'reftype'} = 'figure';
}

sub start_table {
    my $handler = $_[0]->{'Handlers'}->{'table'};
    $_[0]{'title'} = $handler->($_[0], $_[1]->{'title'}) if $handler;
    $_[0]{'reftype'} = 'table';
}

#--- borrowed from XML::Parser
sub set_handlers {
    my ($self, @handler_pairs) = @_;
    croak("Uneven number of arguments to set_handlers method")
      if (int(@handler_pairs) & 1);
    my @ret;
    while (@handler_pairs) {
        my $type    = shift @handler_pairs;
        my $handler = shift @handler_pairs;
        unless (defined($self->{_HNDL_TYPES}->{$type})) {
            my @types = sort keys %{$self->{_HNDL_TYPES}};
            croak("Unknown Parser handler type: $type\n Valid types: @types");
        }
        push(@ret, $type, $self->{'Handlers'}->{$type});
        $self->{'Handlers'}->{$type} = $handler;
    }
    @ret;
}

1;

__END__