File Coverage

blib/lib/WebService/Recruit/AbRoad/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


line stmt bran cond sub pod time code
1             package WebService::Recruit::AbRoad::Base;
2 3     3   33 use strict;
  3         7  
  3         136  
3 3     3   18 use base qw( XML::OverHTTP );
  3         6  
  3         4544  
4 3     3   3497636 use vars qw( $VERSION );
  3         8  
  3         338  
5             $VERSION = '0.10';
6              
7 3     3   4175 use Class::Accessor::Children::Fast;
  3         1913  
  3         56  
8              
9 0     0 1   sub attr_prefix { ''; }
10              
11             sub is_error {
12 0     0 1   my $self = shift;
13 0           my $root = $self->root();
14 0 0         return $root ? 0 : 1;
15             }
16              
17             =head1 NAME
18              
19             WebService::Recruit::AbRoad::Base - Base class for AB-ROAD Web Service
20              
21             =head1 DESCRIPTION
22              
23             This is a base class for AB-ROAD Web Service.
24             L uses this internally.
25              
26             =head1 COPYRIGHT
27              
28             Copyright 2008 RECRUIT Media Technology Labs
29              
30             =cut
31             1;