From 280850cbe303d140ae7733f73bcb17c5903b60ed Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 22 Nov 2018 15:58:13 +0100
Subject: enhance partition_table doc

---
 perl-install/partition_table/gpt.pm | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

(limited to 'perl-install/partition_table/gpt.pm')

diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 010bac6fe..c155ed48e 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -10,9 +10,19 @@ use fs::type;
 use partition_table::raw;
 use c;
 
+=head1 SYNOPSYS
+
+Read/write GUID partition tables (GPT)
+
+See https://en.wikipedia.org/wiki/GUID_Partition_Table#Partition_type_GUIDs for a list of exitings GUIDs
+
+=head1 Functions
+
+=over
+
+=cut
 my $nb_primary = 128;
 
-# See https://en.wikipedia.org/wiki/GUID_Partition_Table#Partition_type_GUIDs for a list of exitings GUIDs
 
 sub first_usable_sector { 34 }
 
@@ -119,8 +129,13 @@ sub write {
     $commit_level;
 }
 
-# Hint partition_table::write() that telling the kernel to reread the
-# partition_table is not needed if we already succeeded in that:
+=item need_to_tell_kernel($hd)
+
+Hint partition_table::write() that telling the kernel to reread the
+partition_table is not needed if we already succeeded in that
+
+=cut
+
 sub need_to_tell_kernel {
     my ($hd) = @_;
     # If we failed, try again (partion_table::tell_kernel() will unmount some partitions first)
@@ -139,4 +154,8 @@ sub can_add { &can_raw_add }
 sub adjustStart {}
 sub adjustEnd {}
 
+=back
+
+=cut
+
 1;
-- 
cgit v1.2.1