| … | |
… | |
| 26 | |
26 | |
| 27 | use Carp qw(croak); |
27 | use Carp qw(croak); |
| 28 | |
28 | |
| 29 | use AnyEvent (); BEGIN { AnyEvent::common_sense } |
29 | use AnyEvent (); BEGIN { AnyEvent::common_sense } |
| 30 | |
30 | |
| 31 | AnyEvent::_isa_hook 0 => "AnyEvent::Strict", 1; |
31 | AnyEvent::_isa_hook 1 => "AnyEvent::Strict", 1; |
| 32 | |
32 | |
| 33 | BEGIN { |
33 | BEGIN { |
| 34 | if (defined &Internals::SvREADONLY) { |
34 | if (defined &Internals::SvREADONLY) { |
| 35 | # readonly available (at least 5.8.9+, working better in 5.10.1+) |
35 | # readonly available (at least 5.8.9+, working better in 5.10.1+) |
| 36 | *wrap = sub { |
36 | *wrap = sub { |
