AP
Size: a a a
2020 August 28
SZ
хрен его знает, но, кажется, это где-то тут: https://github.com/moose/Moose/blob/467dc59e253e18be5be245d48a7b1598e9c4b5f7/lib/Class/MOP/Attribute.pm
install_accessors проходит через муз тонкой линией, он много где есть.
А вот то, что написано перед ним -- это не has, это своеобразный костылинг абстрактного наследника в музе, причем, этой штукой часто пользуются всякие роли и трейты
А вот то, что написано перед ним -- это не has, это своеобразный костылинг абстрактного наследника в музе, причем, этой штукой часто пользуются всякие роли и трейты
VK
Всем привет! Можете подсказать по поводу SOAP::Lite - как задать префикс для рутового элемента - пример из доки SOAP::Data
Как сделать, чтобы рутовый элемент (метод someMethod) после Body
Как сделать, чтобы рутовый элемент (метод someMethod) после Body
<namesp1:someMethod xmlns:namesp1="urn:TemperatureService">
имел другой префикс (т.е. не namesp1, а, например, abc) и не имел определения xmls:namesp1BR
Привет, Меня зовут райан
И я из индонезии🇲🇨
И я из индонезии🇲🇨
BR
Нико встретиться с тобой
2020 August 29
SZ
А почему Redis::Cluster такой медленный? Миллион записей добавляет полторы минуты, всего 10к/с
p
Ключ один или разные?
МИ
Берите Redis::ClusterRider. Не помню чем, но чем-то он лучше, я долго выбирал и он мне больше приглянулся:)
SZ
pylkov
Ключ один или разные?
Разные конечно
SZ
Берите Redis::ClusterRider. Не помню чем, но чем-то он лучше, я долго выбирал и он мне больше приглянулся:)
Я ещё взял AnyEvent::RipeRedis::Cluster + коро, скорость выросла до 13к/с
SZ
Берите Redis::ClusterRider. Не помню чем, но чем-то он лучше, я долго выбирал и он мне больше приглянулся:)
Да, думаю на нём и остановлюсь. Он от того же автора, что и все остальные, но самый свежий. Спасибо!
МК
my $ua = LWP::UserAgent->new(Возможно ли где-то прописать passphrase здесь?
ssl_opts => {
SSL_cert_file => 'abc.pem',
SSL_key_file => 'abc.key',
SSL_ca_file => 'test/n.pem',
SSL_ca_dir => 'test'
}
);
МК
Может кому пригодится. https://www.perlmonks.org/?node_id=486661
use LWP::UserAgent;
use IO::Socket::SSL;
my $ua = LWP::UserAgent->new(
ssl_opts => {
SSL_cert_file => 'abc.pem',
SSL_key_file => 'abc.key',
SSL_ca_file => 'test/n.pem',
SSL_ca_dir => 'test'
}
);
IO::Socket::SSL::set_defaults(passwd_cb => sub { "12345" });SZ
Может кому пригодится. https://www.perlmonks.org/?node_id=486661
use LWP::UserAgent;
use IO::Socket::SSL;
my $ua = LWP::UserAgent->new(
ssl_opts => {
SSL_cert_file => 'abc.pem',
SSL_key_file => 'abc.key',
SSL_ca_file => 'test/n.pem',
SSL_ca_dir => 'test'
}
);
IO::Socket::SSL::set_defaults(passwd_cb => sub { "12345" });Это ты потом для какого протокола хочешь? Https?
МК
SZ
А что, так не работает?
ssl_opts => {
..., SSL_passwd_cb => sub {"pass"}
});МК
А что, так не работает?
ssl_opts => {
..., SSL_passwd_cb => sub {"pass"}
});Неа
МК
Undefined subroutine &IO::Socket::SSL::SSL_Context::12345 called at /usr/share/perl5/IO/Socket/SSL.pm line 2607.
500 Undefined subroutine &IO::Socket::SSL::SSL_Context::12345SZ
Undefined subroutine &IO::Socket::SSL::SSL_Context::12345 called at /usr/share/perl5/IO/Socket/SSL.pm line 2607.
500 Undefined subroutine &IO::Socket::SSL::SSL_Context::12345Покажи код, плз
SZ
Вернее, хеш ssl_opts