The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Foo::Post::Base;

use Moose;
use MooseX::Types::Moose qw(Str);

#===================================
has 'title' => (
#===================================
    is  => 'ro',
    isa => Str,
);

#===================================
has 'content' => (
#===================================
    is  => 'ro',
    isa => Str,
);

#===================================
has 'user' => (
#===================================
    is  => 'ro',
    isa => 'Foo::User',
);

1;