package [% package_name %]::Base;
use strict;
use base qw( XML::OverHTTP );
use vars qw( $VERSION );
$VERSION = '[% version %]';

use Class::Accessor::Children::Fast;

sub attr_prefix { ''; }
sub text_node_key { '_text'; }

sub is_error {
    my $self = shift;
    my $root = $self->root();
    return $root ? 0 : 1;
}

=head1 NAME

WebService::[% company_name %]::[% service_name %]::Base - Base class for [% title %]

=head1 DESCRIPTION

This is a base class for [% title %].
L<[% package_name %]> uses this internally.

[% IF perl_copyright or copyright -%]
=head1 COPYRIGHT

[% perl_copyright or copyright %]

[% END -%]
=cut
1;