diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-11-13 10:36:21 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-11-13 10:36:21 -0700 |
commit | 00e75e86f260921dab60b1117bbc7e080420e9f0 (patch) | |
tree | afd5c83a39ce4ab52a80eaa9f6cf0c03d76ea5d7 /perl5 | |
parent | 9ff76e508325d49796e0130a1535f3a7985bfca6 (diff) | |
download | dotfiles-00e75e86f260921dab60b1117bbc7e080420e9f0.tar.gz |
archive ScriptStatus.pm (not Local/ScriptStatus.pm)
Diffstat (limited to 'perl5')
-rw-r--r-- | perl5/ScriptStatus.pm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/perl5/ScriptStatus.pm b/perl5/ScriptStatus.pm deleted file mode 100644 index 021dafdc..00000000 --- a/perl5/ScriptStatus.pm +++ /dev/null @@ -1,20 +0,0 @@ -package ScriptStatus; - -use strict; -use warnings; - -use parent 'Exporter'; -our @EXPORT = qw( status ); - -use Term::ANSIColor; -use File::Basename; - -sub status { - my $me = basename($0); - print "["; - print colored("$me", 'yellow'); - print "] "; - print colored(@_, 'bright_white'), "\n"; -} - -1; |