File Coverage

blib/lib/WebService/Recruit/Shingaku/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::Shingaku::Base;
2 3     3   15 use strict;
  3         5  
  3         118  
3 3     3   14 use base qw( XML::OverHTTP );
  3         6  
  3         2584  
4 3     3   98454 use vars qw( $VERSION );
  3         8  
  3         157  
5             $VERSION = '0.10';
6              
7 3     3   2823 use Class::Accessor::Children::Fast;
  3         1691  
  3         52  
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::Shingaku::Base - Base class for Recruit Shingaku net Web Service
20              
21             =head1 DESCRIPTION
22              
23             This is a base class for Recruit Shingaku 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;