sub DateTime::set_business_days { my $self = shift; %business_days = (); $business_days{$_} = 1 for @_; }