File Coverage

blib/lib/Net/Marathon/Remote.pm
Criterion Covered Total %
statement 9 17 52.9
branch 1 4 25.0
condition n/a
subroutine 3 6 50.0
pod 0 3 0.0
total 13 30 43.3


line stmt bran cond sub pod time code
1             package Net::Marathon::Remote;
2              
3 4     4   1532 use strict;
  4         6  
  4         138  
4 4     4   13 use warnings;
  4         6  
  4         641  
5              
6             sub _bail {
7 0     0   0 die "cannot manipulate unproperly initialised Net::Marathon::Remote object (App or Group). Make sure to pass in an instance of Net::Marathon when calling Net::Marathon::App/Group->new(\$conf, \$parent)";
8             }
9              
10             sub id {
11 10     10 0 8 my ($self, $val) = @_;
12 10 50       17 if ( $val ) {
13 0         0 $self->{data}->{id} = $val;
14             }
15 10         32 return $self->{data}->{id};
16             }
17              
18             sub version {
19 0     0 0   my $self = shift;
20 0           return $self->{data}->{version};
21             }
22              
23             sub dependencies {
24 0     0 0   my ($self, $val) = @_;
25 0 0         if ( $val ) {
26 0           $self->{data}->{dependencies} = $val;
27             }
28 0           return $self->{data}->{dependencies};
29             }
30              
31              
32             1;