[SP-pm] Printer.pm - aberto a comentários.

[Nelson Ferraz]

> Q frescura! porque não simplesmente:
> my $file = 'enterprise.txt'
> eval{open my $fabricante,'<', $file};
> if($!){
>                print "\nProblemas ao abrir o arquivo '$file'  -  $!";
> }else {
> #Alguma coisa util aqui...
>
> }

Uma razao simples: consistencia.

A forma mais usada pela comunidade e':

open my $f, '<', $file or die "Can't open: $!\n";
# ...
close $f;

Se voce escrever de maneira diferente, todo mundo que for ler seu
codigo vai ter que parar por um momento e analisar o codigo, para
tentar descobrir porque diabos voce fez daquele jeito.

TIMTOWTDI nao significa que voce deve, necessariamente, fazer tudo de
uma maneira diferente.

-- 
Nelson Ferraz

Free Software Foundation Associate Member #3203
Projeto Software Livre Brasil (www.softwarelivre.org.br)
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital