File Coverage

blib/lib/RPM2/LocalInstalled.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package RPM2::LocalInstalled;

use 5.008;
use strict;
use warnings;

require Exporter;

use RPM2;
use Sort::Versions;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

(our $VERSION) = '$Revision: 1.4 $' =~ /([\d.]+)/;

sub new {
	my $class = shift;
	my $args = shift;
	my $self = {};

	if($args) {
		die "The argument supplied is not reference; Use ->new({ tags = [ qw/version release epoch ]}) for example." unless ref $args;
	}
	my @default_tags = qw/version release epoch/;
	$self->{tags} = $args->{tags} || \@default_tags;
	foreach(@default_tags) {
		push @{$self->{tags}}, $_ unless $self->{tags} =~ /$_/;
	}
	die "tags is not an array: " . ref $self->{tags} unless ref $self->{tags} eq 'ARRAY';

	bless($self, $class);
	return $self;
}

sub list_all {
	my $self = shift;
	my $rpmdb = RPM2->open_rpm_db();
	my $i = $rpmdb->find_all_iter();
	while(my $pkg = $i->next()) {
		my $info;
		foreach my $tag (@{$self->{tags}}) {
			$info->{$tag} = $pkg->tag($tag);
			$info->{$tag} = 0 if $tag eq 'epoch' && ! defined $pkg->tag($tag);
		}
		push @{$self->{__all}->{$pkg->name()}}, $info;
	}
	return $self->{__all};
}

sub list_newest {
	my $self = shift;
	$self->list_all() unless $self->{__all};
	foreach my $pkgname (keys %{$self->{__all}}) {
		foreach(@{$self->{__all}->{$pkgname}}) {
			if($self->{__newest}->{$pkgname}) {
				my $everel1 = $_->{epoch} . ":" . $_->{version} . "-" . $_->{release};
				my $everel2 = $self->{__newest}->{$pkgname}->{epoch} . ":" . $self->{__newest}->{$pkgname}->{version} . "-" . $self->{__newest}->{$pkgname}->{release};
				push @{$self->{__older}->{$pkgname}}, $self->{__newest}->{$pkgname} if versioncmp($everel1, $everel2) == 1;
				$self->{__newest}->{$pkgname} = $_ if versioncmp($everel1, $everel2) == 1;
			} else {
				$self->{__newest}->{$pkgname} = $_;
			}
		}
	}
	return $self->{__newest};
}

sub list_older {
	my $self = shift;
	$self->list_newest() unless $self->{__newest};
	return $self->{__older};
}

1;
__END__