fix spelling, whitespace, unused vars release test failures

[gitmo/MooseX-Types-Common.git] / lib / MooseX / Types / Common.pm

diff --git a/lib/MooseX/Types/Common.pm b/lib/MooseX/Types/Common.pm
index 8bf9726..91ef68c 100644 (file)
--- a/lib/MooseX/Types/Common.pm
+++ b/lib/MooseX/Types/Common.pm
@@ -1,15 +1,22 @@
 package MooseX::Types::Common;
+# ABSTRACT: A library of commonly used type constraints
 
 use strict;
 use warnings;
+use Carp qw/cluck/;
 
-our $VERSION = '0.001000';
+sub import {
+    my $self = shift;
+    return unless @_;
+    cluck("Tried to import the symbols " . join(', ', @_)
+        . " from MooseX::Types::Common.\nDid you mean "
+        . "MooseX::Types::Common::String or MooseX::Type::Common::Numeric?");
+}
 
 1;
+__END__
 
-=head1 NAME
-
-MooseX::Types::Common
+=pod
 
 =head1 SYNOPSIS
 
@@ -21,7 +28,6 @@ MooseX::Types::Common
     $object->short_str("string\nwith\nbreaks");
 
 
-
     use MooseX::Types::Common::Numeric qw/PositiveInt/;
     has count => (is => 'rw', isa => PositiveInt);
 
@@ -47,26 +53,9 @@ A set of commonly-used type constraints that do not ship with Moose by default.
 
 =back
 
-=head1 AUTHORS
+=head1 ORIGIN
 
 This distribution was extracted from the L<Reaction> code base by Guillermo
 Roditi (groditi).
 
-The original authors of this library are:
-
-=over 4
-
-=item * Matt S. Trout
-
-=item * K. J. Cheetham
-
-=item * Guillermo Roditi
-
-=back
-
-=head1 LICENSE
-
-This library is free software, you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
 =cut