kevindawson

#!/usr/bin/env perl

use v5.14;
use strict;
use warnings;

our $VERSION = '0.03';
use English qw( -no_match_vars ); # Avoids regex performance penalty
local $OUTPUT_AUTOFLUSH = 1;

kevindawson

Running midgen v0.12
Database was generated on Mon, 11 Mar 2013 11:42:05 GMT

name        = PIR
main_module = lib/PIR.pm


[Prereqs]
perl                 = 5.010
Carp                 = 1.26

kevindawson

use Email::Valid;
use Try::Tiny;

use Validation::Class;
load {plugins => ['FormFields'],};

directive 'is_email2' => sub {
  my ($dir, $value, $field, $self) = @_;
  my $address;