Dpkg::Deps: Implement new "reset" method

Bump module version to 1.01 due to this.

debian/changelog

@@ -1,6 +1,8 @@
 dpkg (1.16.1) UNRELEASED; urgency=low
 
-  *
+  [ Raphaël Hertzog ]
+  * Dpkg::Deps: Implement new "reset" method and bump module version to 1.01
+    due to this.
 
  -- Raphaël Hertzog <hertzog@debian.org>  Sat, 02 Apr 2011 09:21:26 +0200
 

scripts/Dpkg/Deps.pm

@@ -48,7 +48,7 @@ All the deps_* functions are exported by default.
 use strict;
 use warnings;
 
-our $VERSION = "1.00";
+our $VERSION = "1.01";
 
 use Dpkg::Version;
 use Dpkg::Arch qw(get_host_arch);
@@ -438,6 +438,11 @@ For a simple dependency, returns the package name if the dependency
 applies only to a subset of architectures.  For multiple dependencies, it
 returns the list of package names that have such a restriction.
 
+=item $dep->reset()
+
+Clears any dependency information stored in $dep so that $dep->is_empty()
+returns true.
+
 =back
 
 =head2 Dpkg::Deps::Simple
@@ -501,17 +506,21 @@ use base qw(Dpkg::Interface::Storable);
 sub new {
     my ($this, $arg) = @_;
     my $class = ref($this) || $this;
-    my $self = {
-	'package' => undef,
-	'relation' => undef,
-	'version' => undef,
-	'arches' => undef,
-    };
+    my $self = {};
     bless $self, $class;
+    $self->reset();
     $self->parse_string($arg) if defined($arg);
     return $self;
 }
 
+sub reset {
+    my ($self) = @_;
+    $self->{'package'} = undef;
+    $self->{'relation'} = undef;
+    $self->{'version'} = undef;
+    $self->{'arches'} = undef;
+}
+
 sub parse {
     my ($self, $fh, $desc) = @_;
     my $line = <$fh>;
@@ -665,10 +674,7 @@ sub arch_is_concerned {
 sub reduce_arch {
     my ($self, $host_arch) = @_;
     if (not $self->arch_is_concerned($host_arch)) {
-	$self->{package} = undef;
-	$self->{relation} = undef;
-	$self->{version} = undef;
-	$self->{arches} = undef;
+	$self->reset();
     } else {
 	$self->{arches} = undef;
     }
@@ -716,12 +722,7 @@ sub get_evaluation {
 sub simplify_deps {
     my ($self, $facts) = @_;
     my $eval = $self->get_evaluation($facts);
-    if (defined($eval) and $eval == 1) {
-	$self->{package} = undef;
-	$self->{relation} = undef;
-	$self->{version} = undef;
-	$self->{arches} = undef;
-    }
+    $self->reset() if defined $eval and $eval == 1;
 }
 
 sub is_empty {
@@ -796,6 +797,11 @@ sub new {
     return $self;
 }
 
+sub reset {
+    my ($self) = @_;
+    $self->{'list'} = [];
+}
+
 sub add {
     my $self = shift;
     push @{$self->{list}}, @_;
@@ -1197,4 +1203,16 @@ sub check_package {
     return (0, undef);
 }
 
+=head1 CHANGES
+
+=head2 Version 1.01
+
+=over
+
+=item * Add new $dep->reset() method that all dependency objects support.
+
+=back
+
+=cut
+
 1;