Starting repo cleanup to make this not so awful

1 files changed, 37 insertions, 0 deletions

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;