package FileDups;
use Digest::MD5;
use Moose;
use namespace::autoclean;

has 'name'     => (is => 'ro', isa => 'Str',  required => 1,);
has 'pathname' => (is => 'ro', isa => 'Str',  required => 1,);
has 'max_size' => (is => 'ro', isa => 'Num',  required => 1,);
has 'big'      => (is => 'rw', isa => 'Bool', required => 1, default => 0);
has 'unread'   => (is => 'rw', isa => 'Bool', required => 1, default => 0);
has 'dupe'     => (is => 'rw', isa => 'Bool', required => 1, default => 0);

has 'md5'      => (is => 'ro', isa => 'Str',      lazy => 1, builder => '_calculate_md5');
has 'size'     => (is => 'ro', isa => 'Num',      lazy => 1, builder => '_calculate_size');

sub _calculate_size {
	my $self = shift;
	my $size = -s $self->name;
	if (-s $self->name > $self->max_size) {
		$size = $self->max_size;
		$self->big(1);
	} 
	return $size;
}

sub _calculate_md5 {
	 my $self = shift;
	 my $file = $self->pathname;
	 my $size = $self->size;
	 my $chksum = 0;
	 if ($size == $self->max_size) {
		 $chksum = 'a'x32;
	 } else {
		my $fh;
		unless (open $fh, "<", "$file" ) {
			$self->unread(1);
			return -1;  #return -1 and exit from subrutine if file cannot be opened
		}
 		binmode($fh);
 		$chksum = Digest::MD5->new->addfile($fh)->hexdigest;
 		close($fh);
	}
	return $chksum;
}

;1