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