ag2 arg1="123"/>
content2
</root>
`) ;
my $tmp = tied $XML->{root}->pointer->{CONTENT} ;
isnt( tied $XML->{root}->pointer->{CONTENT}, undef ) ;
my $cont = $XML->{root}->{CONTENT} ;
eq', 'z') ;
@nodes = $XML->{root}{foo}->nodes_keys ;
cmp_ok( "@nodes", 'eq', 'bar' ) ;
isnt( $XML->{root}{foo}{bar}->is_node, undef ) ;
my @keys = $XML->{root}{foo}('@keys') ;
cmp_ok
' ) ;
$XML->{root}{foo}->set_auto ;
cmp_ok( ref( $XML->tree->{root}{foo} ), 'eq', '' ) ;
isnt( exists $XML->tree->{root}{'/nodes'}{foo}, undef ) ;
done_testing() ;
} ;
###################
ag2 arg1="123"/>
content2
</root>
`) ;
my $tmp = tied $XML->{root}->pointer->{CONTENT} ;
isnt( tied $XML->{root}->pointer->{CONTENT}, undef ) ;
my $cont = $XML->{root}->{CONTENT} ;
eq', 'z') ;
@nodes = $XML->{root}{foo}->nodes_keys ;
cmp_ok( "@nodes", 'eq', 'bar' ) ;
isnt( $XML->{root}{foo}{bar}->is_node, undef ) ;
my @keys = $XML->{root}{foo}('@keys') ;
cmp_ok
' ) ;
$XML->{root}{foo}->set_auto ;
cmp_ok( ref( $XML->tree->{root}{foo} ), 'eq', '' ) ;
isnt( exists $XML->tree->{root}{'/nodes'}{foo}, undef ) ;
done_testing() ;
} ;
###################
ag2 arg1="123"/>
content2
</root>
`) ;
my $tmp = tied $XML->{root}->pointer->{CONTENT} ;
isnt( tied $XML->{root}->pointer->{CONTENT}, undef ) ;
my $cont = $XML->{root}->{CONTENT} ;
eq', 'z') ;
@nodes = $XML->{root}{foo}->nodes_keys ;
cmp_ok( "@nodes", 'eq', 'bar' ) ;
isnt( $XML->{root}{foo}{bar}->is_node, undef ) ;
my @keys = $XML->{root}{foo}('@keys') ;
cmp_ok
' ) ;
$XML->{root}{foo}->set_auto ;
cmp_ok( ref( $XML->tree->{root}{foo} ), 'eq', '' ) ;
isnt( exists $XML->tree->{root}{'/nodes'}{foo}, undef ) ;
done_testing() ;
} ;
###################
ag2 arg1="123"/>
content2
</root>
`) ;
my $tmp = tied $XML->{root}->pointer->{CONTENT} ;
isnt( tied $XML->{root}->pointer->{CONTENT}, undef ) ;
my $cont = $XML->{root}->{CONTENT} ;
eq', 'z') ;
@nodes = $XML->{root}{foo}->nodes_keys ;
cmp_ok( "@nodes", 'eq', 'bar' ) ;
isnt( $XML->{root}{foo}{bar}->is_node, undef ) ;
my @keys = $XML->{root}{foo}('@keys') ;
cmp_ok
' ) ;
$XML->{root}{foo}->set_auto ;
cmp_ok( ref( $XML->tree->{root}{foo} ), 'eq', '' ) ;
isnt( exists $XML->tree->{root}{'/nodes'}{foo}, undef ) ;
done_testing() ;
} ;
###################