allow empty hashrefs
Jesse Luehrs [Sun, 19 Jun 2011 05:46:48 +0000 (00:46 -0500)]
lib/Package/DeprecationManager.pm

index e82da33..f90e366 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 
 use Carp qw( croak );
 use List::MoreUtils qw( any );
-use Params::Util qw( _HASH );
+use Params::Util qw( _HASH0 );
 use Sub::Install;
 
 sub import {
@@ -14,7 +14,7 @@ sub import {
 
     croak
         'You must provide a hash reference -deprecations parameter when importing Package::DeprecationManager'
-        unless $args{-deprecations} && _HASH( $args{-deprecations} );
+        unless $args{-deprecations} && _HASH0( $args{-deprecations} );
 
     my %registry;