1 | #!/opt/perl/bin/perl |
1 | #!/opt/perl/bin/perl |
2 | |
2 | |
3 | use strict; |
3 | use strict; |
4 | |
4 | |
5 | use AnyEvent::Impl::Perl; |
|
|
6 | use AnyEvent; |
5 | use AnyEvent; |
|
|
6 | BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} } |
7 | use AnyEvent::Socket; |
7 | use AnyEvent::Socket; |
8 | use AnyEvent::Handle; |
8 | use AnyEvent::Handle; |
9 | |
9 | |
10 | unless ($ENV{PERL_ANYEVENT_NET_TESTS}) { |
10 | unless ($ENV{PERL_ANYEVENT_NET_TESTS}) { |
11 | print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n"; |
11 | print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n"; |