File Coverage

lib/Net/HL7/Response.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             ################################################################################
2             #
3             # File : Response.pm
4             # Author : Duco Dokter
5             # Created : Tue Mar 4 13:03:00 2003
6             # Version : $Id: Response.pm,v 1.2 2004/02/10 14:31:54 wyldebeast Exp $
7             # Copyright : Wyldebeast & Wunderliebe
8             #
9             ################################################################################
10              
11             package Net::HL7::Response;
12              
13 3     3   37 use 5.004;
  3         8  
14 3     3   13 use base qw(Net::HL7::Message);
  3         3  
  3         152  
15 3     3   15 use strict;
  3         3  
  3         45  
16 3     3   12 use warnings;
  3         3  
  3         77  
17              
18             1;
19              
20             =pod
21              
22             =head1 NAME
23              
24             Net::HL7::Response
25              
26             =head1 SYNOPSIS
27              
28             In general, this object is created by the
29             L, like:
30              
31             my $conn = new Net::HL7::Connection('localhost', 8089);
32             my $request = new Net::HL7::Request();
33              
34             # ... set the HL7 message for the request
35              
36             my $response = $conn->send($request);
37              
38              
39             =head1 DESCRIPTION
40              
41             The Net::HL7::Response class extends the
42             L class. In general, it is not
43             necessary to create instances of this class directly, since it will be
44             created by the Connection or Daemon when necessary.
45              
46             =head1 METHODS
47              
48             See L.
49              
50             =head1 AUTHOR
51              
52             D.A.Dokter
53              
54             =head1 LICENSE
55              
56             Copyright (c) 2002 D.A.Dokter. All rights reserved. This program is
57             free software; you can redistribute it and/or modify it under the same
58             terms as Perl itself.
59              
60             =cut