File Coverage

blib/lib/WebService/Recruit/Eyeco/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::Eyeco::Base;
2 3     3   15 use strict;
  3         4  
  3         86  
3 3     3   12 use base qw( XML::OverHTTP );
  3         4  
  3         2809  
4 3     3   103336 use vars qw( $VERSION );
  3         6  
  3         138  
5             $VERSION = '0.10';
6              
7 3     3   2585 use Class::Accessor::Children::Fast;
  3         1446  
  3         47  
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::Eyeco::Base - Base class for Eyeco Web Service
20              
21             =head1 DESCRIPTION
22              
23             This is a base class for Eyeco Web Service.
24             L uses this internally.
25              
26             =head1 COPYRIGHT
27              
28             Copyright 2008 RECRUIT Media Technology Labs
29              
30             =cut
31             1;