Moosex-slaveattribute is a project mainly written in Perl, it's free.

A moose trait to allow attributes default to the values of other attributes.