deprecate non-arrayref enum and duck_type

[gitmo/Moose.git] / lib / Moose / Deprecated.pm

diff --git a/lib/Moose/Deprecated.pm b/lib/Moose/Deprecated.pm
index 5dd322a..b371496 100644 (file)
--- a/lib/Moose/Deprecated.pm
+++ b/lib/Moose/Deprecated.pm
@@ -3,39 +3,25 @@ package Moose::Deprecated;
 use strict;
 use warnings;
 
-our $VERSION = '1.12';
-$VERSION = eval $VERSION;
-our $AUTHORITY = 'cpan:STEVAN';
-
-use Package::DeprecationManager -deprecations => {
-    'coerce without coercion' => '1.08',
-    'pre-0.94 MetaRole API'   => '0.94',
-    'alias or excludes'       => '0.89',
-    'Role type'               => '0.84',
-    'subtype without sugar'   => '0.72',
-    'type without sugar'      => '0.72',
-    'Moose::init_meta'        => '0.56',
+use Package::DeprecationManager 0.07 -deprecations => {
+    'non-arrayref form of enum'         => '2.0700',
+    'non-arrayref form of duck_type'    => '2.0700',
+    'optimized type constraint sub ref' => '2.0000',
+    'default is for Native Trait'       => '1.14',
+    'default default for Native Trait'  => '1.14',
+    'coerce without coercion'           => '1.08',
     },
-    -ignore => [
-    qw( Moose
-        Moose::Exporter
-        Moose::Meta::Attribute
-        Moose::Meta::Class
-        Moose::Util::MetaRole
-        )
-    ],
+    -ignore => [qr/^(?:Class::MOP|Moose)(?:::)?/],
     ;
 
 1;
 
+# ABSTRACT: Manages deprecation warnings for Moose
+
 __END__
 
 =pod
 
-=head1 NAME 
-
-Moose::Deprecated - Manages deprecation warnings for Moose
-
 =head1 DESCRIPTION
 
     use Moose::Deprecated -api_version => $version;
@@ -49,17 +35,4 @@ If you specify C<< -api_version => $version >>, you can use deprecated features
 without warnings. Note that this special treatment is limited to the package
 that loads C<Moose::Deprecated>.
 
-=head1 AUTHORS
-
-Dave Rolsky E<lt>autarch@urth.orgE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2006-2010 by Infinity Interactive, Inc.
-
-L<http://www.iinteractive.com>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
 =cut