SZ
это просто правило хорошего тона в опенсорсе, на которое капиталисты хуй ложили
++
Size: a a a
2021 February 06
SZ
Ну если ты делаешь либу для использования внутри своего проекта, то нахер там не впились версии, поды и прочее. А вот когда в паблик выкладываешь - тут другое дело.
++
DF
"пабликом" может оказаться и соседний отдел
Ну если есть вероятность что либа будет использоваться в сторонних проектах, то можно и оформить.
SZ
Интересно, что при определении того, загружен пакет или нет, вполне верным способом является ещё и анализ переменной $VERSION: в любом нормальном пакете она есть, хотя когда её выставляют и как не забывают об этом - я не знаю.
Есть короче способ проверить, существует ли класс с заданным именем, но он тебе не понравится :)
SZ
@PerlBanjoBot
package yyy;
my $invisible_variable = 1;
package main;
for my $pkg (qw( main xxx yyy )) { eval "my $pkg \$x = 1" and say "($pkg) exists" };P
@PerlBanjoBot
package yyy;
my $invisible_variable = 1;
package main;
for my $pkg (qw( main xxx yyy )) { eval "my $pkg \$x = 1" and say "($pkg) exists" };SZ
@DRVTiny не благодари :)
AK
@DRVTiny не благодари :)
🙏
AP
@PerlBanjoBot
package yyy;
my $invisible_variable = 1;
package main;
for my $pkg (qw( main xxx yyy )) { eval "my $pkg \$x = 1" and say "($pkg) exists" };Прикольное использование синтаксиса, которым никто в перле не пользуется ;)
SZ
Прикольное использование синтаксиса, которым никто в перле не пользуется ;)
Хехехе :)
Хотя лично я не очень понимаю, почему они не сделали более простой способ точно проверить существование класса
Хотя лично я не очень понимаю, почему они не сделали более простой способ точно проверить существование класса
AK
Можно генерировать рандомное длинное имя переменной или просто взять то, что генерирует File::Temp
SZ
Можно генерировать рандомное длинное имя переменной или просто взять то, что генерирует File::Temp
Зачем?
AP
Можно генерировать рандомное длинное имя переменной или просто взять то, что генерирует File::Temp
Ты код не понял?
SZ
Ты код не понял?
Может он про invisible variable..?
SZ
@PerlBanjoBot
package yyy;
$zzz::z = \$zzz::z;
package main;
for my $pkg (qw( main xxx yyy zzz )) {
say "($pkg) exists" if
eval "my $pkg \$x = 1"
};P
@PerlBanjoBot
package yyy;
$zzz::z = \$zzz::z;
package main;
for my $pkg (qw( main xxx yyy zzz )) {
say "($pkg) exists" if
eval "my $pkg \$x = 1"
};SZ
Блин, забыл ещё пустой package добавить. Короче, с ним тоже будет работать.
Если туда сверху приписать
Если туда сверху приписать
package xxx; то и его найдетAK
Блин, забыл ещё пустой package добавить. Короче, с ним тоже будет работать.
Если туда сверху приписать
Если туда сверху приписать
package xxx; то и его найдетВ пакете мы пытаемся определить переменную x. Вот её имя лучше рандомом
AK
Иначе там может уже быть x
SZ
В пакете мы пытаемся определить переменную x. Вот её имя лучше рандомом
Нет