gistfile1.txt

class Pr1::Conn {
  has IO::Socket::INET $!conn;

  method new ($conn) {
    return self.bless(*, :$conn)
  }

  method send (Cool $str as Str) {
    say $!conn.WHAT;
    $!conn.send($str ~ "\r\n")
  }

  method readline() {
   $!conn.readline;
  }

  method go () {
    self.send("Welcome to Kevin Tew's Chat Server");
  }

}

class Pr1 {

has $!listener;
has Int $.port = 9020;
has Str $.host = "localhost";

method connect (:$port=$.port, :$host=$.host)
{
  $!listener = IO::Socket::INET.new(
    :localhost($host),
    :localport($port),
    :listen(1)
  );
  $!listener.input-line-separator = "\r\n";
  say "Hello Mom"
}

method handle()
{
  loop {
    my Pr1::Conn $a = Pr1::Conn.new($!listener.accept());
    $a.go();
  }
}

}

my $foo = Pr1.new;
$foo.connect();
$foo.handle();