File Coverage

blib/lib/Biblio/ILL/ISO/ElectronicDeliveryServiceSequence.pm
Criterion Covered Total %
statement 13 22 59.0
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 19 29 65.5


line stmt bran cond sub pod time code
1             package Biblio::ILL::ISO::ElectronicDeliveryServiceSequence;
2              
3             =head1 NAME
4              
5             Biblio::ILL::ISO::ElectronicDeliveryServiceSequence
6              
7             =cut
8              
9 4     4   22 use Biblio::ILL::ISO::ILLASNtype;
  4         8  
  4         154  
10 4     4   24 use Biblio::ILL::ISO::SEQUENCE_OF;
  4         8  
  4         101  
11 4     4   2570 use Biblio::ILL::ISO::ElectronicDeliveryService;
  4         13  
  4         131  
12              
13 4     4   32 use Carp;
  4         13  
  4         402  
14              
15             =head1 VERSION
16              
17             Version 0.01
18              
19             =cut
20              
21             our $VERSION = '0.01';
22             #---------------------------------------------------------------------------
23             # Mods
24             # 0.01 - 2003.07.15 - original version
25             #---------------------------------------------------------------------------
26              
27             =head1 DESCRIPTION
28              
29             Biblio::ILL::ISO::ElectronicDeliveryServiceSequence is a derivation of Biblio::ILL::ISO::SEQUENCE_OF.
30              
31             =head1 USES
32              
33             Biblio::ILL::ISO::ElectronicDeliveryService
34              
35             =head1 USED IN
36              
37             Biblio::ILL::ISO::DeliveryService
38              
39             =cut
40              
41 4     4   761 BEGIN{@ISA = qw ( Biblio::ILL::ISO::SEQUENCE_OF
42             Biblio::ILL::ISO::ILLASNtype );} # inherit from ILLASNtype
43              
44             =head1 FROM THE ASN DEFINITION
45            
46             (part of Delivery-Service)
47            
48             electronic-delivery [50] IMPLICIT SEQUENCE OF Electronic-Delivery-Service
49             -- electronic-delivery may only be present in APDUs
50             -- with a protocol-version-num value of 2 or greater
51            
52             =cut
53              
54             =head1 METHODS
55              
56             =cut
57             #---------------------------------------------------------------
58             #
59             #---------------------------------------------------------------
60             =head1
61              
62             =head2 from_asn($href)
63              
64             Given a properly formatted hash, builds the object.
65              
66             =cut
67             sub from_asn {
68 0     0 1   my $self = shift;
69 0           my $aref = shift;
70              
71 0           foreach my $elem (@$aref) {
72 0           print ref($self) . "...$k\n";
73              
74 0           my $objref = new Biblio::ILL::ISO::ElectronicDeliveryService();
75 0           $objref->from_asn( $aref[$elem] );
76 0           push @{ $self->{"SEQUENCE"} }, $objref;
  0            
77              
78             }
79 0           return $self;
80             }
81              
82             =head1 SEE ALSO
83              
84             See the README for system design notes.
85             See the parent class(es) for other available methods.
86              
87             For more information on Interlibrary Loan standards (ISO 10160/10161),
88             a good place to start is:
89              
90             http://www.nlc-bnc.ca/iso/ill/main.htm
91              
92             =cut
93              
94             =head1 AUTHOR
95              
96             David Christensen,
97              
98             =cut
99              
100              
101             =head1 COPYRIGHT AND LICENSE
102              
103             Copyright 2003 by David Christensen
104              
105             This library is free software; you can redistribute it and/or modify it
106             under the same terms as Perl itself.
107              
108             =cut
109              
110             1;
111              
112              
113