File Coverage

blib/lib/Amazon/API/Pod/Simple/Text.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	4	0.0
condition	0	9	0.0
subroutine	5	7	71.4
pod	0	1	0.0
total	20	46	43.4

package Amazon::API::Pod::Simple::Text;

use strict;
use warnings;

use parent qw{Pod::Simple::Text};
use IO::Scalar;
use ReadonlyX;

our @EXPORT = qw{ $SECTION };

Readonly::Scalar my $TRUE  => 1;
Readonly::Scalar my $FALSE => 0;
Readonly::Scalar my $EMPTY => q{};

our $VERSION = '0.01';

my $PROCESS_HEAD2   = $FALSE;
my $PROCESS_ELEMENT = $FALSE;

our $SECTION;

caller or __PACKAGE__->main(@ARGV);

########################################################################
sub _handle_text {
########################################################################
  my ( $self, @args ) = @_;

  if ( $SECTION && $PROCESS_HEAD2 && $args[0] eq $SECTION ) {
    $PROCESS_ELEMENT = $TRUE;
    $PROCESS_HEAD2   = $FALSE;
  }
  else {
    $PROCESS_HEAD2 = $FALSE;
  }

  return $PROCESS_ELEMENT
    || !$SECTION ? $self->SUPER::_handle_text(@args) : undef;
}

########################################################################
sub start_head2 {
########################################################################
  my ( $self, @args ) = @_;

  $PROCESS_HEAD2   = $TRUE;
  $PROCESS_ELEMENT = $FALSE;

  return $self->SUPER::start_head2(@args);
}

1;