File Coverage

blib/lib/POE/Filter/Regexp.pm

Criterion	Covered	Total	%
statement	6	23	26.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod	0	2	0.0
total	8	36	22.2

#!/usr/bin/perl
# -*- encoding: utf-8; mode: cperl -*-
package POE::Filter::Regexp;
use strict;
use vars qw($VERSION);

$VERSION='1.0';

sub new {
    my ($class,$re)=@_;
    $re ||= qr/\n/;
    die "Param in new must be a Regexp but this is a ".ref($re) unless ref $re eq 'Regexp';
    return bless [
		  '', # raw unparsed data
		  $re,
		 ], $class;
}


sub get {
    my ($self, $stream) = @_;
    my @ret;
    while($_=shift @$stream){
 	$self->[0].=$_;
	$_=''; #yah we'r cl'r mems !!!111
	my $p=0;
	while($self->[0]=~/$self->[1]/gm) {
	    next unless $-[0]; #begin of stream
	    push @ret, substr($self->[0], $p, $-[0]-$p);
	    $p=$-[0];
	}
	substr($self->[0], 0, $p)='';
    }
    $self->[0]=''.$self->[0]; #Clean holes in string.
    return \@ret;
}


1;
__END__