1 package SL::Dev::TimeRecording;
5 our @EXPORT_OK = qw(new_time_recording);
6 our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
10 use SL::DB::TimeRecording;
13 use SL::Dev::CustomerVendor qw(new_customer);
16 sub new_time_recording {
19 my $customer = delete $params{customer} // new_customer(name => 'Testcustomer')->save;
20 die "illegal customer" unless defined $customer && ref($customer) eq 'SL::DB::Customer';
22 my $employee = $params{employee} // SL::DB::Manager::Employee->current;
23 my $staff_member = $params{staff_member} // $employee;
25 my $now = DateTime->now_local;
27 my $time_recording = SL::DB::TimeRecording->new(
29 end_time => $now->add(hours => 1),
30 customer => $customer,
31 description => '<p>this and that</p>',
32 staff_member => $staff_member,
33 employee => $employee,
37 return $time_recording;