++$test;
my $test_str = "ok $test";
- unless ($ok) {
+ $ok or do {
$test_str = "not $test_str";
++$failed;
- }
+ };
if (defined $desc) {
_sanitize_comment($desc);
$test_str .= " - $desc" if length $desc;
=head1 COPYRIGHT & LICENSE
-Copyright 2010 Vincent Pit, all rights reserved.
+Copyright 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.