File Coverage

blib/lib/File/VirusScan/Result.pm

Criterion	Covered	Total	%
statement	31	39	79.4
branch	1	2	50.0
condition	1	2	50.0
subroutine	10	14	71.4
pod	7	7	100.0
total	50	64	78.1

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

my @STATES = qw( clean error virus suspicious );
__PACKAGE__->_make_accessors(@STATES);

sub new
{
	my ($class, $args) = @_;
	my $self = {
		state => $args->{state} || 'clean',
		data  => $args->{data},
	};
	return bless $self, $class;
}

sub error
{
	my ($class, $err) = @_;
	return $class->new(
		{
			state => 'error',
			data  => $err,
		}
	);
}

sub virus
{
	my ($class, $vname) = @_;
	return $class->new(
		{
			state => 'virus',
			data  => $vname,
		}
	);
}

sub suspicious
{
	my ($class, $what) = @_;
	return $class->new(
		{
			state => 'suspicious',
			data  => $what,
		}
	);
}

sub clean
{
	my ($class) = @_;
	return $class->new({ state => 'clean', });
}

sub get_state
{
	my ($self) = @_;
	return $self->{state};
}

sub get_data
{
	my ($self) = @_;
	return $self->{data};
}


# Generate is_XXX accessors for all valid states
sub _make_accessors
{
	my ($class, @methods) = @_;
	no strict 'refs';  ## no critic (ProhibitNoStrict)
	foreach my $name (@methods) {
		my $wrappername = "${class}::is_${name}";
		if(!defined &{$wrappername}) {
			*{$wrappername} = sub {
				my ($self) = @_;
				return ($self->{state} eq $name);
			};
		}
	}

	use strict 'refs';
}


1;
__END__