1 package System::Introspector::Report::Builder::HostInfo;
4 extends 'System::Introspector::Report::Builder';
6 has _hostinfo => (is => 'ro', default => sub { {} });
13 my ($self, $id, $data) = @_;
14 $self->_hostinfo->{$id}{hostname} = $data->{host}{hostname};
21 { key => 'info-field', label => 'Info' },
22 { key => 'info-value', label => 'Value' },
27 columns => [@columns],
28 title => "Host Information for $remote",
29 id => ['host-info-by-remote', $remote],
30 rowid => [qw( info-field )],
31 meta => { remote => $remote },
34 'info-field' => 'Hostname',
35 'info-value' => $self->_hostinfo->{$remote}{hostname},
39 } keys %{$self->_hostinfo};