File Coverage

blib/lib/Chef/REST/Client/cookbook_version.pm
Criterion Covered Total %
statement 0 11 0.0
branch 0 4 0.0
condition n/a
subroutine 0 3 0.0
pod 1 3 33.3
total 1 21 4.7


line stmt bran cond sub pod time code
1             #--------------------------------------------------------------------#
2             # @class : Chef::Rest::Client::cookbook_version #
3             # @author : Bhavin Patel #
4             #--------------------------------------------------------------------#
5              
6             package Chef::REST::Client::cookbook_version;
7              
8             $Chef::REST::Client::cookbook_version::VERSION = 1.0;
9              
10             =pod
11              
12             =head1 NAME
13              
14             Chef::REST::Client::cookbook_version
15              
16             =head1 VERSION
17              
18             1.0
19              
20             =head1 SYNOPSIS
21              
22             my $obj = new Chef::REST::Client::cookbook_version
23             ( 'url ' => $url
24             , 'version' => $version );
25            
26             =head1 DESCRIPTION
27              
28             used internally by other classes like L
29              
30             =head1 METHODS
31              
32             =head2 Constructor
33              
34             returns new Chef::REST::Client::cookbook_version object
35              
36             =cut
37              
38             sub new
39             {
40 0     0 0   my $class = shift;
41 0           my $param = {@_};
42 0           my $self = {};
43            
44 0           bless $self, $class;
45            
46 0           $self->url ( $param->{'url' } );
47 0           $self->version( $param->{'version'} );
48            
49 0           return $self;
50             }
51              
52             =pod
53              
54             =head2 url( $url )
55              
56             set 'url' property value if speicfied else return previous value;
57              
58             =cut
59              
60 0 0   0 1   sub url { $_[0]->{'url' } = $_[1] if defined $_[1]; return $_[0]->{'url' }; }
  0            
61              
62             =pod
63              
64             =head2 versions( $versions )
65              
66             set 'versions' value if speicfied else return previous value;
67              
68             =cut
69              
70 0 0   0 0   sub version { $_[0]->{'version'} = $_[1] if defined $_[1]; return $_[0]->{'version'}; }
  0            
71              
72             1;
73              
74             =pod
75              
76             =head1 KNOWN BUGS
77              
78             =head1 SUPPORT
79              
80             open a github ticket or email comments to Bhavin Patel
81              
82             =head1 COPYRIGHT AND LICENSE
83              
84             This Software is free to use , licensed under : The Artisic License 2.0 (GPL Compatible)
85              
86             =cut