use Mojo::Base -strict;
use B ();
use Mojo::ByteStream;
use Mojo::Date;
use Mojo::DOM;
use Mojo::JSON;
use Mojo::Template;
use Scalar::Util ();
use Mojo::XMLRPC::Base64;
use Mojo::XMLRPC::Message::C
eturn $elem->text / 1.0;
} elsif ($tag eq 'boolean') {
return $elem->text ? Mojo::JSON::true : Mojo::JSON::false;
} elsif ($tag eq 'nil') {
return undef;
} elsif ($tag eq 'dateTime.is
m->can('TO_XMLRPC')) {
return _encode_item($item->TO_XMLRPC);
} elsif ($item->isa('JSON::PP::Boolean')) {
my $val = $item ? 1 : 0;
$ret = "<boolean>$val</boolean>";