2

在一组用于模拟国际象棋情况的类中，我想构建一个类来表示位置。但我只想创建（并导出）有效的 64 个位置，并在此之后将构造函数设为私有，以防止系统为同一位置创建多个对象。基本上是一个单件，但 1 = 64。一个 64 吨。有点儿。

可能的用法：

use Positions; # exports positions

my $pos = e4;

# something happens...
do_foo() if $pos == d5;
do_bar() if $pos->row == 8;

我的解决方案按我想要的方式工作，但感觉有点不雅和过度设计。

基础知识：

package Position;
use Moo;

has column  => (is => 'ro');
has row     => (is => 'ro');
has name    => (is => 'lazy');

sub _build_name {
    my $self = shift;
    return $self->column . $self->row;
}

sub to_string { shift->name }

# ...

没有对有效列或行的错误检查，isa因为我根本不希望类用户实例化位置对象。现在到出口：

# prepare 64 positions
my %position;
foreach my $col ('a' .. 'h') {
    foreach my $row (1 .. 8) {

        # build
        my $name    = "$col$row";
        my $pos     = Cherl::Position->new(column => $col, row => $row);

        # remember
        $position{$name} = $pos;
    }
}

# export
sub import {
    my $class   = shift;
    my $caller  = caller;

    # magic!
    no strict 'refs';
    for my $name (sort keys %position) {
        *{$caller . '::' . $name} = sub { $position{$name} };
    }
}

# make it private
sub BUILDARGS {
    my ($class, @args) = @_;
    die 'private' unless +(caller 1)[0] eq __PACKAGE__;
    return $class->SUPER::BUILDARGS(@args);
}

我能想到的替代方案

如果两个位置的名称等于正确比较位置，则将为columns 和rows 添加错误检查并重载运算符以返回 true。==在这种情况下，我有点害怕为同一位置构建大量对象，但也许这是早期的优化。

所以问题是是否有更好的方法来设计这个类（使用Moo）。蒂亚！:)

4

1 回答 1

2

我可能会有一个 Create() 方法（而不是 new X...），在 Create() 中有代码，所以它只会创建合法位置。如果您尝试在该位置再次调用 Create()，您甚至可以让它返回该位置的当前位置对象。

此外，如果您担心不小心直接创建位置对象，您甚至可以将实际位置类设为 Create()-ing 类的隐藏子类。

于 2012-11-09T20:00:00.990 回答