File Coverage

blib/lib/File/VirusScan/Engine/Command.pm

Criterion	Covered	Total	%
statement	22	35	62.8
branch	3	10	30.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	1	2	50.0
total	34	58	58.6

package File::VirusScan::Engine::Command;
use strict;
use warnings;
use Carp;

use File::VirusScan::Engine;
use vars qw( @ISA );
@ISA = qw( File::VirusScan::Engine );

__PACKAGE__->follow_best_practice();
__PACKAGE__->mk_accessors( qw( command args ) );

sub new
{
	my ($class, $conf) = @_;

	if(!$conf->{command}) {
		croak "Must supply a 'command' config value for $class";
	}

	# TODO document
	$conf->{args} ||= $class->default_arguments();
	if( exists $conf->{'+args'} ) {
		push @{$conf->{args}}, @{ delete $conf->{'+args'} };
	}

	return $class->SUPER::new( $conf );
}

sub default_arguments
{
	return [ ];
}

sub _run_commandline_scanner
{
	my ($self, $command, $match) = @_;

	$match = '.*' unless defined $match;

	my $fh = IO::File->new("$command |");
	unless ($fh) {
		die "Could not execute '$command': $!";
	}

	my $msg;
	while (<$fh>) {
		$msg .= $_ if /$match/oi;
	}
	$fh->close;

	return ($? >> 8, $msg);
}

1;

__END__