File tree Expand file tree Collapse file tree 1 file changed +1
-12
lines changed
Expand file tree Collapse file tree 1 file changed +1
-12
lines changed Original file line number Diff line number Diff line change @@ -165,10 +165,7 @@ sub is_working_now ($self) {
165165sub has_started_work_since ($self , $since ) {
166166 my $now = DateTime-> now(time_zone => $self -> time_zone);
167167
168- unless ($self -> is_working_now) {
169- $Logger -> log ([ ' HAS_STARTED_WORK: user %s is loafing' , $self -> username ]);
170- return
171- }
168+ return unless $self -> is_working_now;
172169
173170 state $key = [ undef , qw( mon tue wed thu fri sat sun ) ];
174171 my $dow = $now -> day_of_week;
@@ -189,14 +186,6 @@ sub has_started_work_since ($self, $since) {
189186 time_zone => $self -> time_zone,
190187 );
191188
192- $Logger -> log ([
193- ' HAS_STARTED_WORK: user %s is on duty and started at %s %s %s' ,
194- $self -> username,
195- $start_dt -> ymd,
196- $start_dt -> hms,
197- $start_dt -> time_zone,
198- ]);
199-
200189 return $start_dt -> epoch >= $since ;
201190}
202191
You can’t perform that action at this time.
0 commit comments