File Coverage

blib/lib/WebService/Recruit/Aikento/Base.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	26	69.2

package WebService::Recruit::Aikento::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::Aikento::Base - Base class for Aikento Web Service

=head1 DESCRIPTION

This is a base class for Aikento Web Service.
L uses this internally.

=head1 COPYRIGHT

Copyright 2008 RECRUIT Media Technology Labs

=cut
1;