use warnings;
use Data::Dumper;
+use Locale::gettext;
use Deb::Versions;
use Packages::CGI;
use Packages::Page qw( :all );
return $self->merge_package( \%data );
}
-sub gettext { return $_[0]; }
-
our @DEP_FIELDS = qw( build-depends build-depends-indep
build-conflicts build-conflicts-indep);
sub merge_package {
return $self->{data}{$field};
}
-sub get_versions {
- my ($self) = @_;
-
- return [ $self->{version} ];
-}
-
-sub get_version_string {
- my ($self) = @_;
-
- my $versions = $self->get_versions;
-
- return ($self->{version}, $versions);
-}
-
sub get_dep_field {
my ($self, $dep_field) = @_;