File Coverage

blib/lib/Gentoo/Probe/PkgOf.pm

Criterion	Covered	Total	%
statement	12	38	31.5
branch	0	10	0.0
condition	0	2	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	16	60	26.6

package Gentoo::Probe::PkgOf;
our($VERSION)=q{1.0.6};
our(@ISA)=qw(Gentoo::Probe::PkgFiles);
use strict;$|=1;

use Gentoo::Probe::Cmd;
use Gentoo::Probe::PkgFiles;
use Gentoo::Util;

our %fixed_args = (
	installed=>1,
	uninstalled=>0,
	versions=>1,
	builds=>0,
);
sub veto_args(%){
	my ( $self, $args ) = @_;
	for ( sort keys %fixed_args ) {
		confess "$_ makes no sense here" if defined $args->{$_};
		$self->{$_} = $fixed_args{$_};
	};
	($self->{xpats}, $self->{pats}) = ( ($self->{pats}||[]), [] );
};
sub accept($$$@) {
	my $self = shift;
	my $base = join("/",shift,shift);
	my @pats = @{$self->{xpats}};
	local $\="";
	for ( @_ ) {
		my $fname = $self->{vdb_dir}.'/'.$base . "-" . $_ . "/CONTENTS";
		local *FILE;
		my $res = open(FILE,"< $fname");
		return unless defined $res;
		while(){
			chomp;
			next unless ($_) = m/^obj\s+(.+)\s+\S+\s+/;
			next unless $self->check_pats($_, @pats);
			$self->output($base.":".$_);
		};
		close(FILE);
	};
};
sub output() {
	my $self = shift;
	return unless grep { length } @_;
	local ($,,$\)=(",","\n");
	print @_;
}