| … | |
… | |
| 158 | my @cb = exists $arg{cb} ? (cb => wrap delete $arg{cb}) : (); |
158 | my @cb = exists $arg{cb} ? (cb => wrap delete $arg{cb}) : (); |
| 159 | |
159 | |
| 160 | croak "AnyEvent->condvar called with unsupported parameter(s) " . join ", ", keys %arg |
160 | croak "AnyEvent->condvar called with unsupported parameter(s) " . join ", ", keys %arg |
| 161 | if keys %arg; |
161 | if keys %arg; |
| 162 | |
162 | |
| 163 | $class->SUPER::condvar (@_, @cb); |
163 | $class->SUPER::condvar (@cb); |
| 164 | } |
164 | } |
| 165 | |
165 | |
| 166 | sub time { |
166 | sub time { |
| 167 | my $class = shift; |
167 | my $class = shift; |
| 168 | |
168 | |
