| … | |
… | |
| 78 | unless ($MODEL) { |
78 | unless ($MODEL) { |
| 79 | # check for already loaded models |
79 | # check for already loaded models |
| 80 | for (@models) { |
80 | for (@models) { |
| 81 | my ($model, $package) = @$_; |
81 | my ($model, $package) = @$_; |
| 82 | if (scalar keys %{ *{"$package\::"} }) { |
82 | if (scalar keys %{ *{"$package\::"} }) { |
| 83 | eval "require AnyEvent::Impl::$model" |
83 | eval "require AnyEvent::Impl::$model"; |
| 84 | or die; |
|
|
| 85 | |
|
|
| 86 | last if $MODEL; |
84 | last if $MODEL; |
| 87 | } |
85 | } |
| 88 | } |
86 | } |
| 89 | |
87 | |
| 90 | unless ($MODEL) { |
88 | unless ($MODEL) { |
| 91 | # try to load a model |
89 | # try to load a model |
| 92 | |
90 | |
| 93 | for (@models) { |
91 | for (@models) { |
| 94 | my ($model, $package) = @$_; |
92 | my ($model, $package) = @$_; |
| 95 | eval "require AnyEvent::Impl::$model" |
93 | eval "require AnyEvent::Impl::$model"; |
| 96 | or die; |
|
|
| 97 | |
|
|
| 98 | last if $MODEL; |
94 | last if $MODEL; |
| 99 | } |
95 | } |
| 100 | |
96 | |
| 101 | $MODEL |
97 | $MODEL |
| 102 | or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: Coro, Event, Glib or Tk."; |
98 | or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: Coro, Event, Glib or Tk."; |
