File Coverage

blib/lib/TAP/Parser/Result/Comment.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package TAP::Parser::Result::Comment;
2              
3 32     32   115 use strict;
  32         177  
  32         767  
4 32     32   116 use warnings;
  32         35  
  32         764  
5              
6 32     32   119 use base 'TAP::Parser::Result';
  32         39  
  32         3269  
7              
8             =head1 NAME
9              
10             TAP::Parser::Result::Comment - Comment result token.
11              
12             =head1 VERSION
13              
14             Version 3.38
15              
16             =cut
17              
18             our $VERSION = '3.38';
19              
20             =head1 DESCRIPTION
21              
22             This is a subclass of L. A token of this class will be
23             returned if a comment line is encountered.
24              
25             1..1
26             ok 1 - woo hooo!
27             # this is a comment
28              
29             =head1 OVERRIDDEN METHODS
30              
31             Mainly listed here to shut up the pitiful screams of the pod coverage tests.
32             They keep me awake at night.
33              
34             =over 4
35              
36             =item * C
37              
38             Note that this method merely returns the comment preceded by a '# '.
39              
40             =back
41              
42             =cut
43              
44             ##############################################################################
45              
46             =head2 Instance Methods
47              
48             =head3 C
49              
50             if ( $result->is_comment ) {
51             my $comment = $result->comment;
52             print "I have something to say: $comment";
53             }
54              
55             =cut
56              
57 28     28 1 10758 sub comment { shift->{comment} }
58 6     6 1 940 sub as_string { shift->{raw} }
59              
60             1;