has 'author' => (
    is => 'ro',
    isa => 'Author',
    handles => [qw( name )],
);