… | |
… | |
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."; |