| Subject: | Warning thrown when trying to validate an undef |
When passing an undef under "use warnings", the validator throws a warning.
$ cat foo.pl
#!/var/perl/bin/perl
use 5.010;
use strict;
use warnings;
package Bongo;
use Moose;
use MooseX::Types::IPv4 qw( ip4 );
has ip => (
is => 'rw',
isa => MooseX::Types::IPv4::ip4,
required => 1,
);
package main;
my $foo = Bongo->new( ip => undef );
$ perl foo.pl
Use of uninitialized value $_ in concatenation (.) or string at /var/perl5.20.3/lib/site_perl/5.20.3/MooseX/Types/IPv4.pm line 54.
Attribute (ip) does not pass the type constraint because: is not a valid ip address at /var/perl5.20.3/lib/site_perl/5.20.3/x86_64-linux/Moose/Object.pm line 24
Moose::Object::new('Bongo', 'ip', undef) called at foo.pl line 21