| … | |
… | |
| 825 | =item L<AnyEvent::IGS> |
825 | =item L<AnyEvent::IGS> |
| 826 | |
826 | |
| 827 | A non-blocking interface to the Internet Go Server protocol (used by |
827 | A non-blocking interface to the Internet Go Server protocol (used by |
| 828 | L<App::IGS>). |
828 | L<App::IGS>). |
| 829 | |
829 | |
| 830 | =item L<Net::IRC3> |
830 | =item L<AnyEvent::IRC> |
| 831 | |
831 | |
| 832 | AnyEvent based IRC client module family. |
832 | AnyEvent based IRC client module family (replacing the older Net::IRC3). |
| 833 | |
833 | |
| 834 | =item L<Net::XMPP2> |
834 | =item L<Net::XMPP2> |
| 835 | |
835 | |
| 836 | AnyEvent based XMPP (Jabber protocol) module family. |
836 | AnyEvent based XMPP (Jabber protocol) module family. |
| 837 | |
837 | |
| … | |
… | |
| 861 | no warnings; |
861 | no warnings; |
| 862 | use strict qw(vars subs); |
862 | use strict qw(vars subs); |
| 863 | |
863 | |
| 864 | use Carp; |
864 | use Carp; |
| 865 | |
865 | |
| 866 | our $VERSION = 4.234; |
866 | our $VERSION = 4.3; |
| 867 | our $MODEL; |
867 | our $MODEL; |
| 868 | |
868 | |
| 869 | our $AUTOLOAD; |
869 | our $AUTOLOAD; |
| 870 | our @ISA; |
870 | our @ISA; |
| 871 | |
871 | |
| … | |
… | |
| 1028 | BEGIN { |
1028 | BEGIN { |
| 1029 | if (eval "use Time::HiRes (); time (); 1") { |
1029 | if (eval "use Time::HiRes (); time (); 1") { |
| 1030 | *_time = \&Time::HiRes::time; |
1030 | *_time = \&Time::HiRes::time; |
| 1031 | # if (eval "use POSIX (); (POSIX::times())... |
1031 | # if (eval "use POSIX (); (POSIX::times())... |
| 1032 | } else { |
1032 | } else { |
| 1033 | *_time = \&CORE::time; # epic fail |
1033 | *_time = sub { time }; # epic fail |
| 1034 | } |
1034 | } |
| 1035 | } |
1035 | } |
| 1036 | |
1036 | |
| 1037 | sub time { _time } |
1037 | sub time { _time } |
| 1038 | sub now { _time } |
1038 | sub now { _time } |
