File Coverage

blib/lib/Hoppy/TestFilter.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	37	40	92.5

package Hoppy::TestFilter;
use strict;
use warnings;
use base qw(POE::Filter::Line);

my $c;

sub FRAMING_BUFFER () { 0 }

sub new {
    my $class = shift;
    $c = shift;
    my $self =
      $class->SUPER::new( InputRegexp => qr/\x00|\n/, OutputLiteral => "\x00" );
    return $self;
}

sub get_one_start {
    my $self = shift;
    $self->SUPER::get_one_start(@_);
    if ( $self->[FRAMING_BUFFER] =~ /\n$/s ) {
        my $session_id = POE::Kernel->get_active_session->ID;
        $c->{test_client}->{$session_id} = 1;
    }
}

sub put {
    my $self       = shift;
    my $session_id = POE::Kernel->get_active_session->ID;
    if ( $c->{test_client}->{$session_id} ) {
        my $lines = shift;
        my @raw;
        foreach (@$lines) {
            push @raw, $_ . "\n";
        }
        return \@raw;
    }
    else {
        $self->SUPER::put(@_);
    }
}

1;
__END__