From 68f3e45eda35af607f80d9884a6ab90c5a540715 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Sat, 30 Aug 2014 16:22:21 -0400 Subject: [PATCH] Add NCIP::RequestId to handle RequestId information. Signed-off-by: Jason Stephenson --- lib/NCIP/RequestId.pm | 59 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 lib/NCIP/RequestId.pm diff --git a/lib/NCIP/RequestId.pm b/lib/NCIP/RequestId.pm new file mode 100644 index 0000000..3fdab4a --- /dev/null +++ b/lib/NCIP/RequestId.pm @@ -0,0 +1,59 @@ +# --------------------------------------------------------------- +# Copyright © 2014 Jason J.A. Stephenson +# +# This file is part of NCIPServer. +# +# NCIPServer is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# NCIPServer is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with NCIPServer. If not, see . +# --------------------------------------------------------------- +package NCIP::RequestId; + +use parent qw(Class::Accessor); + +=head1 NAME + +RequestId - RequestId field data as described in Z39.83-1-2012 + +=head1 SYNOPSIS + + + +=head1 DESCRIPTION + + +=head1 FIELDS + +=head2 AgencyId + +Optional text string identifier for the agency where the RequestId is valid. + +=head2 RequestIdentifierType + +Optional text string description of the type of the RequestId. + +=head2 RequestIdentifierValue + +Required text string for the RequestId's value. Could be a database ID +or something similar. + +=cut + +NCIP::RequestId_>mk_accessors( + qw( + AgencyId + RequestIdentifierType + RequestIdentifierValue + ) +); + +1; -- 2.43.2