From 7786ce2a332b0eba4b3ca7c57f906a32e8715da3 Mon Sep 17 00:00:00 2001
From: Bryan Bishop <kanzure@gmail.com>
Date: Fri, 29 Oct 2010 19:46:24 -0500
Subject: Starting repo cleanup to make this not so awful

---
 libpiny/lib/Piny/User/IkiWiki.pm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 libpiny/lib/Piny/User/IkiWiki.pm

(limited to 'libpiny/lib/Piny/User/IkiWiki.pm')

diff --git a/libpiny/lib/Piny/User/IkiWiki.pm b/libpiny/lib/Piny/User/IkiWiki.pm
new file mode 100644
index 0000000..8585e90
--- /dev/null
+++ b/libpiny/lib/Piny/User/IkiWiki.pm
@@ -0,0 +1,37 @@
+# Copyright © 2010 Julian Blake Kongslie <jblake@omgwallhack.org>
+# Licensed under the BSD 3-clause license.
+
+use strict;
+use warnings;
+
+package Piny::User::IkiWiki;
+
+use Moose;
+use Moose::Util::TypeConstraints;
+use MooseX::StrictConstructor;
+
+use Piny::User;
+
+extends "Piny::User";
+
+# Types
+
+subtype 'IkiWikiUsername'
+  => as 'Str'
+  => where { $_ =~ /^ikiwiki-[a-zA-Z][a-zA-Z0-9_.-]*$/ }
+  => message { 'That username is not in the correct format for an ikiwiki user.' }
+  ;
+
+# Attributes
+
+has 'name' =>
+  ( is          => 'ro'
+  , isa         => 'IkiWikiUsername'
+  , lazy_build  => 1
+  );
+
+# Moose boilerplate
+
+__PACKAGE__->meta->make_immutable;
+
+1;
-- 
cgit v1.2.3