package WebService::Recruit::Shingaku::Base;
use strict;
use base qw( XML::OverHTTP );
use vars qw( $VERSION );
$VERSION = '0.10';

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

sub attr_prefix { ''; }

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

=head1 NAME

WebService::Recruit::Shingaku::Base - Base class for Recruit Shingaku net Web Service

=head1 DESCRIPTION

This is a base class for Recruit Shingaku net Web Service.
L<WebService::Recruit::Shingaku> uses this internally.

=head1 COPYRIGHT

Copyright 2008 RECRUIT Media Technology Labs

=cut
1;