[p5sagit/p5-mst-13.2.git] / lib / assertions / activate.pm

package assertions::activate;

our $VERSION = '0.01';

# use strict;
# use warnings;

sub import {
    shift;
    push @{^ASSERTING}, ( map { qr/^$_$/ } @_) ;
}

1;
__END__

=head1 NAME

assertions::activate - assertions activation

=head1 SYNOPSIS

  use assertions::activate 'Foo', 'bar', 'Foo::boz::.*' ;

=head1 ABSTRACT

C<assertions::activate> module is used to configure assertion
execution.

=head1 DESCRIPTION


=head2 EXPORT

None by default.

=head1 SEE ALSO

L<assertions>

=head1 AUTHOR

Salvador Fandiño, E<lt>sfandino@yahoo.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2002 by Salvador Fandiño

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut
Commit	Line	Data
06492da6	1	package assertions::activate;
	2
	3	our $VERSION = '0.01';
	4
	5	# use strict;
	6	# use warnings;
	7
	8	sub import {
	9	shift;
	10	push @{^ASSERTING}, ( map { qr/^$_$/ } @_) ;
	11	}
	12
	13	1;
	14	__END__
	15
	16	=head1 NAME
	17
	18	assertions::activate - assertions activation
	19
	20	=head1 SYNOPSIS
	21
	22	use assertions::activate 'Foo', 'bar', 'Foo::boz::.*' ;
	23
	24	=head1 ABSTRACT
	25
	26	C<assertions::activate> module is used to configure assertion
	27	execution.
	28
	29	=head1 DESCRIPTION
	30
	31
	32
	33	=head2 EXPORT
	34
	35	None by default.
	36
	37	=head1 SEE ALSO
	38
	39	L<assertions>
	40
	41	=head1 AUTHOR
	42
	43	Salvador Fandiño, E<lt>sfandino@yahoo.comE<gt>
	44
	45	=head1 COPYRIGHT AND LICENSE
	46
	47	Copyright 2002 by Salvador Fandiño
	48
	49	This library is free software; you can redistribute it and/or modify
	50	it under the same terms as Perl itself.
	51
	52	=cut