#OOP, eg033_Car class
#.pm stands for Perl Module

use strict;
package eg033_Car;  #not class name = file name 

#class variables (fields)
my $model_name = "RoadPerl";
my $vin = 1;

sub new {
	my $eg033_car = { #create hash reference
		vin => $vin++,
		rpm => 0,
	};
	bless $eg033_car; #case of letter does not matter 
	#bless function, take reference, associate it with class, this example uses hash reference
}

#property methods
sub vin {
	my($self) = @_;
	return $self->{vin};  #retrieve from hash reference
}

sub speed {
	my($self) = @_;
	return $self->{rpm}/100; #same as above
}

#methods... skipping