PERL |散列中的祝福对象|玫瑰：DB：对象

Question

我试图弄清楚为什么我不能元素的内部访问一个祝福参考：

这是我的模块：

package Test::Node 

__PACKAGE__->meta->setup(
    table => 'node', 

    columns => [ 
     id        => { type => 'serial', not_null => 1 }, 
     name       => { type => 'varchar', length => 128, not_null => 1 }, 
    ], 

    primary_key_columns => [ 'id' ], 

    relationships => 
    [ 
     alias => 
     { 
     type  => 'one to many', 
     class  => 'Test::Alia', 
     column_map => { id => 'asset_id' }, 
     }, 
], 

这是子，我打电话来测试：

sub SearchNode { 
    my $self = shift; 
    my ($opts) = shift; 
    my %query = (name => { like => "$opts->{name}%"}); 
    my %object = (with_objects => ['alias']); 
    $object{query} = [%query] if $opts->{name}; 

    my $records = Test::Node::Manager->get_node(%object); 
    my $i = 0; 
    my $record = {}; 
    $record->{page} = 1; 
    $record->{total} = 1; 
    foreach (@$records) { 
    my %items =(
     id => $_->id, 
     name => $_->name, 
     alias => $_->alias->alias 
    ); 
    $record->{rows}[$i] = \%items; 
    $i++; 
    } 
    $record->{records} = $i; 
    return $record; 
} 

如果我使用$ _->别名我碰到下面的返回：

$ ./search.pl 
$VAR1 = { 
      'page' => 1, 
      'records' => 1, 
      'rows' => [ 
         { 
         'name' => 'test.localhost.net', 
         'id' => '1234', 
         'alias' => bless({ 
              'node_id' => '1234', 
              'id' => '5678', 
              'alias' => 'server1.localhost.net' 
              }, 'Test::Alia') 
         } 
        ], 
      'total' => 1 
     }; 

如果我使用$ _-> ALIAS->别名，我收到一个错误：

./search.pl 
Can't call method "alias" on unblessed reference at /usr/local/lib/perl/Test/Node.pm line 41. 

我升技混淆，因为泥头输出显示别名的值被祝福这似乎违背了错误信息。

Answer 1

Dumper输出显示$_->alias返回一个散列引用，而不是一个对象。结构内部访问别名对象，你需要的东西，如：

$_->{rows}[0]{alias}; 

访问该对象的别名法：

$_->{rows}[0]{alias)->alias;