0

私の人生では、なぜこれがドキュメントにあるように機能しないのか理解できません。私は問題をグーグルで検索したり、ソースを調べたりしました。これはバグですか、それとも私が見ることができない何か間違ったことをしていますか。

コードは次のとおりです: #!/usr/bin/env perl

use strict;
use warnings;

package Model;

use Moo::Role;

has ObjectID => (
    is => 'rw'
);

package Object;

use Moo; 
use namespace::clean;

has model => (
    is => 'rw',
    handles => 'Model'
);

package main;

my $xo = Object->new;
$xo->ObjectID(12345);

exit;

実行しようとする

perl -MCarp::Always t/moohandles.t

そしてこれを入手

Attempted to access 'model' but it is not set at (eval 26) line 20.
    Object::_assert_model('Object=HASH(0x1dfd118)') called at (eval 25) line 17
    Object::ObjectID('Object=HASH(0x1dfd118)', 12345) called at t/moohandles.t line 27
4

1 に答える 1