File Coverage

blib/lib/File/VirusScan/Engine.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch	8	10	80.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	1	1	100.0
total	51	54	94.4

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

use IO::Dir;
use IO::File;

use base qw( Class::Accessor::Fast );

sub list_files
{
	my ($self, $path) = @_;

	if(!-d $path) {
		return $path;
	}

	my $dir = IO::Dir->new($path);
	if(!$dir) {
		croak "Could not open directory $path: $!";
	}

	my @files;

	for my $name ($dir->read) {
		next if($name eq '.' || $name eq '..');
		my $full_name = "$path/$name";
		if(-f $full_name) {
			push @files, $full_name;
		} elsif(-d _ ) {
			push @files, $self->list_files($full_name);
		}
	}

	$dir->close;
	return @files;
}

1;
__END__