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) = @_;