view release on metacpan or  search on metacpan

lib/Pod/Eventual/Simple.pm  view on Meta::CPAN

#pod   }
#pod
#pod For just the POD events, grep for C<type> 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 {