Refactor Authentication + some slight doc + perltidy

[catagits/Catalyst-Plugin-Authentication.git] / lib / Catalyst / Plugin / Authentication / User / Hash.pm

diff --git a/lib/Catalyst/Plugin/Authentication/User/Hash.pm b/lib/Catalyst/Plugin/Authentication/User/Hash.pm
index 49f92eb..db1783e 100644 (file)
--- a/lib/Catalyst/Plugin/Authentication/User/Hash.pm
+++ b/lib/Catalyst/Plugin/Authentication/User/Hash.pm
@@ -9,7 +9,7 @@ use warnings;
 sub new {
     my $class = shift;
 
-    bless { @_ }, $class;
+    bless { ( @_ > 1 ) ? @_ : %{ $_[0] }  }, $class;
 }
 
 sub AUTOLOAD {