koorchik

# Private accessors/methods

# Помещаем ссылку на локальную анонимную функцию в локальную переменную
my $name = sub { 
   my $self = shift; 
   ... 
} 

# Используем как обыкновенный метод, но доступен оно только внутри класса
$self->$name(); 

koorchik

# Private accessors/methods with correct "caller"

use Sub::Name;

# Помещаем ссылку на локальную анонимную функцию в локальную переменную 
# и присваиваем ей имя "name"
my $name = subname "name" => sub { 
   my $self = shift; 
   ... 
} 

koorchik

my $rows_affected = $dbh->do('UPDATE ... WHERE') or die;

my $rows_affected = $sth->execute(...) or die; # Для не "select" запросов.

# $rows_affected  может содержать ноль, но быть истинным.
# Значит в Perl может быть истинное нулевое значение
# И вот несколько вариантов при использовании
# которых Perl не сыпет предупреждения

"0.0" # Десятичная нотация. Я обычно использую именно этот вариант

koorchik

# строка, которая в числовом контексте соответствуют
# нулю, а в логическом - истине
"0 but true" 

perl -wE 'say  "0 but true"+5' 
#Получим 5 без никаких предупреждений

# Но стоит изменить хоть один символ в заветной строке
perl -wE 'say  "0 but true!"+5'
'Argument "0 but true!" isn't numeric in addition (+) at -e line 1.

koorchik

#---------------------------------------------------------#
# Локализация пакетных переменных
our $l = 5; 
{
    local $l = 4; 
    say $l 
}; 
say $l;

#4

koorchik

$content = do {local(@ARGV, $/) = $f; <ARGV>}

koorchik

perl -e 'while (<ARGV>){ … }'  f1 f2 f3

koorchik

use everywhere 'MooseX::Declare',
    matching => '^MyApp',
    use_here => 0;

koorchik

if ( "test1" =~ /t1/ ) {
    say "YES";
} else {
    say "NO"
}

if ( "test2" =~ // ) {
    say "YES";
} else {
    say "NO"

koorchik

$text =~ m/$re/;
# Такая запись тоже является опасной, поскольку 
# переменная $re может содержать пустую строку

# Лучше записывайте так
$text =~ m/(?:$re)/;