#!/usr/bin/perl6
use Inline::Perl5;
use Term::ANSIColor:from<Perl5> <color RED RESET>;

my $Red   = color("red");
my $Reset = color("reset");
say $Red ~ "--Red--" ~ $Reset;
say RED  ~ "--Red--" ~  RESET;
say "{RED}--Red--{RESET}";

# And Laurent_R is right:
my $Blue  = Term::ANSIColor::color("blue");
say $Blue ~ "--Blue--" ~ $Reset;

##</code><code>##

my $p5 = Inline::Perl5.new;
$p5.use('Term::ANSIColor');
my $Green = $p5.call('Term::ANSIColor::GREEN');
say $Green ~ "--Green--" ~ $Reset;

##</code><code>##

Term::ANSIColor.YELLOW; # AUTOLOAD should generate YELLOW
my $Yellow  = Term::ANSIColor::YELLOW;  # Hmm, nope :(  at least not visible to Perl6
say $Yellow ~ "--Yellow--" ~ $Reset;