1 package TAP::Parser::Result::Pragma;
5 use vars qw($VERSION @ISA);
6 use TAP::Parser::Result;
7 @ISA = 'TAP::Parser::Result';
11 TAP::Parser::Result::Pragma - TAP pragma token.
23 This is a subclass of L<TAP::Parser::Result>. A token of this class will be
24 returned if a pragma is encountered.
29 Pragmas are only supported from TAP version 13 onwards.
31 =head1 OVERRIDDEN METHODS
33 Mainly listed here to shut up the pitiful screams of the pod coverage tests.
34 They keep me awake at night.
46 ##############################################################################
48 =head2 Instance Methods
52 if ( $result->is_pragma ) {
53 @pragmas = $result->pragmas;
59 my @pragmas = @{ shift->{pragmas} };
60 return wantarray ? @pragmas : \@pragmas;