… | |
… | |
117 | if keys %arg; |
117 | if keys %arg; |
118 | |
118 | |
119 | $class->SUPER::child (@_) |
119 | $class->SUPER::child (@_) |
120 | } |
120 | } |
121 | |
121 | |
|
|
122 | sub idle { |
|
|
123 | my $class = shift; |
|
|
124 | my %arg = @_; |
|
|
125 | |
|
|
126 | ref $arg{cb} |
|
|
127 | or croak "AnyEvent->idle called with illegal cb argument '$arg{cb}'"; |
|
|
128 | delete $arg{cb}; |
|
|
129 | |
|
|
130 | croak "AnyEvent->idle called with unsupported parameter(s) " . join ", ", keys %arg |
|
|
131 | if keys %arg; |
|
|
132 | |
|
|
133 | $class->SUPER::idle (@_) |
|
|
134 | } |
|
|
135 | |
122 | sub condvar { |
136 | sub condvar { |
123 | my $class = shift; |
137 | my $class = shift; |
124 | my %arg = @_; |
138 | my %arg = @_; |
125 | |
139 | |
126 | !exists $arg{cb} or ref $arg{cb} |
140 | !exists $arg{cb} or ref $arg{cb} |