File Coverage

blib/lib/Mail/Action/PodToHelp.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	10	10	100.0
condition			n/a
subroutine	9	9	100.0
pod	6	6	100.0
total	54	54	100.0

package Mail::Action::PodToHelp;

use strict;
use base 'Pod::Simple::Text';

use vars '$VERSION';
$VERSION = '0.46';

sub show_headings
{
    my $parser = shift;
    $parser->{_show_headings} = { map { $_ => 1 } @_ };
}

sub start_head1
{
    my $parser = shift;
    $parser->{_in_head1} = 1;
    $parser->SUPER::start_head1( @_ );
}

sub start_item_bullet
{
    my $parser = shift;
    return unless $parser->{_show};
    $parser->SUPER::start_item_bullet( @_ );
}

sub end_item_bullet
{
    my $parser = shift;
    return unless $parser->{_show};
    $parser->SUPER::end_item_bullet( @_ );
}

sub handle_text
{
    my ($parser, $text) = @_;

    if ( $parser->{_in_head1} )
    {
        $parser->{_show} = exists $parser->{_show_headings}{$text} ? 1 : 0;
    }

    return unless $parser->{_show};
    $parser->SUPER::handle_text( $text );
}

sub end_head1
{
    my $parser = shift;
    $parser->{_in_head1} = 0;
    $parser->SUPER::end_head1( @_ );
}

1;
__END__