Select Code to Download

use constant WEEKDAY => 1;
use constant WEEKEND => 0;
...
  my $dow = (localtime ($date || time))[6];
  return substr $self->{weekdays}, $dow, 1 ? WEEKDAY : WEEKEND;
}

my %params = (
...
...
   'Sunday is weekend');
is($obj->is_weekday(UnixDate(ParseDate('last tuesday'), "%s")), 1,
   'Tuesday is weekday');

root@system:/some/path# prove account_type.t
account_type....NOK 27
...
# in account_type.t at line 71.
# got: '0'
# expected: '1'