File Coverage

blib/lib/Biblio/ILL/ISO/ShippedConditions.pm
Criterion Covered Total %
statement 19 20 95.0
branch 2 4 50.0
condition 1 3 33.3
subroutine 5 5 100.0
pod 1 1 100.0
total 28 33 84.8


line stmt bran cond sub pod time code
1             package Biblio::ILL::ISO::ShippedConditions;
2              
3             =head1 NAME
4              
5             Biblio::ILL::ISO::ShippedConditions
6              
7             =cut
8              
9 4     4   599 use Biblio::ILL::ISO::ILLASNtype;
  4         11  
  4         134  
10 4     4   22 use Biblio::ILL::ISO::ENUMERATED;
  4         7  
  4         89  
11              
12 4     4   22 use Carp;
  4         8  
  4         364  
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.15 - original version
24             #---------------------------------------------------------------------------
25              
26             =head1 DESCRIPTION
27              
28             Biblio::ILL::ISO::ShippedConditions is a derivation of Biblio::ILL::ISO::ENUMERATED.
29              
30             =head1 USES
31              
32             None.
33              
34             =head1 USED IN
35              
36             Biblio::ILL::ISO::SupplyDetails
37              
38             =cut
39              
40 4     4   835 BEGIN{@ISA = qw ( Biblio::ILL::ISO::ENUMERATED
41             Biblio::ILL::ISO::ILLASNtype );} # inherit from ILLASNtype
42              
43             =head1 FROM THE ASN DEFINITION
44            
45             Shipped-Conditions ::= ENUMERATED {
46             library-use-only (22),
47             no-reproduction (23),
48             client-signature-required (24),
49             special-collections-supervision-required (25),
50             other (27)
51             }
52              
53             =cut
54              
55             =head1 METHODS
56              
57             =cut
58              
59             #---------------------------------------------------------------
60             #
61             #---------------------------------------------------------------
62             =head1
63              
64             =head2 new( $s )
65              
66             Creates a new ShippedConditions object.
67             Valid paramaters are listed in the FROM THE ASN DEFINITION section
68             (e.g. "library-use-only").
69              
70             =cut
71             sub new {
72 3     3 1 22 my $class = shift;
73 3         4 my $self = {};
74              
75 3         15 $self->{"ENUM_LIST"} = {"library-use-only" => 22,
76             "no-reproduction" => 23,
77             "client-signature-required" => 24,
78             "special-collections-supervision-required" => 25,
79             "other" => 27
80             };
81              
82 3 50       8 if (@_) {
83 3         5 my $s = shift;
84            
85 3 50       8 if ( exists $self->{"ENUM_LIST"}->{$s} ) {
86 3         13 $self->{"ENUMERATED"} = $self->{"ENUM_LIST"}->{$s};
87             } else {
88 0         0 croak "invalid ShippedConitions: [$s]";
89             }
90             }
91              
92 3   33     25 bless($self, ref($class) || $class);
93 3         14 return ($self);
94             }
95              
96             =head1 SEE ALSO
97              
98             See the README for system design notes.
99             See the parent class(es) for other available methods.
100              
101             For more information on Interlibrary Loan standards (ISO 10160/10161),
102             a good place to start is:
103              
104             http://www.nlc-bnc.ca/iso/ill/main.htm
105              
106             =cut
107              
108             =head1 AUTHOR
109              
110             David Christensen,
111              
112             =cut
113              
114              
115             =head1 COPYRIGHT AND LICENSE
116              
117             Copyright 2003 by David Christensen
118              
119             This library is free software; you can redistribute it and/or modify it
120             under the same terms as Perl itself.
121              
122             =cut
123              
124             1;