File Coverage

blib/lib/File/VirusScan/Engine/Command/Kaspersky/Kavscanner.pm
Criterion Covered Total %
statement 22 42 52.3
branch 0 12 0.0
condition 0 14 0.0
subroutine 8 9 88.8
pod 1 2 50.0
total 31 79 39.2


line stmt bran cond sub pod time code
1             package File::VirusScan::Engine::Command::Kaspersky::Kavscanner;
2 1     1   96378 use strict;
  1         8  
  1         24  
3 1     1   4 use warnings;
  1         2  
  1         20  
4 1     1   3 use Carp;
  1         2  
  1         49  
5              
6 1     1   330 use File::VirusScan::Engine::Command;
  1         17  
  1         6  
7 1     1   43 use vars qw( @ISA );
  1         2  
  1         38  
8             @ISA = qw( File::VirusScan::Engine::Command );
9              
10 1     1   5 use Cwd 'abs_path';
  1         1  
  1         34  
11              
12 1     1   346 use File::VirusScan::Result;
  1         2  
  1         223  
13              
14             sub default_arguments
15             {
16 5     5 0 35 return [ qw( -e PASBME -o syslog -i0 ) ];
17             }
18              
19             sub scan
20             {
21 0     0 1   my ($self, $path) = @_;
22              
23 0           my $abs = abs_path($path);
24 0 0 0       if ($abs && $abs ne $path) {
25 0           $path = $abs;
26             }
27              
28 0           my ($exitcode, $scan_response) = eval { $self->_run_commandline_scanner(join(' ', $self->{command}, @{ $self->{args} }, $path, '2>&1'), 'INFECTED',); };
  0            
  0            
29              
30 0 0         if($@) {
31 0           return File::VirusScan::Result->error($@);
32             }
33              
34 0 0 0       if( 0 == $exitcode
      0        
35             || 5 == $exitcode
36             || 10 == $exitcode)
37             {
38 0           return File::VirusScan::Result->clean();
39             }
40              
41 0 0         if(9 == $exitcode) {
42              
43             # Password-protected ZIP
44 0           return File::VirusScan::Result->virus('kavscanner-password-protected-zip');
45             }
46              
47 0 0         if(20 == $exitcode) {
48 0           return File::VirusScan::Result->virus('kavscanner-suspicious');
49             }
50              
51 0 0 0       if( 21 == $exitcode
52             || 25 == $exitcode)
53             {
54 0           my ($virus_name) = $scan_response =~ m/INFECTED (\S+)/;
55 0   0       $virus_name ||= 'unknown-Kavscanner-virus';
56 0           return File::VirusScan::Result->virus($virus_name);
57             }
58              
59 0           return File::VirusScan::Result->error("Unknown return code: $exitcode");
60             }
61              
62             1;
63             __END__