From 433fa34c117c8036825b3835bd9e1065ae2dcc29 Mon Sep 17 00:00:00 2001
From: Andrew Fuerste Henry <andrew@bywatersolutions.com>
Date: Mon, 4 May 2026 15:31:54 +0000
Subject: [PATCH] Bug 28915: (follow-up) Add POD
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Andrew Fuerste Henry <andrew@bywatersolutions.com>
Signed-off-by: Anneli Österman <anneli.osterman@koha-suomi.fi>
Signed-off-by: Andrew Fuerste Henry <andrew@bywatersolutions.com>
Signed-off-by: Pedro Amorim <pedro.amorim@openfifth.co.uk>
---
 Koha/SimpleMARC.pm | 56 +++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 55 insertions(+), 1 deletion(-)

diff --git a/Koha/SimpleMARC.pm b/Koha/SimpleMARC.pm
index 672b975a54..7065502cd9 100644
--- a/Koha/SimpleMARC.pm
+++ b/Koha/SimpleMARC.pm
@@ -172,7 +172,7 @@ sub copy_and_replace_field {
 
 =head2 update_field
 
-Missing POD for update_field.
+Updates the value of a field.
 
 When parameter C<field> is a control field (000-009), parameter C<subfield> is
 used to indicate character position. Defaults to position C<0>.
@@ -252,6 +252,12 @@ sub add_field {
     }
 }
 
+=head2 _update_field
+
+Updates the value of a field.
+
+=cut
+
 sub _update_field {
     my ($params)  = @_;
     my $record    = $params->{record};
@@ -278,6 +284,12 @@ sub _update_field {
     }
 }
 
+=head3 _update_subfield
+
+Updates the value of a subfield
+
+=cut
+
 sub _update_subfield {
     my ($params)      = @_;
     my $record        = $params->{record};
@@ -318,6 +330,12 @@ sub _update_subfield {
     }
 }
 
+=head3 _update_controlfield
+
+Updates the value of a controlfield at a specified position.
+
+=cut
+
 sub _update_controlfield {
     my ($params)  = @_;
     my $record    = $params->{record};
@@ -380,6 +398,12 @@ sub read_field {
     }
 }
 
+=head3 _read_field
+
+Returns the value of a field
+
+=cut
+
 sub _read_field {
     my ($params)      = @_;
     my $record        = $params->{record};
@@ -413,6 +437,12 @@ sub _read_field {
     return @values;
 }
 
+=head3 _read_subfield
+
+Returns the value of a subfield
+
+=cut
+
 sub _read_subfield {
     my ($params)      = @_;
     my $record        = $params->{record};
@@ -643,6 +673,12 @@ sub _delete_field {
     }
 }
 
+=head3 _delete_subfield
+
+Deletes the given subfield.
+
+=cut
+
 sub _delete_subfield {
     my ($params)      = @_;
     my $record        = $params->{record};
@@ -662,6 +698,12 @@ sub _delete_subfield {
     }
 }
 
+=head3 _copy_move_field
+
+Copies a value from one field and moves it to another.
+
+=cut
+
 sub _copy_move_field {
     my ($params)      = @_;
     my $record        = $params->{record};
@@ -700,6 +742,12 @@ sub _copy_move_field {
     $record->insert_fields_ordered(@new_fields);
 }
 
+=head3 _copy_move_subfield
+
+Copies a value from one subfield and moves it to another.
+
+=cut
+
 sub _copy_move_subfield {
     my ($params)         = @_;
     my $record           = $params->{record};
@@ -760,6 +808,12 @@ sub _copy_move_subfield {
     }
 }
 
+=head3 _modify_values
+
+Performs a regex substitution to modify values
+
+=cut
+
 sub _modify_values {
     my ($params) = @_;
     my $values   = $params->{values};