File Coverage

blib/lib/XAS/Apps/Test/Echo/Client.pm

Criterion	Covered	Total	%
statement	9	28	32.1
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	2	4	50.0
total	14	39	35.9

package XAS::Apps::Test::Echo::Client;

our $VERSION = '0.02';

use Try::Tiny;
use XAS::Lib::Net::Client;

use XAS::Class
  version   => $VERSION,
  base      => 'XAS::Lib::App',
  accessors => 'handle port host send'
;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub setup {
    my $self = shift;

    $self->{handle} = XAS::Lib::Net::Client->new(
        -port => $self->port,
        -host => $self->host,
    );

}

sub do_echo {
    my $self = shift;

    my $message;

    $self->handle->connect();
    $self->handle->puts($self->send);

    $message = $self->handle->gets();
    $self->handle->disconnect();

    $self->log->info(sprintf("echo = %s", $message));

}

sub main {
    my $self = shift;

    $self->setup();

    $self->log->debug('Starting main section');

    $self->do_echo();

    $self->log->debug('Ending main section');

}

sub options {
    my $self = shift;

    $self->{send} = '';
    $self->{port} = '9505';
    $self->{host} = 'localhost';

    return {
        'port=s' => \$self->{port},
        'host=s' => \$self->{host},
        'send=s' => \$self->{send},
    };

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

1;

__END__