diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/5.10/TAP/Parser/Result/Pragma.pm')
-rw-r--r-- | chromium/third_party/cygwin/lib/perl5/5.10/TAP/Parser/Result/Pragma.pm | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/5.10/TAP/Parser/Result/Pragma.pm b/chromium/third_party/cygwin/lib/perl5/5.10/TAP/Parser/Result/Pragma.pm deleted file mode 100644 index 9f8bcadaa60..00000000000 --- a/chromium/third_party/cygwin/lib/perl5/5.10/TAP/Parser/Result/Pragma.pm +++ /dev/null @@ -1,63 +0,0 @@ -package TAP::Parser::Result::Pragma; - -use strict; - -use vars qw($VERSION @ISA); -use TAP::Parser::Result; -@ISA = 'TAP::Parser::Result'; - -=head1 NAME - -TAP::Parser::Result::Pragma - TAP pragma token. - -=head1 VERSION - -Version 3.10 - -=cut - -$VERSION = '3.10'; - -=head1 DESCRIPTION - -This is a subclass of L<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. - -=head1 OVERRIDDEN METHODS - -Mainly listed here to shut up the pitiful screams of the pod coverage tests. -They keep me awake at night. - -=over 4 - -=item * C<as_string> - -=item * C<raw> - -=back - -=cut - -############################################################################## - -=head2 Instance Methods - -=head3 C<pragmas> - -if ( $result->is_pragma ) { - @pragmas = $result->pragmas; -} - -=cut - -sub pragmas { - my @pragmas = @{ shift->{pragmas} }; - return wantarray ? @pragmas : \@pragmas; -} - -1; |