File Coverage

blib/lib/M3/ServerView/ServerEntry.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::ServerEntry;
2              
3 4     4   23 use strict;
  4         9  
  4         139  
4 4     4   21 use warnings;
  4         7  
  4         109  
5              
6 4     4   105 use base qw(M3::ServerView::Entry);
  4         8  
  4         393  
7              
8             # Build accessors
9 4         28 use Object::Tiny qw(
10             no
11             type
12             jobs
13             threads
14             status
15 4     4   24 );
  4         7  
16              
17             sub details {
18 0     0 1   my ($self) = @_;
19 0 0         return unless $self->{_details};
20 0           my ($conn, $path, $query) = @{$self->{_details}};
  0            
21 0           return $conn->_load_view($path, $query);
22             }
23              
24             1;
25             __END__