Вызовы метода Perl могут быть прерваны?

Вы можете, и Павел описывает хороший способ сделать это, но вам, вероятно, следует уточнить, почему вы хотите это сделать в первую очередь.

Если вы ищете продвинутые способы перехвата вызовов произвольных подпрограмм, тогда возня с таблицами символов будет работать для вас, но если вы хотите добавить функциональность к функциям, возможно, экспортированным в пространство имен, в котором вы в настоящее время работаете, тогда вам может потребоваться знать способы вызова функций, которые существуют в других пространствах имен.

Data :: Dumper, например, обычно экспортирует функцию 'Dumper' в вызывающее пространство имен, но вы можете переопределить или отключить это и предоставить свою собственную функцию Dumper, которая затем вызывает оригинал с помощью полного имени.

например,

use Data::Dumper;

sub Dumper {
   warn 'Dumping variables';
   print Data::Dumper::Dumper(@_);
}

my $foo = {
   bar   => 'barval',
};

Dumper($foo);

Опять же, это альтернативное решение, которое может быть более подходящим в зависимости от исходной проблемы. Играя с таблицей символов, можно получить много удовольствия, но это может оказаться излишним и может привести к трудностям в сопровождении кода, если он вам не нужен.

Вот полное пошаговое руководство по созданию функции поиска с автозаполнением .

По сути, у вас должен быть обработчик событий для вызова

window.location.href = "your-url-string.com";

после нажатия клавиши ввода или щелчка после выбора.

РЕДАКТИРОВАТЬ:

Из документации по автозаполнению

Замена страницы поиска

Для поиск по запросу и перенаправление на страница, связанная с результирующим элементом. Ниже приводится один из способов достижения

$::{"foo"} = sub { (@_)=($_[0], 1); goto $oldfoo; };
doit();

И теперь мы получаем:

3 / 1 = 3

Похоже, это работа для Moose ! Moose - это объектная система для Perl, которая может делать это и многое другое. docs объяснят гораздо лучше, чем я, но вам, вероятно, понадобится модификатор метода , в частности перед .

Вкратце, Perl обладает способностью изменять таблицу символов. Вы вызываете подпрограмму (метод) через таблицу символов пакета, которому принадлежит метод. Если вы измените таблицу символов (и это не считается очень грязным), вы можете заменить большинство вызовов методов вызовом других указанных вами методов. Это демонстрирует подход:

# The subroutine we'll interrupt calls to
sub call_me
{
    print shift,"\n";
}

# Intercepting factory
sub aspectate
{
    my $callee = shift;
    my $value = shift;
    return sub { $callee->($value + shift); };
}
my $aspectated_call_me = aspectate \&call_me, 100;

# Rewrite symbol table of main package (lasts to the end of the block).
# Replace "main" with the name of the package (class) you're intercepting
local *main::call_me = $aspectated_call_me;

# Voila!  Prints 105!
call_me(5);

Это также показывает, что, как только кто-то берет ссылку на подпрограмму и вызывает ее через ссылку, вы больше не можете влиять на такие вызовы.

Я почти уверен, что есть фреймворки для выполнения аспектирования в perl , но это, я надеюсь, демонстрирует подход.