From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 19 Jun 2011 05:46:48 +0000 (-0500)
Subject: allow empty hashrefs
X-Git-Tag: v0.11~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db0dfcd868227c6396eb8b74c6595aca9b6bf2b4;p=gitmo%2FPackage-DeprecationManager.git

allow empty hashrefs
---

diff --git a/lib/Package/DeprecationManager.pm b/lib/Package/DeprecationManager.pm
index e82da33..f90e366 100644
--- a/lib/Package/DeprecationManager.pm
+++ b/lib/Package/DeprecationManager.pm
@@ -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;