对象构造/方法重载

Question

我正在寻找有关简洁、可维护和可测试的方法的建议来处理如下情况，其中不同的参数组合必须由对象的方法以不同的方式解释：

# Every 2 days.
$event = Event::Recurrence->new( recurs => 'daily', interval => 2 );

# 1st and 2nd day of every 3rd week.
$event = Event::Recurrence->new( recurs => 'weekly',  days => [1, 2], interval => 3 );

# 1st and 2nd day of every 4th month.
$event = Event::Recurrence->new( recurs => 'monthly', days => [1, 2], interval => 4 );

# 1st and 2nd day of the 2nd and 3rd week of every month.
$event = Event::Recurrence->new( recurs => 'monthly', days => [1, 2], weeks => [2, 3], interval => 1 );

# 1st and 2nd day of the 2nd and 3rd week of every year.
$event = Event::Recurrence->new( recurs => 'yearly',  days => [1, 2], weeks => [2, 3], interval => 1 );

# 1st and 2nd day of the 2nd and 3rd week of the 3rd and 4th months of every 5th year.
$event = Event::Recurrence->new( recurs => 'yearly',  days => [1, 2], weeks => [2, 3], months => [3, 4], interval => 5 );

# Do something with the event object.
$set = $event->get_set();

get_set() 将发挥不同的作用取决于施工参数。

我不是在寻找实现日期处理的方法 - 我正在使用重复事件来说明问题的类型。相反，我正在寻找更多关于处理将不同可能的参数组合分派到适当方法的好方法的通用信息。我正在使用 Moose，所以欢迎使用 Moose/OO 模式。

上述示例可以大致分为不同类型的事件：每日、每周、每月和每年。每个都会以不同的方式处理其余参数，但最终结果将是相同类型的对象 - 一组可以执行某些操作的重复事件（获取开始和结束日期、确定交集等）。

因此，get_set() 可以实现一个调度表来处理所有可能的参数组合，为每个参数调用一个单独的方法 - 但这感觉很混乱。

我可以创建一个 CodeRef 属性以及不同重复类型的单独类（Event::Recurrence::Daily、Event::Recurrence::Weekly 等），并分配适当的班级构造时的属性，类似于 这个问题 - 尽管我不确定如何实现它。

Answer 1

您可能应该为每种重复事件建立单独的子类，例如 DailyRecurringEvent 类、WeeklyRecurringEvent 类、MonthlyRecurringEvent 类等。

（注意：每日和每周重复事件可以实现为“每 n 天重复事件”的实例，即每日事件 n = 1，每周事件 n = 7。）

我不会在事件对象上调用 ->get_set，而是将对象本身作为“事件集”。现在的问题是：您希望在集合上支持哪些操作以及您可能需要哪些其他支持类。

示例：假设您想要支持从某一天之后的事件集中获取下一个发生的事件的操作。将此操作称为“next_event_after”。为上述每个类（即每天、每周、每月、每年）实施此操作非常简单。

现在您说您希望能够获取事件集的交集。一个名为“EventSetIntersection”的新类怎么样，它表示事件集集合的交集。交集的“next_event_after”操作可能会像这样实现：

package EventSetIntersection;

use Moose;
has event_sets => (
  is => 'rw',
  isa => 'Array[EventSets]',
);
sub next_event_after {
  my ($self, $date) = @_;
  return min { $_->next_event_after($date) } @{ $self->event_sets };
}

回想一下，您的原始类是 EventSet，因此您可以直接创建交集：

my $weekely_event = WeeklyEvent->new(...);
my $yearly_event = YearlyEvent->new(...);
my $intersection = EventSetIntersection->new( event_sets => [ $weekly, $yearly ]);