#!/usr/bin/perl

package Post;

use Moose;
use Author;

#Define object attributes:
has 'title', is => 'rw', isa => 'Str';
has 'date', is => 'rw', isa => 'Str';
has 'text', is => 'rw', isa => 'Str';

has 'autho
r' => (
    is => 'rw',
    isa => 'Author',
    handles => [ qw ' get_name set_name ' ],
);

1