Наилучшие способы обработки интерфейса подключения

Question

Мы используем OOP perl в качестве программирования для разработки этой структуры, поэтому этот алгоритм, подобный алгоритму, находится в Perl.

Мы разрабатываем инфраструктуру автоматизации в OOP Perl для конечного устройства. Это конечное устройство обеспечивает интерфейс HTTP, Telnet и SSH для выполнения определенного набора команд. Для простоты можно предположить, что все команды поддерживаются всеми тремя интерфейсами соединения, генерируя один и тот же вывод для данной команды.

Функция обрабатывается в соответствующем классе Connection для обработки определенной команды. , например.

sub getVersion { 
    return $http->sendCommand('version'); 
    } 

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

$device->getVersion(); //This is called through device object rather than connection object. 

Поскольку эта функция не определена в классе устройства, вызывается AUTOLOAD. В классе устройств AUTOLOAD реализовано как этого

sub AUTOLOAD { 
    my $connection = $device->getConnection(); 
    return $connection->$methodName (..); // when called for getVersion, $methodName will become the "getVersion" 
    } 

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

sub getVersion { 
    my $connection = $device->getConnection(); 
    return $connection->getVersion(); 
} 

Мы 150+ таких команд, доступных через все три интерфейса (HTTP, Telnet, SSH).

Answer 1

Class::Delegator подходит для более чистой реализации. Возможно, вы можете создать класс, который является корневым поведением, например Connected, который определяет, как получить соединение.

{ package Connected; 
    use Modern::Perl; 

    sub getConnection { 
     ... 
    } 
} 
{ package ConnectedObject; 
    use Modern::Perl; 
    use parent 'Connected'; 

    use Class::Delegator 
     send => [ 'getVersion' 
       , 'obliterateAllLifeforms' 
       , ... 
       ] 
     to => 'getConnection' 
     ; 
}