### Package ###

package Builder;

use strict;

sub new {
   my ($class, %args) = @_;

   return bless(\%args, $class);
}

sub print {
   my ($self) = @_;

   print $self->{author}, "\n";
}

1;