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

package assertions::activate;

our $VERSION = '0.01';

# use strict;
# use warnings;

sub import {
    shift;
    @_='.*' unless @_;
    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 FandiE<ntilde>o, E<lt>sfandino@yahoo.comE<gt>

=head1 COPYRIGHT AND LICENSE

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