view release on metacpan or  search on metacpan

bin/raider  view on Meta::CPAN

use App::Raider;
use App::Raider::Skill;
use Langertha::Raider;

binmode STDOUT, ':encoding(UTF-8)';
binmode STDIN,  ':encoding(UTF-8)';

# --- Palette: blue tones + yellow accents -------------------------------

my %C = (
  brand  => 'bold bright_blue',
  title  => 'bold blue',
  prompt => 'bold cyan',
  agent  => 'bright_green',
  meta   => 'bright_black',
  accent => 'yellow',
  warn   => 'yellow',
  err    => 'red',
);

sub c { my ($k, @t) = @_; -t STDOUT ? colored([$C{$k}], join('', @t)) : join('', @t) }

# --- Options ------------------------------------------------------------