# ----------------------------------------------------------------
    package MyAPI_env;
    use strict;
    use base qw( XML::OverHTTP );
# ----------------------------------------------------------------
sub url              { 'http://www.kawa.net/works/perl/treepp/example/envxml.cgi' }
sub root_elem        { 'env' }
sub total_entries    { 1 }
sub entries_per_page { 10 }
sub current_page     { 1 }
sub default_param    { {one=>1} }
sub treepp_config    { [qw( user_agent )] }
sub elem_class       { 'MyElement' }
sub force_array      { [qw( SERVER_ADDR )] }
sub force_hash       { [qw( SERVER_PORT )] }
# ----------------------------------------------------------------
    package MyAPI_env::GET;
    use strict;
	use vars qw( @ISA );
	@ISA = qw( MyAPI_env );
sub http_method { 'GET' }
# ----------------------------------------------------------------
    package MyAPI_env::POST;
    use strict;
	use vars qw( @ISA );
	@ISA = qw( MyAPI_env );
sub http_method { 'POST' }
# ----------------------------------------------------------------
    package MyAPI_env::Error;
    use strict;
	use vars qw( @ISA );
	@ISA = qw( MyAPI_env );
sub default_param { {error=>1} }
sub is_error { shift->root->{QUERY_STRING} =~ /error=1/i }
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------