sA
Я для теста создаю модуль в рантайме.
Size: a a a
2021 July 13
sA
Хотелось бы его менять
sA
Или мокнуть?
sA
У меня в data кое какие настройки хранятся
sA
Ну если нельзя просто оберну то что получает данные из data и там уже замокаю
SZ
Интересный вопрос. Буду у компа посмотрю
sA
Спасибо.
SZ
Data похоже readonly
W
Но это только флаг. Никто-же не мешает это поменять, не?
SZ
Ну естессно поменять можно, но не на РР
SZ
И тогда вопрос «нафига» становится ещё острее
W
Всегда есть один ответ "для тестов"
SZ
Проще тогда уж <DATA> в массив запихать и вертеть как угодно
GK
Сама дата да, но typeglob можно замокать :) например:
cat X.pm
cat x.pl
./x.pl
cat X.pm
package X;
use strict;
use warnings;
use utf8;
use v5.14;
sub foo { print for <DATA>; }
1;
__DATA__
some data
cat x.pl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use v5.14;
use lib q'.';
use X;
use IO::Scalar;
X::foo();
my $data = "New data\n";
my $fh = IO::Scalar->new(\$data);
${X::}{DATA} = $fh;
X::foo();
./x.pl
some data
New data
D
как и говорил - вот неполный список https://rentry.co/32fan
D
в первой секции - чего убрать из самого перла, во второй, чего докинуть из php
D
так как у php довольно обширный стдлиб и расширения я затрахаюсь их функции перечислять
DS
Я сейчас скажу крамольную вещь
DS
Но перл это язык не только для веба
DS
На кой хуй переменные для сессий, кукисов и прочего добра?