use strict;
use warnings;
use Employee;
use EmployeeList;
use Data::Dump 'pp';

my $E1 = new Employee( {name=>'George',   hours=>40, hourlywage=>50.00} );
print "What does Data::Dump see for my Employee?\n";
pp($E1);

print "\nHow does it print?\n";
print $E1->format();

print "\nLet's create a couple more employees and print them:\n";
my $E2 = new Employee( {name=>'Ellen',    hours=>30, hourlywage=>35.00} );
my $E3 = new Employee( {name=>'Phideaux', hours=>10, hourlywage=> 5.00} );
print $E2->format(),
      $E3->format();

print "\nNow we'll create an EmployeeList.",
      "\nWhat does Data::Dump see when it's empty?\n";
my $L = new EmployeeList();
pp($L);

print "\nHow does an empty list print?\n";
print $L->format();

$L->set_EmployeeList( [ $E1, $E2, $E3 ] );
print "\nAfter adding George, Ellen and Phideaux, our list looks like:\n";
pp($L);

print "\nHow does it look using the built-in formatter?\n";
print $L->format();

print "\nDoes get_EmployeeList work?\n";
pp($L->get_EmployeeList());