[Cascavel-pm] Problemas ao instalar Modulo

[Thiago Glauco Sanchez]

Bem observado Eden... da próxima vez:


package Beberrao;
use Moose;

has 'copo' => (isa => 'Int', is => 'rw', default => '1');
has 'Marca' => (isa =>'Str', is => 'ro', default => 'Heineken');

sub enche_o_copo {
     my ($self, $ml) = @_;
        confess "Garçom, enche mais" if $ml < 300;
       $self->copo = $ml;
}

package main;
use 5.12.0;

my $bebado = Beberrao->new('copo' => 500);
printf "Eu quero minha %s no copo de %d\n", $bebado->Marca, $bebado->copo;

Em 12/06/2010 08:52, Eden Cardim escreveu:
>>>>>> "Thiago" == Thiago Glauco Sanchez<thiagoglauco em ticursos.net>  writes:
>>>>>>              
>      Thiago>  skols! ->  to falando!!! tava ruim...
>
> Claro que tava ruim, era Skol...
>
> --
> Eden Cardim
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>    


-- 
Thiago Glauco Sanchez
Intrutor Perl e Redes
www.ticursos.net