File Coverage

lib/Pod/POM/View/TextBasic.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	10	0.0
condition			n/a
subroutine	3	9	33.3
pod	6	6	100.0
total	18	42	42.8

use strict;
use warnings;

package Pod::POM::View::TextBasic;
our $VERSION = 0.1;

use base 'Pod::POM::View::Text';

our $DROPS = 1;

sub view_seq_bold { return $_[1]; }

sub view_seq_italic { return $_[1]; }

sub view_seq_code { return $DROPS? '' : $_[1] }

sub view_seq_file { return $DROPS? '' : $_[1] }

sub view_seq_link {
	return $DROPS? '' : $_[1];
    my ($self, $link) = @_;
    return ($link =~ m/^(.*?)\|/) ?
    	$1 : $link;
}

sub view_verbatim { return $DROPS? '' : $_[1] }

1;

=head1 NAME

Pod::POM::View::TextBasic - Pod::POM::View::Text without sequence formatting

=head1 SYNOPSIS

	Pod::POM->default_view( 'Pod::POM::View::TextBasic' )
		or die $Pod::POM::ERROR;
	my $p = Pod::POM->new;
	$p->parse_file(...);

=head1 DESCRIPTION

A sub-class of L
that does not ornament inline sequences to indicate their presence.

This class was developed to aid spell-checking POD: for that reason,
verbatim blocks, inline code sequences, and the bodies of links are ignored
unless C is set to a false value by the user.

=head1 AUTHOR

Lee Goddard (C).

=head1 COPYRIGHT

Copyright (C) 2011, Lee Goddard. All Rights Reserved.