From 853f59ec0468f72fa29811a8fe48fad91fab6083 Mon Sep 17 00:00:00 2001
From: Guillem Jover <guillem@debian.org>
Date: Tue, 23 Oct 2018 02:58:56 +0200
Subject: perl: Fix POD for Dpkg::Interface::Storable derived method
 implementations

Document inherited methods. Document the return values. Note which
arguments are optional. Reorder methods by their position in the stack.
---
 scripts/Dpkg/Deps/Simple.pm | 38 ++++++++++++++++++++++++--------------
 1 file changed, 24 insertions(+), 14 deletions(-)

(limited to 'scripts/Dpkg/Deps')

diff --git a/scripts/Dpkg/Deps/Simple.pm b/scripts/Dpkg/Deps/Simple.pm
index 0557c7cfc..4fa1ae8d5 100644
--- a/scripts/Dpkg/Deps/Simple.pm
+++ b/scripts/Dpkg/Deps/Simple.pm
@@ -149,20 +149,6 @@ sub reset {
     $self->{restrictions} = undef;
 }
 
-=item $dep->parse($fh, $desc)
-
-Parses a line from a filehandle.
-
-=cut
-
-sub parse {
-    my ($self, $fh, $desc) = @_;
-
-    my $line = <$fh>;
-    chomp $line;
-    return $self->parse_string($line);
-}
-
 =item $dep->parse_string($dep_string)
 
 Parses the dependency string and modifies internal properties to match the
@@ -224,6 +210,24 @@ sub parse_string {
     }
 }
 
+=item $dep->parse($fh, $desc)
+
+Parse a dependency line from a filehandle.
+
+=cut
+
+sub parse {
+    my ($self, $fh, $desc) = @_;
+
+    my $line = <$fh>;
+    chomp $line;
+    return $self->parse_string($line);
+}
+
+=item $dep->load($filename)
+
+Parse a dependency line from $filename.
+
 =item $dep->output([$fh])
 
 =item "$dep"
@@ -257,6 +261,12 @@ sub output {
     return $res;
 }
 
+=item $dep->save($filename)
+
+Save the dependency into the given $filename.
+
+=cut
+
 # _arch_is_superset(\@p, \@q)
 #
 # Returns true if the arch list @p is a superset of arch list @q.
-- 
cgit v1.2.3