ПРИВЕТСТВИЕ SALUTE

Доброго всем! Доброго здоровья! Доброго духа!

Hello all! Nice health! Good thinks!

NAME

lib::remote - Удаленное использование модулей. Загружает модули с удаленного сервера. Только один диспетчер в @INC- push @INC, sub {...};. Диспетчер возвращает filehandle для контента, полученного удаленно. Смотреть perldoc -f require.

lib::remote - pragma for use remote modules without installation basically throught protocols like http. One dispather on @INC - push @INC, sub {}; This dispather will return filehandle for downloaded content of a module from remote server. See perldoc -f require.

Идея из "http://forum.codecall.net/topic/64285-perl-use-modules-on-remote-servers/"

Кто-то еще стырил "http://www.linuxdigest.org/2012/06/use-modules-on-remote-servers/" (поздняя дата и есть ошибки)

VERSION

Version 0.05

FAQ

Q: Зачем? Why?

A: За лосем. For elk.

Q: Почему? Why?

A: По кочану. For head of cabbage.

SYNOPSIS

Все просто. По аналогии с локальным вариантом:

    use lib '/to/any/local/lib';

указываем урл:

    use lib::remote 'http://<хост(host)>/site-perl/.../';
    use My::Module1;
    ...

Искомый модуль будет запрашиваться как в локальном варианте, дописывая в конце URL: http://<хост(host)>/site-perl/.../My/Module1.pm

Допустим, УРЛ сложнее, не содержит имени модуля или используются параметры: https://<хост>/.../?key=ede35ac1208bbf479&...

Тогда делаем пары ключ->значение, указывая КОНКРЕТНЫЙ урл для КОНКРЕТНОГО модуля, например:

    use lib::remote
        'http://....',
        'Some::Module1'=>'https://<хост>/.../?key=ede35ac1208bbf479&...',
        'SomeModule2'=>'ssh://user:pass@host:/..../SomeModule2.pm',
    ;
    #use Some::Module1; не нужно, уже сделано (см. L</"Конфигурация модуля">)
    use SomeModule2 qw(func1 func2);# только, если нужно что-то импортировать, простое use уже сделано (см. L</"Конфигурация модуля">)
    use parent 'Some::Module1';
    ...

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

Внимание

Конкретно указанный модуль (через пару) будет искаться сначала в своем урл, а потом в безымянных безключевых параметрах.

При многократном вызове use lib::remote все параметры и урлы сохраняются, аналогично use lib '';, но естественно не в @INC. Повторюсь, в @INC помещается только один диспетчер.

Расширенный синтаксис

    use lib::remote
        'http://....',
        ['http://....', opt1 =>..., opt2 =>..., ....],
        {url=>'http://....', opt1 =>..., opt2 =>..., ....},
        'Some::Module1'=> 'http://....',
        'Some::Module2'=>['http://...', opt1 =>..., opt2 =>..., ....],
        'Some::Module3'=>{url => 'http://...', opt1 =>..., opt2 =>..., ....},
        'SomeModule1'=>['ssh://user@host:/..../SomeModule2.pm', 'pass'=>..., ...],
        'SomeModule2'=>{url => 'ssh://user@host:/..../SomeModule2.pm', 'pass'=>..., ...},
    ;
    ...

Опции:

• charset => 'utf-8', Задать кодировку урла. Если веб-сервер правильно выдает Content-Type: application/x-perl; charset=..., тогда не нужно, ->decoded_content сработает. Помнить про use utf8;

• что еще?

Конфигурация модуля lib::remote

Просто передаем дополнительную пару ключ->значение:

    use lib::remote
        'lib::remote'=>[opt1 =>..., opt2 =>..., ....],
        or 'lib::remote'=>{opt1 =>..., opt2 =>..., ....},
        ...
    ;
    ...

Видно, что ключ должен совпадать с именем этого модуля 'lib::remote'. Это и есть признак конфигурационных данных.

Основные опции:

• autouse => 0. По умолчанию 1, т.е. для конкретных модулей 'Some::Module1'=> .... срабатывает use Some::Module1;

• что еще?

Требования REQUIRES

Если урлы 'http://...', 'https://...', 'ftp://...', 'file://...', то нужен LWP::UserAgent

Если 'ssh://...' - TODO

Url может возвращать сразу пачку модулей (package). В этом случае писать ключом один модуль и дополнительно вызывать use для остальных модулей.

EXPORT

Ничего не экспортируется.

SUBROUTINES/METHODS

Только внутренние.

Пример конфига для NGINX, раздающего модули:

    ...
    server {
        listen       81;
#        server_name  localhost;


        location / {
            charset utf-8;
            charset_types *;
            root   /home/perl/lib-remote/;
            index  index.html index.htm;
        }

    }
    ...

AUTHOR

Mikhail Che, <m.che[пёсик]aukama.dyndns.org>

BUGS

Please report any bugs or feature requests to bug-lib-remote at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=lib-remote. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc lib::remote

You can also look for information at:

• RT: CPAN's request tracker (report bugs here)

  http://rt.cpan.org/NoAuth/Bugs.html?Dist=lib-remote

• AnnoCPAN: Annotated CPAN documentation

  http://annocpan.org/dist/lib-remote

• CPAN Ratings

  http://cpanratings.perl.org/d/lib-remote

• Search CPAN

  http://search.cpan.org/dist/lib-remote/

ACKNOWLEDGEMENTS

Не знаю.

SEE ALSO

Глянь PAR

Глянь Remote::Use

Глянь lib::http

LICENSE AND COPYRIGHT

Copyright 2012 Mikhail Che.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

cpanm lib::remote

perl -MCPAN -e shell
install lib::remote