Form-Processor-Field-URI/lib/Form/Processor/Field/URI.pm

   1 package Form::Processor::Field::URI;
   2 use strict;
   3 use warnings;
   4 use base 'Form::Processor::Field::Text';
   5 our $VERSION = '0.03';
   6 use Data::Validate::URI 'is_web_uri';
   7
   8
   9 sub validate {
  10     my $self = shift;
  11
  12     return unless $self->SUPER::validate;
  13
  14     my $uri = $self->input;
  15
  16     return $self->add_error('Enter a plain url "e.g. http://google.com"')
  17         unless is_web_uri( $uri );
  18
  19     return 1;
  20
  21
  22 }
  23
  24 1;