… | … | ||
---|---|---|---|
97 | 97 | ||
98 | package Coro::Debug; | 98 | package Coro::Debug; |
99 | 99 | ||
100 | use strict; | 100 | use strict; |
101 | 101 | ||
102 | use overload (); | ||
103 | |||
102 | use Carp (); | 104 | use Carp (); |
103 | use IO::Socket::UNIX; | ||
104 | use AnyEvent; | ||
105 | use Time::HiRes; | 105 | use Time::HiRes (); |
106 | use Scalar::Util (); | 106 | use Scalar::Util (); |
107 | use overload (); | 107 | |
108 | use IO::Socket::UNIX (); | ||
109 | |||
110 | use AnyEvent (); | ||
108 | 111 | ||
109 | use Coro (); | 112 | use Coro (); |
110 | use Coro::Handle (); | 113 | use Coro::Handle (); |
111 | use Coro::State (); | 114 | use Coro::State (); |
115 | use Coro::AnyEvent (); | ||
112 | 116 | ||
113 | our %log; | 117 | our %log; |
114 | our $SESLOGLEVEL = exists $ENV{PERL_CORO_DEFAULT_LOGLEVEL} ? $ENV{PERL_CORO_DEFAULT_LOGLEVEL} : -1; | 118 | our $SESLOGLEVEL = exists $ENV{PERL_CORO_DEFAULT_LOGLEVEL} ? $ENV{PERL_CORO_DEFAULT_LOGLEVEL} : -1; |
115 | our $ERRLOGLEVEL = exists $ENV{PERL_CORO_STDERR_LOGLEVEL} ? $ENV{PERL_CORO_STDERR_LOGLEVEL} : -1; | 119 | our $ERRLOGLEVEL = exists $ENV{PERL_CORO_STDERR_LOGLEVEL} ? $ENV{PERL_CORO_STDERR_LOGLEVEL} : -1; |
116 | 120 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |