r27296 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Nov 26 12:21:53 2008
New Revision: 27296

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27296
Log:
add parse_list class-method to Dep

parses a string in the form of "pkg (>= ver), pkg2, pkg3"
and returns a list of corresponding Dep objects

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27296&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Nov 26 12:21:53 2008
@@ -275,6 +275,22 @@
         ? $self->pkg . ' (>= ' . $self->ver . ')'
         : $self->pkg
     );
+}
+
+sub parse_list {
+    my $class = shift;
+    my @list = split( /\s*,\s*/, shift );
+
+    for( @list ) {
+        if ( /(^S+)\s(.+)$/ ) {
+            $_ = $class->new( $1, $2 );
+        }
+        else {
+            $_ = $class->new($_);
+        }
+    }
+
+    return @list;
 }
 
 1;