#!/usr/bin/perl
BEGIN { sleep 1 }

{
  package Foo;
  use Moose;

  has test => (
    isa => 'Str',
    is  => 'rw',
  );
}

my $x = Foo->new(test => "hi");

$x->test;
$x->test("bonjour");
$x->test;