TAP::Parser::Result::Pragma - TAP pragma token.

Test-Harness documentation Contained in the Test-Harness distribution.

Index

Code Index:

NAME

Top

TAP::Parser::Result::Pragma - TAP pragma token.

VERSION

Top

Version 3.23

DESCRIPTION

Top

This is a subclass of TAP::Parser::Result. A token of this class will be returned if a pragma is encountered.

 TAP version 13
 pragma +strict, -foo

Pragmas are only supported from TAP version 13 onwards.

OVERRIDDEN METHODS

Top

Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night.

* as_string
* raw

Instance Methods

pragmas

if ( $result->is_pragma ) { @pragmas = $result->pragmas; }

Test-Harness documentation Contained in the Test-Harness distribution. 
package TAP::Parser::Result::Pragma;

use strict;

use vars qw($VERSION @ISA);
use TAP::Parser::Result;
@ISA = 'TAP::Parser::Result';


$VERSION = '3.23';


##############################################################################


sub pragmas {
    my @pragmas = @{ shift->{pragmas} };
    return wantarray ? @pragmas : \@pragmas;
}

1;