File Coverage

blib/lib/Hoppy/TCPHandler/Input.pm

Criterion	Covered	Total	%
statement	20	28	71.4
branch	4	8	50.0
condition			n/a
subroutine	4	5	80.0
pod	2	2	100.0
total	30	43	69.7

package Hoppy::TCPHandler::Input;
use strict;
use warnings;
use base qw( Hoppy::Base );

sub do_handle {
    my $self  = shift;
    my $poe   = shift;
    my $c     = $self->context;
    my $input = $poe->args->[0];

    if ( $input =~ /policy-file-request/ ) {
        my $xml = $self->cross_domain_policy_xml;
        $c->handler->{Send}->do_handle( $poe, $xml );
    }
    elsif ( $input =~ /^exit(\x00)*/ ) {
        $c->handler->{Disconnected}->do_handle($poe);
    }
    else {
        my $in_data = '';
        eval { $in_data = $c->formatter->deserialize($input); };
        if ($@) {
            warn "IO Format Error: $@";
        }
        else {
            $c->dispatch( $in_data, $poe );
        }
    }

    if ( my $hook = $c->hook->{client_input} ) {
        $hook->work( { poe => $poe } );
    }
}

sub cross_domain_policy_xml {
    my $self = shift;
    my $xml  = <<"    END";





    END
    return $xml;
}

1;
__END__