#
#Movie perl module for Movie Leecher's Database
#
###############################################################################
package Movie;

use strict;

###############################################################################
# simple object constructor
sub new {
	my $self = {}; #create pointer to empty hash
	$self->{NAME}=undef; #create empty hash entries
	$self->{YEAR}=undef;
	$self->{FILENAME}=undef;
	bless($self); #necessary for object orientation, details unknown
	return $self;
}

###############################################################################
# set NAME
sub name {
	my $self = shift; #equals my $self = shift(@_); while @_ contains method parameters, shift removes and returns first entry of @_
	if (@_) { $self->{NAME} = shift; } # again equals shift(@_)
	return $self->{NAME};
}

###############################################################################
# set YEAR
sub year {
	my $self = shift; #equals my $self = shift(@_); while @_ contains method parameters, shift removes and returns first entry of @_
	if (@_) { $self->{YEAR} = shift; } # again equals shift(@_)
	return $self->{YEAR};
}

###############################################################################
# set FILENAME
sub filename {
	my $self = shift; #equals my $self = shift(@_); while @_ contains method parameters, shift removes and returns first entry of @_
	if (@_) { $self->{FILENAME} = shift; } # again equals shift(@_)
	return $self->{FILENAME};
}

###############################################################################
# returns Movie as String
sub tostring {
	my $self = shift;
	return $self->{NAME}." ".$self->{YEAR}."\n\t".$self->{FILENAME}."\n";
}

1;