Catching non-processed attributes

Hi all,

I want to be able to see if a constructor was called with undefined attributes:

package Foo;
 use Moose;

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

my $obj = Foo->new( 'foo' => 'bar', 'fake' => 'something'); 
#I want to be able to see that fake was not processed by the constructor.

--
Sincerely

Yuri Shtil