The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Ubic::Cmd::Results - console results set

SYNOPSIS

    use Ubic::Cmd::Results;

    $results = Ubic::Cmd::Results->new;

    $results->print($result);
    $results->print($result, 'bad');
    $results->print($result, 'good');

    $code = $results->finish; # prints final statistics and returns supposed exit code

DESCRIPTION

This class controls output of service actions.

METHODS

new()

Constructor.

Print given strings in red color if stdout is terminal, and in plain text otherwise.

Print given strings in green color if stdout is terminal, and in plain text otherwise.

print($result)
print($result, $type)

Print given Ubic::Result::Class object.

$type can be "good" or "bad".

If $type is specified, it is taken into consideration, otherwise result is considered good unless it is "broken".

add($result)

Add result without printing.

results()

Get all results.

finish(\@results)

Print error if some of results are bad, and return correct exit code, understandable by _run_impl().

AUTHOR

Vyacheslav Matjukhin <mmcleric@yandex-team.ru>