Skip to content

Instantly share code, notes, and snippets.

@hoguej
hoguej / moosex_delcare
Created July 4, 2011 01:51
Some modern perl code
use MooseX::Declare;
use Helper qw/Bool Str Num Int Object/;
class User {
has 'id' => Int();
has 'name' => Str();
has 'email' => Str();
has 'password_hash' => Str();
has 'salt' => Str();