perl5/Local/ScriptStatus.pm


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;