File Coverage

blib/lib/Test/Mini/Logger.pm

Criterion	Covered	Total	%
statement	47	49	95.9
branch			n/a
condition	2	2	100.0
subroutine	20	21	95.2
pod	17	17	100.0
total	86	89	96.6

package Test::Mini::Logger;

use 5.006;
use strict;
use warnings;

use Time::HiRes;

sub new {
    my ($class, %args) = @_;
    return bless {
        verbose => 0,
        buffer  => *STDOUT{IO},
        %args,
        count   => {},
        times   => {},
    }, $class;
}

# ===========================
# Attribute Accessors
# ===========================

sub verbose {
    my ($self) = @_;
    return $self->{verbose};
}

sub buffer {
    my ($self) = @_;
    return $self->{buffer};
}

# ===========================
# Output Functions
# ===========================

sub print {
    my ($self, @msg) = @_;
    print { $self->buffer() } @msg;
}

sub say {
    my ($self, @msg) = @_;
    $self->print(join("\n", @msg), "\n");
}

# ===========================
# Callbacks
# ===========================

# Called before the test suite is run.
sub begin_test_suite {
    my ($self, %args) = @_;
    $self->{times}->{$self} = -Time::HiRes::time();
}

# Called before each test case is run.
sub begin_test_case {
    my ($self, $tc, @tests) = @_;
    $self->{times}->{$tc} = -Time::HiRes::time();
}

# Called before each test is run.
sub begin_test {
    my ($self, $tc, $test) = @_;
    $self->{times}->{"$tc#$test"} = -Time::HiRes::time();
}

# Called after each test is run.
sub finish_test {
    my ($self, $tc, $test, $assertions) = @_;
    $self->{count}->{test}++;
    $self->{count}->{assert} += $assertions;
    $self->{times}->{"$tc#$test"} += Time::HiRes::time();
}

# Called after each test case is run.
sub finish_test_case {
    my ($self, $tc, @tests) = @_;
    $self->{count}->{test_case}++;
    $self->{times}->{$tc} += Time::HiRes::time();
}

# Called after each test suite is run.
sub finish_test_suite {
    my ($self, $exit_code) = @_;
    $self->{times}->{$self} += Time::HiRes::time();
}

# Called when a test passes.
sub pass {
    my ($self, $tc, $test) = @_;
    $self->{count}->{pass}++;
}

# Called when a test is skipped.
sub skip {
    my ($self, $tc, $test, $e) = @_;
    $self->{count}->{skip}++;
}

# Called when a test fails.
sub fail {
    my ($self, $tc, $test, $e) = @_;
    $self->{count}->{fail}++;
}

# Called when a test dies with an error.
sub error {
    my ($self, $tc, $test, $e) = @_;
    $self->{count}->{error}++;
}

# ===========================
# Statistics
# ===========================

# Accessor for counters.
sub count {
    my ($self, $key) = @_;
    return ($key ? $self->{count}->{$key} : $self->{count}) || 0;
}

# Accessor for the timing data.
sub time {
    my ($self, $key) = @_;
    return $self->{times}->{$key};
}

1;

__END__