是否可以验证分配给 Ruby 中 Proc 的方法数量？

Question

我目前正在研究与会计相关的 DSL。我希望能够做的是：

accountant do
  credit @account_1, -@amount
  debit  @account_2,  @amount
end

目前，它执行以下方法：

class Accountant
  def accountant &block
    AccountantHelper.class_eval(&block)
  end
end

...依次执行 AccountantHelper 类上的块，分别调用“贷方”和“借方”方法：（

class AccountantHelper
  def self.credit account, amount
    account.credit amount
  end

  def self.debit account, amount
    account.debit amount
  end
end

请稍等任何关于使用 class_eval() 的火——这毕竟只是一个原型！）

目标是让块充当事务，确保如果整个块不能成功执行，那么任何一个都不能成功执行。然而除此之外，它还应该验证传递到块中的数据的完整性。在这种情况下，我需要验证块内是否同时存在“贷方”和“借方”方法（在复式记账会计中，对于每个贷方也必须至少有一个借方，反之亦然）。目前我可以调用：

accountant do
  credit @account_1, @amount
end

...并且代码将执行而不会出现任何错误。这将是一件坏事，因为没有相应的“借方”来保持账户平衡。

是否可以验证传递到块中的内容？或者我在这里走错了路？

Answer 1

我想您可以将您的贷方和借方操作设为“惰性”，以便在验证后由包装器方法执行它们。这是一个概念证明，与您的类似，但没有元编程部分，为了清楚起见，跳过了：

def transaction
  yield
  if @actions.map(&:last).inject(&:+) == 0
    @actions.each do |account, amount|
      @accounts[account] += amount
    end
    @actions = []
    puts 'transaction executed ok'
  else
    puts 'balance not zero, rolling back transaction'
    # rollback (effectively, do nothing)
  end
end

def credit account, amount
  @actions << [account, amount]
end

def debit account, amount
  @actions<< [account, -amount]
end

@actions = []
@accounts = {a: 0, b: 0, c: 0} # start with three blank accounts

transaction do
  credit :a, 5
  debit :b, 2
  debit :c, 3
end
#=>transaction executed ok

p @accounts
#=>{:a=>5, :b=>-2, :c=>-3}

transaction do
  credit :a, 5
  debit :b, 4
end
#=> balance not zero, rolling back transaction

p @accounts
#=> {:a=>5, :b=>-2, :c=>-3}