=head1 VERSION
-Version 1.01
+Version 1.13
=cut
-our $VERSION = '1.01';
+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
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.