=head1 VERSION
-Version 1.01
+Version 1.12
=cut
-our $VERSION = '1.01';
+our $VERSION = '1.12';
=head1 DESCRIPTION
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;
}
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Vincent Pit, all rights reserved.
+Copyright 2009,2010 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.