File Coverage

blib/lib/Pod/Simple/Data.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	6	100.0
condition	4	5	80.0
subroutine	6	6	100.0
pod	1	1	100.0
total	43	44	97.7

package Pod::Simple::Data;

use strict;
use 5.008_005;

use Pod::Simple ();
use vars qw( @ISA $VERSION );
$VERSION = '0.01';
@ISA = ('Pod::Simple');

sub new {
  my $self = shift;
  my $new = $self->SUPER::new();
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  push @_, '*' unless scalar(@_);
  $new->accept_targets(@_);
  return $new;
}

sub _handle_text {
  my $para = $_[0]{'curr_open'}->[-1];
  if (defined $para && $para->[0] eq '=for') {
     print {$_[0]{'output_fh'}} $_[1];
     print {$_[0]{'output_fh'}} "\n" unless $_[1] =~ /\n$/;
  }
  return;
}

1;
__END__