File Coverage

blib/lib/M3/ServerView/RootEntry.pm
Criterion Covered Total %
statement 12 17 70.5
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 25 68.0


line stmt bran cond sub pod time code
1             package M3::ServerView::RootEntry;
2              
3 4     4   28 use strict;
  4         4  
  4         141  
4 4     4   21 use warnings;
  4         7  
  4         113  
5              
6 4     4   22 use base qw(M3::ServerView::Entry);
  4         16  
  4         2628  
7              
8             # Build accessors
9 4         27 use Object::Tiny qw(
10             no
11             type
12             pid
13             started
14             jobs
15             threads
16             cpu
17             heap
18             status
19 4     4   3770 );
  4         1743  
20              
21             sub details {
22 0     0 1   my ($self) = @_;
23 0 0         return unless $self->{_details};
24 0           my ($conn, $path, $query) = @{$self->{_details}};
  0            
25 0           return $conn->_load_view($path, $query);
26             }
27              
28             1;
29             __END__