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