package EmployeeList;

use diagnostics;
use strict;
use warnings;

sub new{
	my ($class) = @_;
	my $self = bless {
		EmployeeList => []
	}, $class;
	return $self;
}

sub get_EmployeeList{
	my $self = shift;
	return $self->{EmployeeList};#does not seem to work at all, no idea why
}

sub set_EmployeeList {
	my ($self, $new_EmployeeList ) = @_;
	$self->{EmployeeList } = $new_EmployeeList;#also does not work at all
}

sub print_EmployeeList{
	my $self = shift;
	return "Employee info: $self->{EmployeeList}"	#Does not even come close to working
}

sub average_hourly_wage{#not even sure where to begin, don't know how to initialize or access the hash at this point

}

sub respond_to_query{#again no idea, any help would be great, 20$ or more if you really need it

}

1;