Bug 26265: (QA follow-up) Remove g option from regex, add few dirs

[koha-equinox.git] / Koha / AdditionalFieldValue.pm

diff --git a/Koha/AdditionalFieldValue.pm b/Koha/AdditionalFieldValue.pm
index 48c399f..6af87a9 100644 (file)
--- a/Koha/AdditionalFieldValue.pm
+++ b/Koha/AdditionalFieldValue.pm
@@ -1,5 +1,10 @@
 package Koha::AdditionalFieldValue;
 
+use Modern::Perl;
+use Koha::AdditionalField;
+
+use base 'Koha::Object';
+
 =head1 NAME
 
 Koha::AdditionalFieldValue - Koha::Object derived class for additional field
@@ -7,9 +12,27 @@ values
 
 =cut
 
-use Modern::Perl;
+=head2 Class methods
 
-use base 'Koha::Object';
+=cut
+
+=head3 field
+
+Return the Koha::AdditionalField object for this AdditionalFieldValue
+
+=cut
+
+sub field {
+    my ( $self ) = @_;
+
+    return Koha::AdditionalField->_new_from_dbic( $self->_result()->field() );
+}
+
+=head2 Internal methods
+
+=head3 _type
+
+=cut
 
 sub _type { 'AdditionalFieldValue' }