how to handle error with type constraint

Hello Moose,
I am just starting to explore Moose. This is probably something simple, but
I can't figure out the best way to do this.

With the Moose type constraint, I would like to get control of the error
handling when the type is invalid.

Here is an example.

a class host, with 2 attributes, name and ip_addr, with a control on the IP
address validity:
##### package host.pm
package host;
use Moose;
use Moose::Util::TypeConstraints;

use Regexp::Common qw /net/;
subtype IPAddr
=> as Str
=> where {/^$RE{net}{IPv4}$/}
 => message { 'invalid IP address'};

has 'ip_addr' => (isa => 'IPAddr', is => 'ro', required => 1);
has 'name' => (isa => 'Str',      is => 'ro', required => 1);
1;
##### end package host.pm

The type constraints works fine. Only that when the IP address is invalid
the program dies, with great verbosity.

I would just like when IP address is invalid, to print a message in a log
file, and that the creation of the instance fails quietly, so I could use
the host class like this:

##### main.pl:
use host;

my $h=host->new(name=>'jupiter', ip_addr=>'10.10.10.1');

if ($h) {
 print $h->name." created successfully with the IP address ".$h->ip_addr;
}

If someone could point me to the right direction, that would be great.

Thanks in advance.

Vincent.