Permalink
Browse files

fixup

  • Loading branch information...
1 parent 4d53783 commit edd2f53ab30be6689a74d99a26af3134a1475d5d @mfontani committed May 18, 2011
Showing with 3 additions and 4 deletions.
  1. +3 −4 lib/Net/RackSpace/CloudServers.pm
@@ -1,9 +1,8 @@
package Net::RackSpace::CloudServers;
use warnings;
use strict;
-use Any::Moose (
- '::Util::TypeConstraints' => ['subtype'],
-);
+use Any::Moose;
+use Any::Moose ( '::Util::TypeConstraints' );
use Net::RackSpace::CloudServers::Flavor;
use Net::RackSpace::CloudServers::Server;
use Net::RackSpace::CloudServers::Image;
@@ -22,7 +21,7 @@ has 'timeout' => ( is => 'ro', isa => 'Num', required => 0, default =
has 'ua' => ( is => 'rw', isa => 'LWP::UserAgent', required => 0 );
# This module currently supports only US and UK
-subtype ValidLocation => as Str => where { $_ eq 'US' or $_ eq 'UK' };
+subtype ValidLocation => as 'Str' => where { $_ eq 'US' or $_ eq 'UK' };
# The two locations have different API endpoints
our %api_endpoint_by_location = (

0 comments on commit edd2f53

Please sign in to comment.