0.04
- Correct de-nastification to handle lists
+
+0.05 Sun Jun 27 16:54:23 EDT 2010
+ - Correct de-nastification to handle single item dt_assoc
+ (eg belongs_to_rsp response)
use Digest::MD5;
use Date::Calc qw/ Add_Delta_Days Today This_Year /;
-our $VERSION = '0.04';
+our $VERSION = '0.05';
my $rv;
*hash = \&Digest::MD5::md5_hex;
@$array
];
} elsif ( exists( $arg->{dt_assoc} ) ) {
- $value = { map { _denastify($_) } @{ $arg->{dt_assoc} } };
+ my $array = $arg->{dt_assoc};
+ $array = [ $array ] unless ref($array) eq 'ARRAY';
+ $value = { map { _denastify($_) } @$array };
}
return ( $arg->{key} => $value );
}