File Coverage

blib/lib/Test/Run/Straps/Base.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	23	23	100.0

package Test::Run::Straps::Base;

use strict;
use warnings;

=head1 NAME

Test::Run::Straps::Base - base class for some Straps-related classes.

=head1 DESCRIPTION

This class serves to abstract the common functionality between
L<Test::Run::Straps> and L<Test::Run::Straps::StrapsTotalsObj>.

=cut

use Moose;

extends('Test::Run::Base::Struct');

use Test::Run::Straps::EventWrapper;

use vars qw(@fields);

has '_event' => (is => "rw", isa => "Maybe[Test::Run::Straps::EventWrapper]");

sub _is_event_pass
{
    my $self = shift;

    return $self->_event->is_pass();
}

=head1 LICENSE

This file is licensed under the MIT X11 License:

http://www.opensource.org/licenses/mit-license.php

=head1 AUTHOR

Shlomi Fish, L<http://www.shlomifish.org/> .

=cut

1;