nerozumiem celkom prikladu s predefinovanim metody. Nasiel by sa niekto kto poradi?

sub tiskni_atribut {
my $self = shift;
if ($self->{"atribut"} =~ /^\d+$/){
die "Atribut musi byt cislo!\n";
}
$self->SUPER::tiskni_atribut();
}

podmienka if stanovuje ze ak je atribut ciselny bude vykonana funkcia die.
Ja by som to napisal asi takto:

sub tiskni_atribut {
my $self = shift;
if ($self->{"atribut"} =~ /^\d+$/){
$self->SUPER::tiskni_atribut();
}else{
die "Atribut musi byt cislo!\n";
}

}

V článku je chyba, má to být obráceně.

to bola rychlovka :) dakujem