use Data::Dump qw/ dd pp /;
use XML::Smart;
my $x = XML::Smart->new( q{<root> hi <foo bar="bar"> fooooooooo </foo>
+ </root>} );
dd( $x );
dd( $x->{root}->content );
__END__
do {
  my $a = bless(do{\(my $o = bless({
    a => [],
    b => \sub { ... },
    c => sub { ... },
    g => \*Object::MultiType::Saver::NULL,
    h => {},
    parser => "",
    point => {
      "/nodes" => { root => 1 },
      "/order" => ["root"],
      "root"   => {
                    "/nodes"  => { foo => 1 },
                    "/order"  => ["CONTENT", "foo"],
                    "CONTENT" => " hi ",
                    "foo"     => {
                                   "/order"  => ["bar", "CONTENT"],
                                   "bar"     => "bar",
                                   "CONTENT" => " fooooooooo ",
                                 },
                  },
    },
    s => \sub { ... },
    TIEONUSE => { a => "XML::Smart::Tie::Array", h => "XML::Smart::Tie
+::Hash" },
    tree => 'fix',
  }, "Object::MultiType::Saver"))}, "XML::Smart");
  $$a->{tree} = $$a->{point};
  $a;
}
" hi "
[download]