FM / Result

/usr/share/perl5/vendor_perl/TAP/Parser/Result/

/usr/share/perl5/vendor_perl/TAP/Parser/Result

Name	Size	Mode	Actions
Bailout.pm	1148	0644	edit dl rm
Comment.pm	986	0644	edit dl rm
Plan.pm	2048	0644	edit dl rm
Pragma.pm	946	0644	edit dl rm
Test.pm	6078	0644	edit dl rm
Unknown.pm	734	0644	edit dl rm
Version.pm	946	0644	edit dl rm
YAML.pm	880	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/TAP/Parser/Result/Bailout.pm (1148B)

package TAP::Parser::Result::Bailout;

use strict;
use warnings;

use base 'TAP::Parser::Result';

=head1 NAME

TAP::Parser::Result::Bailout - Bailout result token.

=head1 VERSION

Version 3.42

=cut

our $VERSION = '3.42';

=head1 DESCRIPTION

This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
returned if a bail out line is encountered.

1..5
 ok 1 - woo hooo!
 Bail out! Well, so much for "woo hooo!"

=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>

=back

=cut

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

=head2 Instance Methods

=head3 C<explanation>

if ( $result->is_bailout ) {
      my $explanation = $result->explanation;
      print "We bailed out because ($explanation)";
  }

If, and only if, a token is a bailout token, you can get an "explanation" via
this method.  The explanation is the text after the mystical "Bail out!" words
which appear in the tap output.

=cut

sub explanation { shift->{bailout} }
sub as_string   { shift->{bailout} }

cmd: