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;