require v5.6.0; use Attribute::Handlers; package Whatever; #... sub Mutator : ATTR{CODE} { my ( $package, $symbol, $referent, $attr, $data ) = @_; # ... do whatever you want with mutators }