blob: 3500e274b11771f1ab9d6c9b29a6af9bb7c94658 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package Local::ScriptStatus;
use strict;
use warnings;
use parent 'Exporter';
use Term::ANSIColor;
use File::Basename;
our @EXPORT = qw( script_status say_bold say_bullet say_spaced_bullet );
my $us = basename($0);
sub script_status {
print colored(['bold'], "[");
print colored(['bold red'], $us);
print colored(['bold'], "] ");
say_bold(@_);
}
sub say_bold { print colored(['bold'], @_), "\n" }
sub say_bullet { say_bold(" • ", @_) }
sub say_spaced_bullet { say_bold("\n", " • ", @_, "\n") }
1;
|