File Coverage

blib/lib/Biblio/ILL/ISO/SupplyMediumInfoTypeSequence.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::SupplyMediumInfoTypeSequence;
2              
3             =head1 NAME
4              
5             Biblio::ILL::ISO::SupplyMediumInfoTypeSequence
6              
7             =cut
8              
9 4     4   614 use Biblio::ILL::ISO::ILLASNtype;
  4         9  
  4         107  
10 4     4   23 use Biblio::ILL::ISO::SEQUENCE_OF;
  4         6  
  4         82  
11 4     4   23 use Biblio::ILL::ISO::SupplyMediumInfoType;
  4         8  
  4         97  
12              
13 4     4   23 use Carp;
  4         7  
  4         414  
14              
15             =head1 VERSION
16              
17             Version 0.02
18              
19             =cut
20              
21             our $VERSION = '0.02';
22             #---------------------------------------------------------------------------
23             # Mods
24             # 0.02 - 2003.09.07 - fixed the POD
25             # 0.01 - 2003.07.15 - original version
26             #---------------------------------------------------------------------------
27              
28             =head1 DESCRIPTION
29              
30             Biblio::ILL::ISO::SupplyMediumInfoTypeSequence is a derivation of Biblio::ILL::ISO::SEQUENCE_OF.
31              
32             =head1 USES
33              
34             Biblio::ILL::ISO::SupplyMediumInfoType
35              
36             =head1 USED IN
37              
38             Biblio::ILL::ISO::Request
39              
40             =cut
41              
42 4     4   995 BEGIN{@ISA = qw ( Biblio::ILL::ISO::SEQUENCE_OF
43             Biblio::ILL::ISO::ILLASNtype );} # inherit from ILLASNtype
44              
45             =head1 FROM THE ASN DEFINITION
46            
47             (part of ILL-Request)
48              
49             supply-medium-info-type [13] IMPLICIT SEQUENCE OF Supply-Medium-Info-Type OPTIONAL, -- SIZE (1..7)
50             -- this sequence is a list, in order of preference,
51             -- with a maximum number of 7 entries
52              
53             =cut
54              
55             =head1 METHODS
56              
57             =cut
58              
59             #---------------------------------------------------------------
60             #
61             #---------------------------------------------------------------
62             =head1
63              
64             =head2 from_asn($href)
65              
66             Given a properly formatted hash, builds the object.
67              
68             =cut
69             sub from_asn {
70 0     0 1   my $self = shift;
71 0           my $aref = shift;
72              
73 0           foreach my $elem (@$aref) {
74 0           print ref($self) . "...$k\n";
75              
76 0           my $objref = new Biblio::ILL::ISO::SupplyMediumInfoType();
77 0           $objref->from_asn( $aref[$elem] );
78 0           push @{ $self->{"SEQUENCE"} }, $objref;
  0            
79              
80             }
81 0           return $self;
82             }
83              
84             =head1 SEE ALSO
85              
86             See the README for system design notes.
87             See the parent class(es) for other available methods.
88              
89             For more information on Interlibrary Loan standards (ISO 10160/10161),
90             a good place to start is:
91              
92             http://www.nlc-bnc.ca/iso/ill/main.htm
93              
94             =cut
95              
96             =head1 AUTHOR
97              
98             David Christensen,
99              
100             =cut
101              
102              
103             =head1 COPYRIGHT AND LICENSE
104              
105             Copyright 2003 by David Christensen
106              
107             This library is free software; you can redistribute it and/or modify it
108             under the same terms as Perl itself.
109              
110             =cut
111              
112             1;