問題タブ [moo]

次のように、文字列から DateTime への強制が定義されたカスタム DateTime 型があります。

次のように、その DateTime 型を Dict で使用したいと思います。

そして、次のように呼び出します。

coerce => 1の宣言に追加しようとしましたwhatsisが、うまくいきませんでした。

Dict から継承し、メンバー型で定義された型強制を実行するカスタム型を作成するにはどうすればよいですか?

Perl の単体テストの世界から始めています。ここに私の質問があります: 私は Perl でクラスを持っています (私は Moo BTW を使用しています)。このクラスには 3 つの属性があります (以下にコードを記述します)。これらの属性の 1 つが配列で、コンストラクターで自動的に生成されます。配列を生成するには、DB にアクセスして 1 つのクエリを実行する必要があります。

ここで、単体テストを実行して、前のクラスの動作を確認したいと思います。今まで、私は Test::MockModule を次のように使用しています:

get_db_handler メソッドをモックして、test-customer.db ハンドラーを取得し、このローカル DB に対してクエリを実行したいと考えています。これまでのところ、次のエラーが発生しています。

スクリプトは正常に実行されています。つまり、コードに問題はありません。問題はテストにあります。これを見ていただけますか？私はそれを大いに感謝します。前もって感謝します。

次のコードのように、Perl クロージャーを Moo アクセサーに変えようとしています。残念ながら、このコードは Moose では機能しますが、Moo では例外がスローされます。

Perl クロージャーによって定義された読み取りおよび書き込みアクセサーを使用して Moo コードを作成するのを手伝ってください (単純な値を読み取って保存するデフォルトのアクセサーではなく、私のクロージャーを呼び出す必要がある読み取りおよび書き込みアクセサー)。

Perl Moo を使用しています。

一連の属性が定義されているとします。

いくつかの属性の T を Maybe[T] に置き換えるルーチンを書きたいと思います。例:の型と型をmake_optional(qw(x y))作成する必要があります。x Maybe[Str]y Maybe[Int]

Mooでそれを行う方法は？

以下は、私の実際のコードの単純化された例です。

Ypackageで定義された関数から package に属性を追加しようとしましたX。これは動作しません：

別のパッケージで定義されたメソッドからパッケージに属性を追加する方法を教えてください。

Mooseに切り替える必要がありますか？