Как я должен обрабатывать ошибки внутри или снаружи модуля Perl? - PullRequest
Новая
       14

Как я должен обрабатывать ошибки внутри или снаружи модуля Perl?

2 голосов
/ 08 октября 2010

Я начал изучать, как сделать модуль в Perl с perltoot : 

 package Person;
 use strict;

 my($NAME, $AGE, $PEERS) = ( 0 .. 2 );

 sub new {
    my $self = [];
    $self->[$NAME] = undef;
    $self->[$AGE] = undef;
    $self->[$PEERS] = [];
    bless($self);
    return $self;
 }

 sub name {
    my $self = shift;
    if (@_) { $self->[$NAME] = shift }
    return $self->[$NAME];
 }

 sub age {
    my $self = shift;
    if (@_) { $self->[$AGE] = shift }
    return $self->[$AGE];
 }

 sub peers {
    my $self = shift;
    if (@_) { @{ $self->[$PEERS] } = @_ }
    return @{ $self->[$PEERS] };
 }

 1;
  • Я хотел бы знать, как, если возможно, с примером кода, я должен угрожать любомуошибки внутри модуля и за его пределами?

Например: 

 use Person;
 $test= Person->new() or die Person->Error;

или 

sub new {
   my $self = [];
   $self->[$NAME] = undef;
   $self->[$AGE] = undef;
   $self->[$PEERS] = [];
   bless($self);
   #########
   # some error happened here and I need to say something
   #########
   return $self;
}
  • Если я вызову что-нибудь еще внутри модуляс ошибкой, проблемой, отсутствующим аргументом. Как правильно определить, что произошла ошибка?

PS: Надеюсь, мой вопрос не слишком удачен и всем привет:)

1 Ответ

4 голосов
/ 08 октября 2010

Carp процедуры могут использоваться для сообщения об ошибках. 

use Carp qw{ croak };

sub new {
    my $self        = {};
    $self->{$NAME } = undef;
    $self->{$AGE  } = undef;
    $self->{$PEERS} = [];

    # replace the following with something appropriate
    if ($error_occurred) {
        croak 'Something did not work right';
    }

    return bless, $self;
}
...