package TB2::NoHistory;

use Carp;
use TB2::Mouse;
extends qw{TB2::History};

our $VERSION = '1.005000_002';
$VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)


=head1 NAME

TB2::NoHistory - Store no history, just keep stats

=head1 SYNOPSIS

    use TB2::NoHistory;

    # This is a shared default object
    my $history = TB2::NoHistory->default;
    my $ec = TB2::EventCoordinator->create(
        history => $history
    );

    my $result  = TB2::Result->new_result( pass => 1 );
    $ec->post_event($result);

    $history->can_succeed;    # true
    $history->test_count;    # 1  we've seen a test
    $history->results_count; # 0  we did not store a result
    $history->results;       # [] still not there

=head1 DESCRIPTION

This object does not store results but manages the history of test stats.

=head1 API

All methods are the same from TB2::History.

=cut

has '+results' => 
    lazy => 1,
    clearer => 'clear_results', 
;


sub handle_result {
    my $self = shift;
    my $result = shift;

    $self->_update_statistics($result);

    return;
}

sub handle_event {}

no TB2::Mouse;
1;