ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.303 by root, Sat Dec 5 02:52:03 2009 UTC vs.
Revision 1.305 by root, Sun Dec 13 05:13:15 2009 UTC

966You should check C<$AnyEvent::MODEL> before adding to this array, though: 966You should check C<$AnyEvent::MODEL> before adding to this array, though:
967if it is defined then the event loop has already been detected, and the 967if it is defined then the event loop has already been detected, and the
968array will be ignored. 968array will be ignored.
969 969
970Best use C<AnyEvent::post_detect { BLOCK }> when your application allows 970Best use C<AnyEvent::post_detect { BLOCK }> when your application allows
971it,as it takes care of these details. 971it, as it takes care of these details.
972 972
973This variable is mainly useful for modules that can do something useful 973This variable is mainly useful for modules that can do something useful
974when AnyEvent is used and thus want to know when it is initialised, but do 974when AnyEvent is used and thus want to know when it is initialised, but do
975not need to even load it by default. This array provides the means to hook 975not need to even load it by default. This array provides the means to hook
976into AnyEvent passively, without loading it. 976into AnyEvent passively, without loading it.
977
978Example: To load Coro::AnyEvent whenever Coro and AnyEvent are used
979together, you could put this into Coro (this is the actual code used by
980Coro to accomplish this):
981
982 if (defined $AnyEvent::MODEL) {
983 # AnyEvent already initialised, so load Coro::AnyEvent
984 require Coro::AnyEvent;
985 } else {
986 # AnyEvent not yet initialised, so make sure to load Coro::AnyEvent
987 # as soon as it is
988 push @AnyEvent::post_detect, sub { require Coro::AnyEvent };
989 }
977 990
978=back 991=back
979 992
980=head1 WHAT TO DO IN A MODULE 993=head1 WHAT TO DO IN A MODULE
981 994
1131package AnyEvent; 1144package AnyEvent;
1132 1145
1133# basically a tuned-down version of common::sense 1146# basically a tuned-down version of common::sense
1134sub common_sense { 1147sub common_sense {
1135 # from common:.sense 1.0 1148 # from common:.sense 1.0
1136 ${^WARNING_BITS} = "\xfc\x3f\x33\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x03"; 1149 ${^WARNING_BITS} = "\xfc\x3f\x33\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x00";
1137 # use strict vars subs 1150 # use strict vars subs
1138 $^H |= 0x00000600; 1151 $^H |= 0x00000600;
1139} 1152}
1140 1153
1141BEGIN { AnyEvent::common_sense } 1154BEGIN { AnyEvent::common_sense }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines