File Coverage

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