diff options
author | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2022-05-06 18:10:58 -0700 |
---|---|---|
committer | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2022-05-06 18:10:58 -0700 |
commit | 07a554dcf240798f745265831bab691aa522b892 (patch) | |
tree | 953d61697704e91d0ab44a0535323ea1e9b18a0c | |
parent | 252ed997cc226d5b059a3a486f414a6a28cd2a59 (diff) | |
download | carton-07a554dcf240798f745265831bab691aa522b892.tar.gz |
add remove_distribution() for Carmel use
-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; |