Koha/AdditionalFieldValue.pm

   1 package Koha::AdditionalFieldValue;
   2
   3 use Modern::Perl;
   4 use Koha::AdditionalField;
   5
   6 use base 'Koha::Object';
   7
   8 =head1 NAME
   9
  10 Koha::AdditionalFieldValue - Koha::Object derived class for additional field
  11 values
  12
  13 =cut
  14
  15 =head2 Class methods
  16
  17 =cut
  18
  19 =head3 field
  20
  21 Return the Koha::AdditionalField object for this AdditionalFieldValue
  22
  23 =cut
  24
  25 sub field {
  26     my ( $self ) = @_;
  27
  28     return Koha::AdditionalField->_new_from_dbic( $self->_result()->field() );
  29 }
  30
  31 =head2 Internal methods
  32
  33 =head3 _type
  34
  35 =cut
  36
  37 sub _type { 'AdditionalFieldValue' }
  38
  39 =head1 AUTHOR
  40
  41 Koha Development Team <http://koha-community.org/>
  42
  43 =head1 COPYRIGHT AND LICENSE
  44
  45 Copyright 2018 BibLibre
  46
  47 This file is part of Koha.
  48
  49 Koha is free software; you can redistribute it and/or modify it under the
  50 terms of the GNU General Public License as published by the Free Software
  51 Foundation; either version 3 of the License, or (at your option) any later
  52 version.
  53
  54 Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  55 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  56 A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  57
  58 You should have received a copy of the GNU General Public License along
  59 with Koha; if not, see <http://www.gnu.org/licenses>.
  60
  61 =head1 SEE ALSO
  62
  63 L<Koha::Object>
  64
  65 =cut
  66
  67 1;