Select Code to Download

my $can = PCI::Telnet::GUI::Canvas->new(10,40);
$can->fill([ON_YELLOW,BOLD,WHITE],0,0,$can->height,$can->width,HOR);
...

$can->render_canvas(2,2,$c2);
print $can->to_string(20,10), "\n\n";

use constant AS_BG    => 0;
use constant AS_FG    => 1;
...
    $_->[AS_BLINK]    = $_[0]->[AS_BLINK]    if  $_->[AS_BLINK] < 0;
    return $_;
}

# iloop is the inner loop of the canvas rendering function. 
# I put it in a separate sub so that DProf could show it
...
    }
    return join '', @a;
}