view release on metacpan or  search on metacpan

lib/Archive/TAP/Peek.pm  view on Meta::CPAN

    }

    bless ($self, $class);

    return $self;
}

sub all_ok {
    my $self = shift;

    if( $self->{error_found} ) {
        return;
    }
    else {
        return 1;
    }
}

1;

__END__

=pod

=head1 NAME

Archive::TAP::Peek - Look into TAP-Archives

=head1 VERSION

version 0.002

=head1 SYNOPSIS

 use Archive::TAP::Peek;

 my $peek = Archive::TAP::Peek->new( archive => 'tests.tar.gz' );

 if( $peek->all_ok ) {
     print "No errors in archive\n";
 }

=encoding utf8

=head1 ABOUT

This is a software library for the I<perl programming language>.

The modul can be of help for you if you have TAP archives (e.g. created with C<prove -a> and now you wish to know something about the outcomes of the test-results inside the archive.

=head1 METHODS

=head2 all_ok

Returns a true value if no errors where found in the archive, otherwise false.

 if( $peek->all_ok ) {
     print "No errors in archive\n";
 }

=head1 BUGS AND LIMITATIONS

Archive gets unpacked into a temproary directory.
Could maybe be made on-the-fly with L<Archive::Peek>.

=head1 SEE ALSO

=over

=item *

L<Test::Harness>

=back

=head1 AUTHOR

Boris Däppen <bdaeppen.perl@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Boris Däppen, plusW.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut