From 26297ed05c122a0867a94f96a87b3bf58d1c52ee Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie <jblake@omgwallhack.org>
Date: Wed, 7 Jul 2010 16:00:00 -0700
Subject: Fix some type constraint stuff.

---
 usr/src/libpiny/lib/Piny/Repo.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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

diff --git a/usr/src/libpiny/lib/Piny/Repo.pm b/usr/src/libpiny/lib/Piny/Repo.pm
index 48690c4..926f199 100644
--- a/usr/src/libpiny/lib/Piny/Repo.pm
+++ b/usr/src/libpiny/lib/Piny/Repo.pm
@@ -4,7 +4,7 @@
 package Piny::Repo;
 
 use Moose;
-use Moose::Util::TypeConstraints;
+use Moose::Util::TypeConstraints qw( find_type_constraint );
 
 use File::Find qw( find );
 use File::Temp qw( );
@@ -31,8 +31,6 @@ subtype 'SimpleText'
   => message { 'That description is not in the correct format for a piny repo.' }
   ;
 
-Moose::Util::TypeConstraints::export_type_constraints_as_functions;
-
 # Attributes
 
 has 'name' =>
@@ -250,8 +248,8 @@ sub create {
 
   my $user = Piny::Environment->new->user;
 
-  Reponame->assert_valid( $name );
-  SimpleText->assert_valid( $description );
+  find_type_constraint( "Reponame" )->assert_valid( $name );
+  find_type_constraint( "SimpleText" )->assert_valid( $description );
 
   my $repo = $class->new( "name" => $name );
 
-- 
cgit v1.2.3