Update Test-Harness to CPAN version 3.39
[perl.git] / cpan / Test-Harness / lib / TAP / Parser / Result / Pragma.pm
1 package TAP::Parser::Result::Pragma;
2
3 use strict;
4 use warnings;
5
6 use base 'TAP::Parser::Result';
7
8 =head1 NAME
9
10 TAP::Parser::Result::Pragma - TAP pragma token.
11
12 =head1 VERSION
13
14 Version 3.39
15
16 =cut
17
18 our $VERSION = '3.39';
19
20 =head1 DESCRIPTION
21
22 This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
23 returned if a pragma is encountered.
24
25  TAP version 13
26  pragma +strict, -foo
27
28 Pragmas are only supported from TAP version 13 onwards.
29
30 =head1 OVERRIDDEN METHODS
31
32 Mainly listed here to shut up the pitiful screams of the pod coverage tests.
33 They keep me awake at night.
34
35 =over 4
36
37 =item * C<as_string>
38
39 =item * C<raw>
40
41 =back
42
43 =cut
44
45 ##############################################################################
46
47 =head2 Instance Methods
48
49 =head3 C<pragmas> 
50
51 if ( $result->is_pragma ) {
52     @pragmas = $result->pragmas;
53 }
54
55 =cut
56
57 sub pragmas {
58     my @pragmas = @{ shift->{pragmas} };
59     return wantarray ? @pragmas : \@pragmas;
60 }
61
62 1;