The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
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>