12 @_=(scalar(caller)) unless @_;
15 return unless $^H & $hint;
20 unless (grep { $tag=~$_ } @{^ASSERTING}) {
38 assertions - selects assertions
42 sub assert (&) : assertion { &{$_[0]}() }
45 assert { print "asserting 'foo'\n" };
48 use assertions qw( foo bar );
49 assert { print "asserting 'foo' & 'bar'\n" };
53 use assertions qw( bar );
54 assert { print "asserting 'bar'\n" };
58 use assertions qw( & bar );
59 assert { print "asserting 'foo' & 'bar'\n" };
62 assert { print "asserting 'foo' again\n" };
67 C<assertions> pragma selects the tags used to control assertion
85 Salvador Fandiño, E<lt>sfandino@yahoo.comE<gt>
87 =head1 COPYRIGHT AND LICENSE
89 Copyright 2002 by Salvador Fandiño
91 This library is free software; you can redistribute it and/or modify
92 it under the same terms as Perl itself.