The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package Object;

use TrackDirty;

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

no TrackDirty;

1;