File Coverage

blib/lib/Pod/Eventual/Simple.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	3	66.6
total	31	33	93.9

use strict;
use warnings;
package Pod::Eventual::Simple 0.094002;
use Pod::Eventual;
BEGIN { our @ISA = 'Pod::Eventual' }
# ABSTRACT: just get an array of the stuff Pod::Eventual finds

#pod =head1 SYNOPSIS
#pod
#pod   use Pod::Eventual::Simple;
#pod
#pod   my $output = Pod::Eventual::Simple->read_file('awesome.pod');
#pod
#pod This subclass just returns an array reference when you use the reading methods.
#pod The arrayref contains all the Pod events and non-Pod content.  Non-Pod content
#pod is given as hashrefs like this:
#pod
#pod   {
#pod     type       => 'nonpod',
#pod     content    => "This is just some text\n",
#pod     start_line => 162,
#pod   }
#pod
#pod For just the POD events, grep for C not equals "nonpod"
#pod
#pod =for Pod::Coverage new
#pod
#pod =cut

sub new {
  my ($class) = @_;
  bless [] => $class;
}

sub read_handle {
  my ($self, $handle, $arg) = @_;
  $self = $self->new unless ref $self;
  $self->SUPER::read_handle($handle, $arg);
  return [ @$self ];
}

sub handle_event {
  my ($self, $event) = @_;
  push @$self, $event;
}

BEGIN {
  *handle_blank  = \&handle_event;
  *handle_nonpod = \&handle_event;
}

1;

__END__