File Coverage

blib/lib/Biblio/ILL/ISO/AlreadyTriedListType.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::AlreadyTriedListType;
2              
3             =head1 NAME
4              
5             Biblio::ILL::ISO::AlreadyTriedListType
6              
7             =cut
8              
9 4     4   7155 use Biblio::ILL::ISO::ILLASNtype;
  4         17  
  4         194  
10 4     4   2748 use Biblio::ILL::ISO::SEQUENCE_OF;
  4         11  
  4         193  
11 4     4   2052 use Biblio::ILL::ISO::SystemId;
  4         13  
  4         141  
12              
13 4     4   26 use Carp;
  4         8  
  4         373  
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::AlreadyTriedListType is a derivation of Biblio::ILL::ISO::SEQUENCE_OF.
30              
31             =head1 USES
32              
33             Biblio::ILL::ISO::SystemId
34              
35             =head1 USED IN
36              
37             Biblio::ILL::ISO::ThirdPartyInfoType
38              
39             =cut
40              
41 4     4   649 BEGIN{@ISA = qw ( Biblio::ILL::ISO::SEQUENCE_OF
42             Biblio::ILL::ISO::ILLASNtype
43             );} # inherit from ILLASNtype
44              
45             =head1 FROM THE ASN DEFINITION
46            
47             Already-Tried-List-Type ::= SEQUENCE OF System-Id
48            
49             =cut
50              
51             =head1 METHODS
52              
53             =cut
54             #---------------------------------------------------------------
55             #
56             #---------------------------------------------------------------
57             =head1
58              
59             =head2 from_asn($href)
60              
61             Given a properly formatted hash, builds the object.
62              
63             =cut
64             sub from_asn {
65 0     0 1   my $self = shift;
66 0           my $aref = shift;
67              
68             #print "####### ref type: " . ref($aref) . "\n";
69             #print "####### array count: " . @$aref . "\n";
70              
71 0           foreach my $elem (@$aref) {
72             #print "####### " . ref($elem) . "\n";
73              
74 0           my $objref = new Biblio::ILL::ISO::SystemId();
75             #$objref->from_asn( $aref[$elem] );
76 0           $objref->from_asn( $elem );
77 0           push @{ $self->{"SEQUENCE"} }, $objref;
  0            
78              
79             }
80 0           return $self;
81             }
82              
83             =head1 SEE ALSO
84              
85             See the README for system design notes.
86             See the parent class(es) for other available methods.
87              
88             For more information on Interlibrary Loan standards (ISO 10160/10161),
89             a good place to start is:
90              
91             http://www.nlc-bnc.ca/iso/ill/main.htm
92              
93             =cut
94              
95             =head1 AUTHOR
96              
97             David Christensen,
98              
99             =cut
100              
101              
102             =head1 COPYRIGHT AND LICENSE
103              
104             Copyright 2003 by David Christensen
105              
106             This library is free software; you can redistribute it and/or modify it
107             under the same terms as Perl itself.
108              
109             =cut
110              
111             1;