=head1 VERSION
-Version 1.02
+Version 1.13
=cut
-our $VERSION = '1.02';
+our $VERSION = '1.13';
=head1 DESCRIPTION
use Test::Builder;
-use base qw/Test::Valgrind::Action Test::Valgrind::Action::Captor/;
+use base qw<Test::Valgrind::Action Test::Valgrind::Action::Captor>;
=head1 METHODS
This class inherits L<Test::Valgrind::Action> and L<Test::Valgrind::Action::Captor>.
-=head2 C<< new diag => $diag, extra_tests => $extra_tests, ... >>
+=head2 C<new>
+
+ my $tvat = Test::Valgrind::Action::Test->new(
+ diag => $diag,
+ extra_tests => $extra_tests,
+ %extra_args,
+ );
Your usual constructor.
=head2 C<diag>
+ my $diag = $tvat->diag;
+
Read-only accessor for the C<diag> option.
=cut
=head2 C<kinds>
+ my @kinds = $tvat->kinds;
+
Returns the list of all the monitored report kinds.
=cut
my $tb = Test::Builder->new;
my $plan = $tb->has_plan;
if (defined $plan) {
- $tb->BAIL_OUT($@);
+ $tb->BAIL_OUT($msg);
$self->{status} = 255;
} else {
- $tb->skip_all($@);
+ $tb->skip_all($msg);
$self->{status} = 0;
}
seek $fh, $self->{capture_pos}, 0;
$tb->diag($_) while <$fh>;
close $fh or $self->_croak('close(capture[' . fileno($fh) . "]): $!");
- delete @{$self}{qw/capture capture_pos/};
+ delete @{$self}{qw<capture capture_pos>};
}
my $failed = 0;
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.