perl5/ScriptStatus.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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;