X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FVersionTree.pm;fp=Debbugs%2FVersionTree.pm;h=0000000000000000000000000000000000000000;hb=1e6633a3780f4fd53fc4303852e84d13cdad2dc6;hp=1231bd810c980c96e2645500fec0ffe73ad73637;hpb=466f7faff129a5699c7674f59900a92aa256175d;p=debbugs.git

diff --git a/Debbugs/VersionTree.pm b/Debbugs/VersionTree.pm
deleted file mode 100644
index 1231bd8..0000000
--- a/Debbugs/VersionTree.pm
+++ /dev/null
@@ -1,125 +0,0 @@
-# This module is part of debbugs, and
-# is released under the terms of the GPL version 2, or any later
-# version (at your option). See the file README and COPYING for more
-# information.
-# Copyright 2018 by Don Armstrong <don@donarmstrong.com>.
-
-package Debbugs::VersionTree;
-
-=head1 NAME
-
-Debbugs::VersionTree -- OO interface to Debbugs::Versions
-
-=head1 SYNOPSIS
-
-   use Debbugs::VersionTree;
-   my $vt = Debbugs::VersionTree->new();
-
-=head1 DESCRIPTION
-
-
-
-=cut
-
-use Mouse;
-use v5.10;
-use strictures 2;
-use namespace::autoclean;
-
-use Debbugs::Config qw(:config);
-use Debbugs::Versions;
-use Carp;
-
-extends 'Debbugs::OOBase';
-
-has _versions => (is => 'bare',
-		  isa => 'Debbugs::Versions',
-		  default => sub {Debbugs::Versions->new(\&Debbugs::Versions::Dpkg::vercmp)},
-		  handles => {_isancestor => 'isancestor',
-			      _load => 'load',
-			      _buggy => 'buggy',
-			      _allstates => 'allstates',
-			     },
-		 );
-
-has loaded_src_pkg => (is => 'bare',
-		     isa => 'HashRef[Bool]',
-		     default => sub {{}},
-		     traits => ['Hash'],
-		     handles => {src_pkg_loaded => 'exists',
-				 _set_src_pkg_loaded => 'set',
-				},
-		    );
-
-sub _srcify_version {
-    my @return;
-    for my $v (@_) {
-	if (ref($_)) {
-	    push @return,
-		$v->source_version->src_pkg_ver;
-	} else {
-	    push @return,
-		$v;
-	}
-    }
-    return @_ > 1?@return:$return[0];
-}
-
-sub isancestor {
-    my ($self,$ancestor,$descendant) = @_;
-    return $self->_isancestor(_srcify_version($ancestor),
-			      _srcify_version($descendant),
-			     );
-}
-
-sub buggy {
-    my $self = shift;
-    my ($version,$found,$fixed) = @_;
-    ($version) = _srcify_version($version);
-    $found = [_srcify_version(@{$found})];
-    $fixed = [_srcify_version(@{$fixed})];
-    return $self->_buggy($version,$found,$fixed);
-}
-
-sub allstates {
-    my $self = shift;
-    my $found = shift;
-    my $fixed = shift;
-    my $interested = shift;
-    return $self->_allstates([_srcify_version(@{$found})],
-			     [_srcify_version(@{$fixed})],
-			     [_srcify_version(@{$interested})],
-			    );
-}
-
-sub load {
-    my $self = shift;
-    for my $src_pkg (@_) {
-	my $is_valid = 0;
-	if (ref($src_pkg)) {
-	    $is_valid = $src_pkg->valid;
-	    $src_pkg = $src_pkg->name;
-	}
-	next if $self->src_pkg_loaded($src_pkg);
-	my $srchash = substr $src_pkg, 0, 1;
-	my $version_fh;
-	open($version_fh,'<',"$config{version_packages_dir}/$srchash/$src_pkg");
-	if (not defined $version_fh) {
-	    carp "No version file for package $src_pkg" if $is_valid;
-	    next;
-	}
-	$self->_load($version_fh);
-	$self->_set_src_pkg_loaded($src_pkg,1);
-    }
-}
-
-__PACKAGE__->meta->make_immutable;
-no Mouse;
-1;
-
-
-__END__
-# Local Variables:
-# indent-tabs-mode: nil
-# cperl-indent-level: 4
-# End: