… | |
… | |
21 | |
21 | |
22 | =cut |
22 | =cut |
23 | |
23 | |
24 | package AnyEvent::Strict; |
24 | package AnyEvent::Strict; |
25 | |
25 | |
26 | no warnings; # *sigh* |
|
|
27 | use strict qw(vars subs); |
|
|
28 | |
|
|
29 | use Carp qw(croak); |
26 | use Carp qw(croak); |
30 | use Fcntl (); |
27 | use Fcntl (); |
31 | |
28 | |
32 | use AnyEvent (); |
29 | use AnyEvent (); BEGIN { AnyEvent::common_sense } |
33 | use AnyEvent::Util (); |
|
|
34 | |
30 | |
35 | our @ISA; |
31 | our @ISA; |
36 | |
32 | |
37 | AnyEvent::post_detect { |
33 | AnyEvent::post_detect { |
38 | # assume the first ISA member is the implementation |
34 | # assume the first ISA member is the implementation |
… | |
… | |
100 | |
96 | |
101 | ref $arg{cb} |
97 | ref $arg{cb} |
102 | or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; |
98 | or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; |
103 | delete $arg{cb}; |
99 | delete $arg{cb}; |
104 | |
100 | |
105 | defined AnyEvent::Util::sig2num $arg{signal} |
101 | defined AnyEvent::Base::sig2num $arg{signal} |
106 | or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; |
102 | or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; |
107 | delete $arg{signal}; |
103 | delete $arg{signal}; |
108 | |
104 | |
109 | croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg |
105 | croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg |
110 | if keys %arg; |
106 | if keys %arg; |