File Coverage

blib/lib/WWW/Slides/Client/TCP.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	5	6	83.3
condition			n/a
subroutine	8	9	88.8
pod			n/a
total	45	47	95.7

package WWW::Slides::Client::TCP;
{

   use version; our $VERSION = qv('0.0.3');

   use warnings;
   use strict;
   use Carp;
   use English qw( -no_match_vars );

   use Object::InsideOut qw( WWW::Slides::Client::Base );
   use IO::Socket;

   # Module implementation here
   my @port : Field # Port to connect to
     : Std(Name => 'port') : Get(Name => 'port')
     : Arg(Name => 'port', Mandatory => 1);
   my @host : Field # Host to connect to
     : Std(Name => 'host') : Get(Name => 'host')
     : Arg(Name => 'host', Default => 'localhost');

   sub _init : PreInit {
      my $self = shift;
      my ($args) = @_;
      $args->{host} = 'localhost' unless exists $args->{host};

      croak q{missing mandatory parameter 'port'}
         unless exists $args->{port};

      my $sock = IO::Socket::INET->new(
         PeerAddr => $args->{host},
         PeerPort => $args->{port},
      ) or croak "no socket for $args->{host}:$args->{port}";

      $args->{in_handle} = $sock;
      $args->{out_handle} = $sock;

      return;
   }

}

1;    # Magic true value required at end of module
__END__