moo

    6

    1答えて

    私はダンサーのアプリモジュールに次のコードがあります。 package Deadlands; use Dancer ':syntax'; use Dice; our $VERSION = '0.1'; get '/' => sub { my ($dieQty, $dieType); $dieQty = param('dieQty'); $dieType =

    1

    1答えて

    次のコードのように、PerlクロージャをMooアクセサに変換しようとしています。残念ながら、コードはMooseで動作しますが、Mooでは例外がスローされます。 私は、Perlクロージャで定義された読み書きアクセッサを使ってムーコードを書くのを手伝ってください。(単純な値を読み込んで保存するデフォルトのアクセッサではなく、クロージャを呼び出すアクセッサの読み書きです。 #!/usr/bin/perl

    1

    1答えて

    私の質問は次のとおりです:perl Mooを使ってオブジェクトを作成するnew()メソッドを呼び出すときにサブルーチンを使って配列を作成します。次の例を参照してください。 package Customer; use DBI; use 5.010; use Data::Dumper; use Moo; use FindBin qw/$Bin/; use lib "$Bin/../../.

    3

    2答えて

    My Mooベースのクラスは、defaultとcoerceの両方のsubsを持つ怠惰な&の両方の遅延属性を持っています。私が属性を初期化しないと、defaultとcoerceの両方のsubsがnormal属性に対して呼び出されますが、遅延属性に対してはdefaultしか呼び出されないことがわかります。それは矛盾しているようです。ここではサンプルコードです: package Foo; use Mo

    1

    1答えて

    Perl Mooオブジェクトのフィールドによっては、空文字列をundefというフィールドに代入するときに置き換えたいものがあります。 これは、私が欲しいのは$obj->x("")フィールドをxにすることです。 これを行うMoo拡張機能の開発にお役立てください。 は、これを行うために可能な方法: sub make_field_undef { my ($class, $field_name)

    2

    1答えて

    私たちはPerl Mooを使用しています。私はいくつかの属性のために多分[T]でTを置換するルーチンを書きたい package C; use Moo; use Types::Standard qw(Str Int Num Maybe); has 'x' => (is=>'rw', isa=>Str); has 'y' => (is=>'rw', isa=>Int); has 'z' =

    6

    1答えて

    Moo::Roleを使用して、循環インポートが暗黙のうちに私のメソッドの修飾子beforeの実行を妨げていることがわかりました。 私が持っている Moo::Role MyRole.pm中: package MyRole; use Moo::Role; use MyB; requires 'the_method'; before the_method => sub { die 'This h

    5

    1答えて

    Sub::Quoteによって生成されたコードのキャプチャされた変数を弱体化したいと思います。 use 5.10.0; use Scalar::Util qw[ weaken ]; { my $s = 'foo'; my $x = sub { say $s }; weaken(my $y = $x); my $bar = sub { &$y };