package M3::ServerView::RootEntry; use strict; use warnings; use base qw(M3::ServerView::Entry); # Build accessors use Object::Tiny qw( no type pid started jobs threads cpu heap status ); sub details { my ($self) = @_; return unless $self->{_details}; my ($conn, $path, $query) = @{$self->{_details}}; return $conn->_load_view($path, $query); } 1; __END__ =head1 NAME M3::ServerView::RootEntry - Records returned by 'home' view. =head1 INTERFACE =head2 ATTRIBUTES The following attributes are available as accessors and are also searchable. Type of value within parenthesis. =over 4 =item no (I) =item type (I) =item pid (I) =item started (I) =item jobs (I) =item threads (I) =item cpu (I) =item heap (I) =item status (I) =back =head2 INSTANCE METHODS =over 4 =item details ( ) Retrieves the details for the entry and returns a view corresponding to the kind of entry. This may for example be C-instance if the type is "Server:*". =back =cut