r28045 - in /trunk/dh-make-perl: dh-make-perl lib/Debian/Dependencies.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Thu Dec 11 08:09:01 UTC 2008


Author: dmn
Date: Thu Dec 11 08:08:59 2008
New Revision: 28045

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28045
Log:
move Dep::List to external Debian::Dependencies

Added:
    trunk/dh-make-perl/lib/Debian/Dependencies.pm
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=28045&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Dec 11 08:08:59 2008
@@ -90,41 +90,6 @@
     return $seq_argument;
 }
 
-# List of Dep objects
-# Overrides the stringification operator so that one can use Dep::List
-# and a string, consisting of list of dependencies simultaneously
-#
-# my $dl = Dep::List->new('perl, libfoo-perl (>= 3.4)');
-# print $dl->[1]->ver;      # 3.4
-# print $dl->[1];           # libfoo-perl (>= 3.4)
-# print $dl;                # perl, libfoo-perl (>= 3.4)
-
-package Dep::List;
-
-use Debian::Dependency;
-
-use overload
-    '""'   => \&stringify;
-
-sub new {
-    my ( $class, $val ) = @_;
-
-    my $self = bless [], $class;
-
-    if ( defined($val) ) {
-        @{$self} = map(
-            Debian::Dependency->new($_),
-            split( /\s*,\s*/, $val ) );
-    }
-}
-
-sub stringify {
-    my $self = shift;
-
-    return join( ', ', @$self );
-}
-
-1;
 ######################################################################
 # Main dh-make-perl starts here, don't look any further!
 package main;

Added: trunk/dh-make-perl/lib/Debian/Dependencies.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/Dependencies.pm?rev=28045&op=file
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Dependencies.pm (added)
+++ trunk/dh-make-perl/lib/Debian/Dependencies.pm Thu Dec 11 08:08:59 2008
@@ -1,0 +1,37 @@
+# List of Debian::Dependencyp objects
+# Overrides the stringification operator so that one can use
+# Debian::Dependencies and a string, consisting of list of dependencies
+# interchangably
+#
+# my $dl = Debian::Dependencies->new('perl, libfoo-perl (>= 3.4)');
+# print $dl->[1]->ver;      # 3.4
+# print $dl->[1];           # libfoo-perl (>= 3.4)
+# print $dl;                # perl, libfoo-perl (>= 3.4)
+
+package Debian::Dependencies;
+use strict;
+use warnings;
+use Debian::Dependency;
+
+use overload
+    '""'   => \&stringify;
+
+sub new {
+    my ( $class, $val ) = @_;
+
+    my $self = bless [], $class;
+
+    if ( defined($val) ) {
+        @{$self} = map(
+            Debian::Dependency->new($_),
+            split( /\s*,\s*/, $val ) );
+    }
+}
+
+sub stringify {
+    my $self = shift;
+
+    return join( ', ', @$self );
+}
+
+1;




More information about the Pkg-perl-cvs-commits mailing list