File Coverage

lib/Net/HL7/Request.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 : Request.pm
4             # Author : Duco Dokter
5             # Created : Tue Mar 4 13:03:00 2003
6             # Version : $Id: Request.pm,v 1.3 2005/04/20 07:29:44 wyldebeast Exp $
7             # Copyright : Wyldebeast & Wunderliebe
8             #
9             ################################################################################
10              
11             package Net::HL7::Request;
12              
13 3     3   44 use 5.004;
  3         9  
14 3     3   17 use base qw(Net::HL7::Message);
  3         5  
  3         451  
15 3     3   14 use strict;
  3         5  
  3         43  
16 3     3   9 use warnings;
  3         6  
  3         77  
17              
18             1;
19              
20             =pod
21              
22             =head1 NAME
23              
24             Net::HL7::Request
25              
26             =head1 SYNOPSIS
27              
28             my $request = new Net::HL7::Request();
29             my $conn = new Net::HL7::Connection('localhost', 8089);
30              
31             my $msh = new Net::HL7::Segments::MSH();
32              
33             my $seg1 = new Net::HL7::Segment("PID");
34              
35             $seg1->setField(1, "foo");
36              
37             $request->addSegment($msh);
38             $request->addSegment($seg1);
39              
40             my $response = $conn->send($request);
41              
42              
43             =head1 DESCRIPTION
44              
45             The Net::HL7::Request simply extends the
46             L class.
47              
48             =head1 METHODS
49              
50             See L.
51              
52             =head1 AUTHOR
53              
54             D.A.Dokter
55              
56             =head1 LICENSE
57              
58             Copyright (c) 2002 D.A.Dokter. All rights reserved. This program is
59             free software; you can redistribute it and/or modify it under the same
60             terms as Perl itself.
61              
62             =cut
63