99 |
} |
} |
100 |
}; |
}; |
101 |
goto &{ $AUTOLOAD }; |
goto &{ $AUTOLOAD }; |
102 |
|
} elsif (my $module_name = { |
103 |
|
add_event_listener => 'Message::DOM::EventTargetNode', |
104 |
|
add_event_listener_ns => 'Message::DOM::EventTargetNode', |
105 |
|
dispatch_event => 'Message::DOM::EventTargetNode', |
106 |
|
remove_event_listener => 'Message::DOM::EventTargetNode', |
107 |
|
remove_event_listener_ns => 'Message::DOM::EventTargetNode', |
108 |
|
}->{$method_name}) { |
109 |
|
eval qq{ require $module_name } or die $@; |
110 |
|
goto &{ $AUTOLOAD }; |
111 |
} else { |
} else { |
112 |
require Carp; |
require Carp; |
113 |
Carp::croak (qq<Can't locate method "$AUTOLOAD">); |
Carp::croak (qq<Can't locate method "$AUTOLOAD">); |