use strict; use warnings; { package TestClass; use Moose; use MooseX::TrackDirty::Attributes; has foo => ( traits => [ 'String' ], is => 'rw', isa => 'Str', default => 'default', handles => { foo_length => 'length', foo_append => 'append', }, ); has '+foo' => ( traits => [ TrackDirty ], ); } use Test::More; use Test::Moose::More 0.005; require 't/funcs.pm' unless eval { require funcs }; do_tests(); done_testing;