git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/lib/TAP/Parser/Result/YAML.pm

   1 package TAP::Parser::Result::YAML;
   2
   3 use strict;
   4
   5 use vars qw($VERSION @ISA);
   6 use TAP::Parser::Result;
   7 @ISA = 'TAP::Parser::Result';
   8
   9 =head1 NAME
  10
  11 TAP::Parser::Result::YAML - YAML result token.
  12
  13 =head1 VERSION
  14
  15 Version 3.12
  16
  17 =cut
  18
  19 $VERSION = '3.12';
  20
  21 =head1 DESCRIPTION
  22
  23 This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
  24 returned if a YAML block is encountered.
  25
  26  1..1
  27  ok 1 - woo hooo!
  28
  29 C<1..1> is the plan.  Gotta have a plan.
  30
  31 =head1 OVERRIDDEN METHODS
  32
  33 Mainly listed here to shut up the pitiful screams of the pod coverage tests.
  34 They keep me awake at night.
  35
  36 =over 4
  37
  38 =item * C<as_string>
  39
  40 =item * C<raw>
  41
  42 =back
  43
  44 =cut
  45
  46 ##############################################################################
  47
  48 =head2 Instance Methods
  49
  50 =head3 C<data>
  51
  52   if ( $result->is_yaml ) {
  53      print $result->data;
  54   }
  55
  56 Return the parsed YAML data for this result
  57
  58 =cut
  59
  60 sub data { shift->{data} }
  61
  62 1;