| … | |
… | |
| 1291 | last; |
1291 | last; |
| 1292 | } |
1292 | } |
| 1293 | } |
1293 | } |
| 1294 | |
1294 | |
| 1295 | $MODEL |
1295 | $MODEL |
| 1296 | or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: EV, Event or Glib.\n"; |
1296 | or die "AnyEvent: backend autodetection failed - did you properly install AnyEvent?\n"; |
| 1297 | } |
1297 | } |
| 1298 | } |
1298 | } |
| 1299 | |
1299 | |
| 1300 | @models = (); # free probe data |
1300 | @models = (); # free probe data |
| 1301 | |
1301 | |
| 1302 | push @{"$MODEL\::ISA"}, "AnyEvent::Base"; |
1302 | push @{"$MODEL\::ISA"}, "AnyEvent::Base"; |
| 1303 | unshift @ISA, $MODEL; |
1303 | unshift @ISA, $MODEL; |
| 1304 | |
1304 | |
| 1305 | # now nuke some methods that are overriden by the backend. |
1305 | # now nuke some methods that are overridden by the backend. |
| 1306 | # SUPER is not allowed. |
1306 | # SUPER is not allowed. |
| 1307 | for (qw(time signal child idle)) { |
1307 | for (qw(time signal child idle)) { |
| 1308 | undef &{"AnyEvent::Base::$_"} |
1308 | undef &{"AnyEvent::Base::$_"} |
| 1309 | if defined &{"$MODEL\::$_"}; |
1309 | if defined &{"$MODEL\::$_"}; |
| 1310 | } |
1310 | } |
