LINUX.ORG.RU

История изменений

Исправление Xellos, (текущая версия) :

Конечно много. Надо писать

my $mail = new Mail::POP3Client ($u, $pw, $р, $tm);

Именованные параметры заставляют нас бессмысленно увеличивать длину строки!

А ещё лучше писать

my $mail = new Mail::POP3Client;
$mail->set_u($u);
$mail->set_pw($pw);
$mail->set_h($h);
$mail->set_tm($tm);
if (!$mail) {say $!;}

Исправление Xellos, :

Конечно много. Надо писать

my $mail = new Mail::POP3Client ($u, $pw, $р, $tm);

Именнованные параметры заставляют нас бессмысленно увеличивать длину строки!

А ещё лучше писать

my $mail = new Mail::POP3Client;
$mail->set_u($u);
$mail->set_pw($pw);
$mail->set_h($h);
$mail->set_tm($tm);
if (!$mail) {say $!;}

Исходная версия Xellos, :

Конечно много. Надо писать

my $mail = new Mail::POP3Client (U => $u, PW => $pw, H => $р, TM => $tm).

А ещё лучше писать

my $mail = new Mail::POP3Client;
$mail->set_u($u);
$mail->set_pw($pw);
$mail->set_h($h);
$mail->set_tm($tm);
if (!$mail) {say $!;}