view release on metacpan or  search on metacpan

t/xmlformat.t  view on Meta::CPAN

use ActiveResource::Formats::XmlFormat;

my $f = "ActiveResource::Formats::XmlFormat";

my $hash = $f->decode(<<XML);
<?xml version="1.0" encoding="UTF-8"?>
<stuff>
    <id>1</id>
    <subject>lorem ipsum</subject>
    <user name="Emily Toilet Paper" id="6"/>
</stuff>
XML

is_deeply(
    $hash,
    {
        stuff => {
            id => { text => 1 },
            subject => { text => "lorem ipsum" },
            user => {