… | |
… | |
17 | } |
17 | } |
18 | } |
18 | } |
19 | } |
19 | } |
20 | |
20 | |
21 | use AnyEvent; |
21 | use AnyEvent; |
|
|
22 | |
|
|
23 | BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) } |
22 | BEGIN { eval q{use AnyEvent::Impl::Cocoa;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Cocoa not loadable |
24 | BEGIN { eval q{use AnyEvent::Impl::Cocoa;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Cocoa not loadable\n}), exit 0) } |
23 | }), exit 0) } |
25 | |
|
|
26 | |
24 | |
27 | |
25 | $| = 1; print "1..50\n"; |
28 | $| = 1; print "1..50\n"; |
26 | |
29 | |
27 | $AnyEvent::MAX_SIGNAL_LATENCY = 0.2; |
30 | $AnyEvent::MAX_SIGNAL_LATENCY = 0.2; |
28 | |
31 | |