Developing.ru

вот разбираюсь с получением почты по протоколу Pop3. Списал код из книжки Ликольна Штейна "Разработка сетевых программ на Perl". Код выглядит следующим образом

Код: Выделить всё

package PopParser;
# (c) Lincoln Stein
use strict;
use Net::POP3;
use MIME::Parser;
use vars '@ISA';
@ISA=qw(NET::POP3);
sub new
{
    my $pack=shift;
    return unless my $self=$pack->SUPER::new(@_); #вылетает  здесь
    my $parser=MIME::Parser->new;
    $parser->output_dir($ENV{TMPDIR} || '/trap');
    $self->parser($parser);
    $self;
}
...

Все срывается на 12-ой (по нумерации форума) строчке: Can't locate object method "SUPER" via package "PopParser" at PopParser.pm line 14. SUPER - это я так понимаю объект-родитель? В чем тут может быть ошибка? [/code]

Значит ты пример не полностью взял. Что ты передаешь в функцию Нью?

Работать с Поп3 очень просто:

use Mail::POP3Client;

my $pop = new Mail::POP3Client( USER => "$q2[2]",
PASSWORD => "$q2[3]",
HOST => "$q2[1]",
AUTH_MODE => "PASS",
DEBUG=>0 );
my $popCount=$pop->Count();

Developing.ru

Не находит метод при перекрытии

Не находит метод при перекрытии