File Coverage

blib/lib/SOAP/Transport/LOOPBACK.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 27 28 96.4


line stmt bran cond sub pod time code
1             # ======================================================================
2             #
3             # Copyright (C) 2007 Martin Kutter.
4             # Part of SOAP-Lite, Copyright (C) 2000-2001 Paul Kulchenko
5             # (paulclinger@yahoo.com)
6             # You may distribute/modify this file under the same terms as perl itself.
7             #
8             # $ID: $
9             #
10             # ======================================================================
11              
12             package SOAP::Transport::LOOPBACK;
13 1     1   6 use strict;
  1         1  
  1         40  
14              
15             package SOAP::Transport::LOOPBACK::Client;
16 1     1   4 use strict;
  1         2  
  1         24  
17              
18 1     1   4 use vars qw(@ISA);
  1         1  
  1         37  
19 1     1   4 use SOAP::Lite;
  1         2  
  1         6  
20             @ISA = qw(SOAP::Client);
21              
22             sub new {
23 1 50   1   4 return $_[0] if ref $_[0];
24 1         12 return bless {}, $_[0];
25             }
26              
27             sub send_receive {
28 1     1   7 my($self, %parameters) = @_;
29              
30 1         10 $self->code(200);
31 1         6 $self->message('OK');
32 1         5 $self->is_success(1);
33 1         8 $self->status('200 OK');
34              
35 1         6 return $parameters{envelope};
36             }
37              
38             1;
39              
40             __END__