File Coverage

blib/lib/Biblio/ILL/ISO/LocationInfoSequence.pm
Criterion Covered Total %
statement 13 21 61.9
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 19 28 67.8


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