File Coverage

blib/lib/WebService/Recruit/Akasugu/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::Akasugu::Base;
2 3     3   14 use strict;
  3         6  
  3         84  
3 3     3   14 use base qw( XML::OverHTTP );
  3         4  
  3         2426  
4 3     3   107584 use vars qw( $VERSION );
  3         7  
  3         148  
5             $VERSION = '0.10';
6              
7 3     3   2856 use Class::Accessor::Children::Fast;
  3         1526  
  3         48  
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::Akasugu::Base - Base class for Akasugu.net Web Service
20              
21             =head1 DESCRIPTION
22              
23             This is a base class for Akasugu.net Web Service.
24             L uses this internally.
25              
26             =head1 COPYRIGHT
27              
28             Copyright 2008 RECRUIT Media Technology Labs
29              
30             =cut
31             1;