#!/usr/bin/perl

use strict;

package builder;
use Moose;

has 'author'    =>  ( is => 'rw' );

package main;

my $builder;
$builder = builder->new(author => "Joe");
print $builder->author . "\n";