diff options
-rw-r--r-- | lib/Carton/Snapshot.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Carton/Snapshot.pm b/lib/Carton/Snapshot.pm index 9e57f18..a6b1968 100644 --- a/lib/Carton/Snapshot.pm +++ b/lib/Carton/Snapshot.pm @@ -110,6 +110,12 @@ sub add_distribution { push @{$self->_distributions}, $dist; } +sub remove_distributions { + my($self, $filter) = @_; + my @dists = grep !$filter->($_), $self->distributions; + $self->_distributions(\@dists); +} + sub packages { my $self = shift; |