強引ですが。 package Date::Japanese::BusinessDay; use strict; use warnings; use vars qw($VERSION); $VERSION = '0.01'; use base qw(Date::Japanese::Holiday); use Class::Data::Inheritable; package Date::Simple; { no strict 'refs'; *{__PACKAGE…