Simples example that how to works with MooseX::Declare

moose_declare.pl

use MooseX::Declare;

class People{

	# class attributes
	has 'name' => ( is => 'rw', isa => 'Str' );
	has 'age' => ( is => 'rw', isa => 'Num' );
	
	# Method that speak with us
	sub show {
		my $self = shift;
		print "Ola, me chamo  ". $self->name ." e tenho ". $self->age ." anos de idade!";
	}
}

package main;

my $p = People->new( name => 'Daniel Vinciguerra', age => 23 );
$p->show;