package Common;

use strict;
use warnings;

sub in_array {
	my ($check, @array) = @_;
	my $retval = 0;
	foreach my $test (@array){
		if($check eq $test){
			$retval = 1;
			last;
		}
	}
	return $retval;
}

sub to_integer {
	my ($value) = @_;
	my $result = 0;
	
	if(defined($result)) {
		$result = int($value);
	}
	
	return $result;
}

1;