+sub _denastify {
+ my ($arg) = ( shift );
+ if ( ref($arg) eq 'HASH' ) {
+ my $value;
+ if ( exists( $arg->{content} ) ) {
+ $value = $arg->{content};
+ } elsif ( exists( $arg->{dt_array} ) ) {
+ $value = [ map {
+ { map { _denastify($_) } @{ $_->{dt_assoc} } }
+ }
+ @{ $arg->{dt_array} }
+ ];
+ } elsif ( exists( $arg->{dt_assoc} ) ) {
+ $value = { map { _denastify($_) } @{ $arg->{dt_assoc} } };
+ }
+ return ( $arg->{key} => $value );
+ }
+ ();
+}
+