My way of getting error messages when using the wrong property name is by using only the accessor methods. These are made lvalues, so they can be assigned to.

use Attribute::Property;

package Dog;
sub new : New;
sub intelligence : Property { /^\d+\z/ }

package main;
my $dog = Dog->new(intelligence => 15);
$dog->intelligence++;

my $dog = Dog->new(inteligence => 15);  # error
$dog->inteligence++;                    # error
[download]

It saves a lot of typing (pun intended) too.