The Perl Advent Calendar needs more articles for 2022. Submit your idea today!

NAME

Shell::Verbose - A verbose version of system()

SYNOPSIS

    # Nothing is exported by default
    use Shell::Verbose qw/verboseSystem vsys/;

    verboseSystem('echo "foo"');
    # echo "foo"
    # foo

    # Short form
    vsys('echo "foo"');
    # echo "foo"
    # foo

    # Returns a true value when the command is successful
    print "How did true fail!?\n" unless (vsys('true');

    Shell::Verbose->prefix('===> ');
    # ===> echo 'foo'
    # foo

    Shell::Verbose->before('Running the next line');
    # Running the next line
    # ===> echo 'foo'
    # foo

    Shell::Verbose->after('That was easy');
    # Running the next line
    # ===> echo 'foo'
    # foo
    # That was easy

DESCRIPTION

A simple wrapper for system() that prints the command

METHODS

verboseSystem($command)

Run the specified command, printing the command along with before, prefix, and after if defined.

Returns the inverse of shell success, that is a true value (1) if the command exited with zero status (success) and a false value (0) if the command exited with a non-zero status (failure). See $? ($CHILD_ERROR) for the real deets.

SOURCE

https://github.com/dinomite/Shell-Verbose

AUTHOR

Drew Stephens <drew@dinomite.net>