diff options
author | EuAndreh <eu@euandre.org> | 2019-01-05 10:38:38 -0200 |
---|---|---|
committer | EuAndreh <eu@euandre.org> | 2019-01-05 10:39:06 -0200 |
commit | 55e947d7901c17dbb1365a5cfb9f40acd50e903b (patch) | |
tree | 4e2a7db1001ccf64073824d907afaabf2e69ae91 /slides/website-slides | |
parent | Add BATS tests to CLI usage and basic interactions. (diff) | |
download | euandre.org-55e947d7901c17dbb1365a5cfb9f40acd50e903b.tar.gz euandre.org-55e947d7901c17dbb1365a5cfb9f40acd50e903b.tar.xz |
Print CLI errors using Term::ANSIColor.
Diffstat (limited to 'slides/website-slides')
-rwxr-xr-x | slides/website-slides | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/slides/website-slides b/slides/website-slides index cf795c4..a1f1466 100755 --- a/slides/website-slides +++ b/slides/website-slides @@ -39,6 +39,7 @@ use Pod::Usage qw(pod2usage); use File::Basename qw(dirname); use File::Path qw(make_path); use File::Copy qw(copy); +use Term::ANSIColor; my $help = 0; my $name = ''; @@ -50,7 +51,7 @@ pod2usage(-verbose => 2, -exitval => 0) if $help; pod2usage( -verbose => 1, -exitval => 2, - -message => "Missing required --name argument." + -message => colored("Missing required --name argument.", "red") ) if !$name; my $dirname = dirname(__FILE__); |