use constant WEEKDAY => 1;
use constant WEEKEND => 0;
...
sub is_weekday {
  my ($self, $date) = @_;

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