-use Net::Telnet;
-use Data::Dump qw(dump);
-
-use Moose::Util::TypeConstraints;
-use Regexp::Common qw(net);
-
-subtype IPAddr
-=> as Str
-=> where {/^$RE{net}{IPv4}$/}
-=> message { 'invalid IP address'};
-
-subtype Port
-=> as Str
-=> where { m{\d+(/\d+)+} }
-=> message { 'invalid port' };
-
-has 'ip' => ( is => 'rw', isa => 'IPAddr' );
-has 'port' => ( is => 'rw', isa => 'Port' );