From b09b9989b43f6b015f0fac9670c1180e97b67972 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie <jblake@omgwallhack.org>
Date: Thu, 18 Mar 2010 00:11:52 -0700
Subject: Switched to Module::Build instead of hardcoding paths.

---
 usr/src/libpiny/lib/Piny/Email.pm | 45 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 usr/src/libpiny/lib/Piny/Email.pm

(limited to 'usr/src/libpiny/lib/Piny/Email.pm')

diff --git a/usr/src/libpiny/lib/Piny/Email.pm b/usr/src/libpiny/lib/Piny/Email.pm
new file mode 100644
index 0000000..7ad17d8
--- /dev/null
+++ b/usr/src/libpiny/lib/Piny/Email.pm
@@ -0,0 +1,45 @@
+# Copyright © 2010 Julian Blake Kongslie <jblake@omgwallhack.org>
+# Licensed under the BSD 3-clause license.
+
+package Piny::Email;
+
+use Moose;
+use Moose::Util::TypeConstraints;
+
+use Email::Valid::Loose;
+
+# Types
+
+my $checker = Email::Valid::Loose->new("-fqdn" => 1, "-fudge" => 0, "-local_rules" => 0, "-mxcheck" => 1, "-tldcheck" => 0 );
+
+subtype 'EmailAddress'
+  => as 'Str'
+  => where { $checker->address( $_ ) }
+  => message { 'That does not appear to be a valid email address.' }
+  ;
+
+# Attributes
+
+has 'address' =>
+  ( is  => 'ro'
+  , isa => 'EmailAddress'
+  );
+
+# Builder methods
+
+# If constructed with just one argument, then treat it as an address.
+around BUILDARGS => sub {
+  my ( $orig, $class ) = ( shift, shift );
+
+  if ( @_ == 1 && ! ref $_[0] ) {
+    return $class->$orig( address => $_[0] );
+  } else {
+    return $class->$orig( @_ );
+  };
+};
+
+# Moose boilerplate
+
+__PACKAGE__->meta->make_immutable;
+
+1;
-- 
cgit v1.2.3