File Coverage

blib/lib/POE/Filter.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	10	10	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	49	49	100.0

package POE::Filter;

use strict;

use vars qw($VERSION);
$VERSION = '1.365'; # NOTE - Should be #.### (three decimal places)

use Carp qw(croak);

#------------------------------------------------------------------------------

sub new {
  my $type = shift;
  croak "$type is not meant to be used directly";
}

# Return all the messages possible to parse in the current input
# buffer.  This uses the newer get_one_start() and get_one(), which is
# implementation dependent.

sub get {
  my ($self, $stream) = @_;
  my @return;

  $self->get_one_start($stream);
  while (1) {
    my $next = $self->get_one();
    last unless @$next;
    push @return, @$next;
  }

  return \@return;
}

sub clone {
  my $self = shift;
  my $buf = (ref($self->[0]) eq 'ARRAY') ? [ ] : '';
  my $nself = bless [
    $buf,                     # BUFFER
    @$self[1..$#$self],  # everything else
  ], ref $self;
  return $nself;
}


sub __param_max

{
    my( $type, $name, $default, $params ) = @_;
    return $default    # 512 MB
        unless defined $params->{$name};

    my $ret = $params->{$name};
    croak "$name must be a number"
            unless $ret =~ /^\d+$/;
    croak "$name must greater then 0"
            unless $ret > 0;
    return $ret;
}


1;

__END__