diff options
| author | Julian Blake Kongslie <jblake@omgwallhack.org> | 2010-07-07 16:00:00 -0700 |
|---|---|---|
| committer | Julian Blake Kongslie <jblake@omgwallhack.org> | 2010-07-07 16:00:00 -0700 |
| commit | 26297ed05c122a0867a94f96a87b3bf58d1c52ee (patch) | |
| tree | 79e3a035ce966de2846d2d1ef3eb8427cd2761b3 /usr/src/libpiny | |
| parent | d809044c2f00d7f8358dc8013c4e6639760aba67 (diff) | |
| download | piny-code-26297ed05c122a0867a94f96a87b3bf58d1c52ee.tar.gz piny-code-26297ed05c122a0867a94f96a87b3bf58d1c52ee.zip | |
Fix some type constraint stuff.
Diffstat (limited to 'usr/src/libpiny')
| -rw-r--r-- | usr/src/libpiny/lib/Piny/Email.pm | 2 | ||||
| -rw-r--r-- | usr/src/libpiny/lib/Piny/Repo.pm | 8 | ||||
| -rw-r--r-- | usr/src/libpiny/lib/Piny/User.pm | 4 |
3 files changed, 4 insertions, 10 deletions
diff --git a/usr/src/libpiny/lib/Piny/Email.pm b/usr/src/libpiny/lib/Piny/Email.pm index e031c34..7ad17d8 100644 --- a/usr/src/libpiny/lib/Piny/Email.pm +++ b/usr/src/libpiny/lib/Piny/Email.pm @@ -18,8 +18,6 @@ subtype 'EmailAddress' => message { 'That does not appear to be a valid email address.' } ; -Moose::Util::TypeConstraints::export_type_constraints_as_functions; - # Attributes has 'address' => 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 ); diff --git a/usr/src/libpiny/lib/Piny/User.pm b/usr/src/libpiny/lib/Piny/User.pm index fb9a20f..f38c020 100644 --- a/usr/src/libpiny/lib/Piny/User.pm +++ b/usr/src/libpiny/lib/Piny/User.pm @@ -4,7 +4,7 @@ package Piny::User; use Moose; -use Moose::Util::TypeConstraints; +use Moose::Util::TypeConstraints qw( find_type_constraint ); use Piny::Email; use Piny::Group; @@ -17,8 +17,6 @@ subtype 'Username' => message { 'That username is not in the correct format for a piny user.' } ; -Moose::Util::TypeConstraints::export_type_constraints_as_functions; - # Attributes has 'uid' => |