Comment gérer les erreurs à l'intérieur ou à l'extérieur d'un module Perl?

Question

j'ai commencé à apprendre comment faire un module en Perl avec 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; 

• Je voudrais savoir comment, si possible avec code exemple dois-je menace les erreurs dans le module et à l'extérieur il ?

Par exemple:

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

ou

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; 
} 

• Si je l'appelle tout le reste dans le module qui avait une erreur, problème, argument manquant comment est le correct moyen de dire qu'il y avait une erreur?

PS: Espérons que ma question est pas trop large et tout le monde :) salut

Answer 1

Carp routines peuvent être utilisés pour signaler les erreurs.

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; 
}