test.p6

use IRC::Client;
use IRC::Client::Plugin;
use IRC::Art;

class Artist is IRC::Client::Plugin {
   method irc-to-me ($irc, $e, %res) {
      my $art = IRC::Art.new(10, 4); # A 4x4
      $art.rectangle(0, 0, 3, 3, :color(4)); #draw a red square
      $art.text("Woohoo 6.c", 1, 1, :color(13), :bold); # put the 6.c text starting at 1,1
      $irc.respond: |%res, :what($_) for $art.result;
   }
}

IRC::Client.new(
    :debug
    :host<irc.freenode.net>
    :channels<#perl6>
    :plugins( Artist.new )
).run;