Koha/AdditionalFieldValue.pm

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