#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{   package Employee;
    use Moose;
    use Function::Parameters;
    use namespace::clean;

    has name        => (is => 'ro', isa => 'Str');
    has hourly_wage => (is => 'ro', isa => 'Int');
    has hours       => (is => 'ro', isa => 'Int');

    method pay () {
        $self->hours * $self->hourly_wage
    }

    method gist () {
        "Employee info: name: " . $self->name
        . " hours: " . $self->hours
        . " wage: " . $self->hourly_wage . "\n"
    }

    __PACKAGE__->meta->make_immutable
}

{   package EmployeeList;
    use Moose;
    use Function::Parameters;
    use List::Util qw{ sum0 };
    use namespace::clean;

    has employee_list => (is      => 'ro',
                          isa     => 'ArrayRef[Employee]',
                          traits  => ['Array'],
                          handles => {
                              add_employee   => 'push',
                              list_employees => 'elements',
                          },
    );

    method gist () {
	join "", map $_->gist, $self->list_employees
    }

    method average_hourly_wage () {
        sum0(map $_->hourly_wage, $self->list_employees)
            / $self->list_employees
    }

    method find ($name) {
        (grep $_->name eq $name, $self->list_employees)[0]
    }

    __PACKAGE__->meta->make_immutable
}

print 'Enter the name of the file to open: ';
chomp( my $input_file = <STDIN> );


open my $file_handle, '<', $input_file
    or die "Failed to open $input_file: $!\n";

my  $employee_list= 'EmployeeList'->new;

while (my $row = <$file_handle>) {
    my @splitrow = split ' ', $row;
    my $employee = 'Employee'->new(
            name        => $splitrow[0],
            hourly_wage => $splitrow[1],
            hours       => $splitrow[2]
    );
    $employee_list->add_employee($employee);
}

print $employee_list->gist;
say $employee_list->average_hourly_wage;
say $employee_list->find('holli')->pay;