File Coverage

blib/lib/POE/Filter/RecDescent.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	0	4	0.0
total	25	33	75.7

package POE::Filter::RecDescent;

use strict;
use Parse::RecDescent;
use Carp qw(croak);
use vars qw($VERSION);

$VERSION = '0.02';

sub DEBUG() { 0 };
#sub DEBUG() { 1 };

# {{{ new
sub new {
  my $type = shift;
  my $grammar = shift;
  my $self = {
    parser => Parse::RecDescent->new($grammar),
    buffer => '',
    crlf => "\x0D\x0A",
  };
  bless $self, $type;
  return $self;
}
# }}}
# {{{ get
sub get {
  my ($self, $stream) = @_;

  return [ $self->{parser}->startrule(join('',@$stream)) ];
}
# }}}
#sub get_one_start { }
#sub get_one { }
sub put { }
sub get_pending { }

1;

__END__