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


line stmt bran cond sub pod time code
1             package Test::Run::Straps::Base;
2              
3 14     14   10608 use strict;
  14         32  
  14         383  
4 14     14   71 use warnings;
  14         30  
  14         418  
5              
6             =head1 NAME
7              
8             Test::Run::Straps::Base - base class for some Straps-related classes.
9              
10             =head1 DESCRIPTION
11              
12             This class serves to abstract the common functionality between
13             L<Test::Run::Straps> and L<Test::Run::Straps::StrapsTotalsObj>.
14              
15             =cut
16              
17 14     14   78 use Moose;
  14         29  
  14         87  
18              
19             extends('Test::Run::Base::Struct');
20              
21 14     14   86966 use Test::Run::Straps::EventWrapper;
  14         58  
  14         383  
22              
23 14     14   121 use vars qw(@fields);
  14         26  
  14         1482  
24              
25             has '_event' => (is => "rw", isa => "Maybe[Test::Run::Straps::EventWrapper]");
26              
27             sub _is_event_pass
28             {
29 409     409   657 my $self = shift;
30              
31 409         14935 return $self->_event->is_pass();
32             }
33              
34             =head1 LICENSE
35              
36             This file is licensed under the MIT X11 License:
37              
38             http://www.opensource.org/licenses/mit-license.php
39              
40             =head1 AUTHOR
41              
42             Shlomi Fish, L<http://www.shlomifish.org/> .
43              
44             =cut
45              
46             1;
47