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 | |