… | |
… | |
854 | no warnings; |
854 | no warnings; |
855 | use strict; |
855 | use strict; |
856 | |
856 | |
857 | use Carp; |
857 | use Carp; |
858 | |
858 | |
859 | our $VERSION = 4.23; |
859 | our $VERSION = 4.233; |
860 | our $MODEL; |
860 | our $MODEL; |
861 | |
861 | |
862 | our $AUTOLOAD; |
862 | our $AUTOLOAD; |
863 | our @ISA; |
863 | our @ISA; |
864 | |
864 | |
… | |
… | |
1016 | |
1016 | |
1017 | package AnyEvent::Base; |
1017 | package AnyEvent::Base; |
1018 | |
1018 | |
1019 | # default implementation for now and time |
1019 | # default implementation for now and time |
1020 | |
1020 | |
1021 | use Time::HiRes (); |
1021 | BEGIN { |
|
|
1022 | if (eval "use Time::HiRes (); time (); 1") { |
|
|
1023 | *_time = \&Time::HiRes::time; |
|
|
1024 | # if (eval "use POSIX (); (POSIX::times())... |
|
|
1025 | } else { |
|
|
1026 | *_time = \&CORE::time; # epic fail |
|
|
1027 | } |
|
|
1028 | } |
1022 | |
1029 | |
1023 | sub time { Time::HiRes::time } |
1030 | sub time { _time } |
1024 | sub now { Time::HiRes::time } |
1031 | sub now { _time } |
1025 | |
1032 | |
1026 | # default implementation for ->condvar |
1033 | # default implementation for ->condvar |
1027 | |
1034 | |
1028 | sub condvar { |
1035 | sub condvar { |
1029 | bless { @_ == 3 ? (_ae_cb => $_[2]) : () }, AnyEvent::CondVar:: |
1036 | bless { @_ == 3 ? (_ae_cb => $_[2]) : () }, AnyEvent::CondVar:: |