File Coverage

blib/lib/TAP/DOM/Entry.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 29 29 100.0


line stmt bran cond sub pod time code
1             package TAP::DOM::Entry;
2             our $AUTHORITY = 'cpan:SCHWIGON';
3             # ABSTRACT: Accessors for TAP::DOM line entries
4             $TAP::DOM::Entry::VERSION = '0.98';
5 19     19   306 use 5.006;
  19         59  
6 19     19   95 use strict;
  19         30  
  19         351  
7 19     19   90 use warnings;
  19         35  
  19         1179  
8              
9             require TAP::DOM;
10              
11             use Class::XSAccessor
12 19         143 chained => 1,
13             constructor => 'new',
14             accessors => [qw( raw
15             type
16             data
17             number
18             severity
19             as_string
20             directive
21             description
22             explanation
23             _children
24 19     19   9446 )];
  19         44717  
25              
26             BEGIN {
27 19     19   12065 no strict 'refs';
  19         41  
  19         2251  
28              
29             # bitset aware 'is_/has_' accessors
30 19     19   90 for my $method (qw( is_plan
31             is_ok
32             is_test
33             is_comment
34             is_unknown
35             is_actual_ok
36             is_version
37             is_pragma
38             is_unplanned
39             is_bailout
40             is_yaml
41             has_skip
42             has_todo
43             ))
44             {
45 247         1651 *{$method} = sub {
46 172     172   22772 my ($self) = @_;
47 172 100       854 defined $self->{is_has} ? $self->{is_has} & ${"TAP::DOM::".uc($method)} : $self->{$method}
  1         10  
48             }
49 247         761 }
50             }
51              
52             1;
53              
54             __END__