| 1 | package AnyEvent::Strict; |
1 | package AnyEvent::Strict; |
|
|
2 | |
|
|
3 | # supply checks for argument validity for many functions |
|
|
4 | # this is an internal module. although it could be loaded |
|
|
5 | # at any time, this is not really documented. |
| 2 | |
6 | |
| 3 | use Carp qw(croak); |
7 | use Carp qw(croak); |
| 4 | use AnyEvent (); |
8 | use AnyEvent (); |
| 5 | |
9 | |
| 6 | AnyEvent::post_detect { |
10 | AnyEvent::post_detect { |
| 7 | my $MODEL = shift @AnyEvent::ISA; |
11 | my $MODEL = shift @AnyEvent::ISA; |
| 8 | unshift @ISA, $MODEL; |
12 | unshift @ISA, $MODEL; |
| 9 | unshift @AnyEvent::ISA, AnyEvent::Strict:: |
13 | unshift @AnyEvent::ISA, AnyEvent::Strict:: |
| 10 | }; |
14 | }; |
| 11 | |
|
|
| 12 | # supply checks for argument validity for many functions |
|
|
| 13 | |
15 | |
| 14 | sub io { |
16 | sub io { |
| 15 | my $class = shift; |
17 | my $class = shift; |
| 16 | my %arg = @_; |
18 | my %arg = @_; |
| 17 | |
19 | |
