Select Code to Download

sub print_debug {
    use Term::ANSIColor qw(:constants);
...

use Term::ANSIColor qw(:constants);
print_debug ("foo", BLUE ON_WHITE);

sub print_debug {
    my ($text, $color) = @_;
...
}

print_debug "bar", "yellow on_magenta";