trAvis - MANAGER
Edit File: 007_RT56523.t
#!/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();