#!/usr/bin/perl
use strict;
use Test::More;
#warn $Mouse::VERSION;
{
    package Foo;

    use Mouse;

    has thing => (
        reader        => 'thing',
        writer        => 'set_thing',
        builder       => '_build_thing',
        lazy          => 1,
    );

    sub _build_thing {
        42;
    }
}

# Get them set
{
    my $obj = Foo->new;
    is $obj->thing, 42;
    $obj->set_thing( 23 );
    is $obj->thing, 23;
}

# Set then get
{
    my $obj = Foo->new;
    $obj->set_thing(23);
    is $obj->thing, 23;
}

done_testing();