Select Code to Download

sub { $_[1]->{text} = $_[1]->{_content}, delete $_[1]->{_content}, ret
+urn ($_[0] => [$_[1]] , [$_[0] => $_[1]])}

sub { $_[1]->{text} = $_[1]->{_content}; delete $_[1]->{_content}; ret
+urn ($_[0] => [$_[1]] , [$_[0] => $_[1]])}