File Coverage

lib/Net/ISC/DHCPd/OMAPI/Lease.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Net::ISC::DHCPd::OMAPI::Lease;
2              
3             =head1 NAME
4              
5             Net::ISC::DHCPd::OMAPI::Lease - OMAPI lease class
6              
7             =head1 DESCRIPTION
8              
9             This class does the roles L<Net::ISC::DHCPd::OMAPI::Actions>
10             and L<Net::ISC::DHCPd::Role::Lease>. See also
11             L<Net::ISC::DHCPd::OMAPI::Meta::Attribute>.
12              
13             =head1 SYNOPSIS
14              
15             use Net::ISC::DHCPd::OMAPI;
16              
17             $omapi = Net::ISC::DHCPd::OMAPI->new(...);
18             $omapi->connect
19             $lease = $omapi->new_object("lease", { $attr => $value });
20             $lease->$attr($value); # same as in constructor
21             $lease->read; # retrieve server information
22             $lease->write; # write to server
23              
24             =cut
25              
26 1     1   7 use Net::ISC::DHCPd::OMAPI::Sugar;
  1         3  
  1         13  
27 1     1   1378 use Moose;
  1         3  
  1         7  
28              
29             with qw/
30             Net::ISC::DHCPd::Role::Lease
31             Net::ISC::DHCPd::OMAPI::Actions
32             /;
33              
34             =head1 COPYRIGHT & LICENSE
35              
36             =head1 AUTHOR
37              
38             See L<Net::ISC::DHCPd>.
39              
40             =cut
41             __PACKAGE__->meta->make_immutable;
42             1;