恥ずかしい勘違いから生まれた、DHCP6の不要かつ部分的な実装
Revisión | 6ffe1bd63bbde57e9d3a292081f28cc5cc68bacc (tree) |
---|---|
Tiempo | 2021-08-12 20:02:11 |
Autor | dyknon <dyknon@user...> |
Commiter | dyknon |
numeric VERSION
@@ -8,7 +8,7 @@ use strict; | ||
8 | 8 | use warnings; |
9 | 9 | use Net::DHCP6::Option; |
10 | 10 | |
11 | -our $VERSION = "0.0.1"; | |
11 | +our $VERSION = "0.001"; | |
12 | 12 | our @ISA = qw/Net::DHCP6::Option/; |
13 | 13 | |
14 | 14 | sub new { |
@@ -5,7 +5,7 @@ use strict; | ||
5 | 5 | use warnings; |
6 | 6 | use Net::DHCP6::Option; |
7 | 7 | |
8 | -our $VERSION = "0.0.1"; | |
8 | +our $VERSION = "0.001"; | |
9 | 9 | our @ISA = qw/Net::DHCP6::Option/; |
10 | 10 | |
11 | 11 | sub new { |
@@ -5,7 +5,7 @@ use warnings; | ||
5 | 5 | use Net::DHCP6::AbstractOption::Vector; |
6 | 6 | use Net::DHCP6::Value::Ipv6Addr; |
7 | 7 | |
8 | -our $VERSION = "0.0.1"; | |
8 | +our $VERSION = "0.001"; | |
9 | 9 | our @ISA = qw/Net::DHCP6::AbstractOption::Vector/; |
10 | 10 | |
11 | 11 | use constant len_elem => 16; |
@@ -5,7 +5,7 @@ use strict; | ||
5 | 5 | use warnings; |
6 | 6 | use Net::DHCP6::Option; |
7 | 7 | |
8 | -our $VERSION = "0.0.1"; | |
8 | +our $VERSION = "0.001"; | |
9 | 9 | our @ISA = qw/Net::DHCP6::Option/; |
10 | 10 | |
11 | 11 | sub new { |
@@ -5,7 +5,7 @@ use strict; | ||
5 | 5 | use warnings; |
6 | 6 | use Net::DHCP6::AbstractOption::List; |
7 | 7 | |
8 | -our $VERSION = "0.0.1"; | |
8 | +our $VERSION = "0.001"; | |
9 | 9 | our @ISA = qw/Net::DHCP6::AbstractOption::List/; |
10 | 10 | |
11 | 11 | # must overridden |
@@ -19,7 +19,7 @@ use IO::Select; | ||
19 | 19 | |
20 | 20 | our @ISA = qw/Exporter/; |
21 | 21 | our @EXPORT_OK = qw/NEXT LAST/; |
22 | -our $VERSION = "0.0.1"; | |
22 | +our $VERSION = "0.001"; | |
23 | 23 | our $bufsize = 2 ** 16; |
24 | 24 | |
25 | 25 | sub get_default_local_address { |
@@ -18,7 +18,7 @@ use Net::DHCP6::Parameters qw( | ||
18 | 18 | use Net::DHCP6::Message; |
19 | 19 | use Net::DHCP6::Option qw/ElapsedTime OptionRequest ClientId/; |
20 | 20 | |
21 | -our $VERSION = "0.0.1"; | |
21 | +our $VERSION = "0.001"; | |
22 | 22 | our @ISA = qw/Net::DHCP6::Exchange/; |
23 | 23 | |
24 | 24 | use constant irt => 1; |
@@ -7,7 +7,7 @@ use warnings; | ||
7 | 7 | use Net::DHCP6::Option; |
8 | 8 | use Net::DHCP6::OptionList; |
9 | 9 | |
10 | -our $VERSION = "0.0.1"; | |
10 | +our $VERSION = "0.001"; | |
11 | 11 | our @ISA = qw/Net::DHCP6::OptionList/; |
12 | 12 | |
13 | 13 | # TODO: should be crypto-safe RNG? |
@@ -4,7 +4,7 @@ package Net::DHCP6::Option; | ||
4 | 4 | use strict; |
5 | 5 | use warnings; |
6 | 6 | |
7 | -our $VERSION = "0.0.1"; | |
7 | +our $VERSION = "0.001"; | |
8 | 8 | our %OptionPkgs; |
9 | 9 | |
10 | 10 | # should overridden |
@@ -6,7 +6,7 @@ use warnings; | ||
6 | 6 | use Net::DHCP6::AbstractOption::DUID; |
7 | 7 | use Net::DHCP6::Parameters qw/DHCP6_OPT_CLIENTID/; |
8 | 8 | |
9 | -our $VERSION = "0.0.1"; | |
9 | +our $VERSION = "0.001"; | |
10 | 10 | our @ISA = qw/Net::DHCP6::AbstractOption::DUID/; |
11 | 11 | |
12 | 12 | use constant code => DHCP6_OPT_CLIENTID; |
@@ -6,7 +6,7 @@ use warnings; | ||
6 | 6 | use Net::DHCP6::AbstractOption::Ipv6AddrList; |
7 | 7 | use Net::DHCP6::Parameters qw/DHCP6_OPT_DNS_SERVERS/; |
8 | 8 | |
9 | -our $VERSION = "0.0.1"; | |
9 | +our $VERSION = "0.001"; | |
10 | 10 | our @ISA = qw/Net::DHCP6::AbstractOption::Ipv6AddrList/; |
11 | 11 | |
12 | 12 | use constant code => DHCP6_OPT_DNS_SERVERS; |
@@ -6,7 +6,7 @@ use warnings; | ||
6 | 6 | use Net::DHCP6::AbstractOption::FixedLength; |
7 | 7 | use Net::DHCP6::Parameters qw/DHCP6_OPT_ELAPSED_TIME/; |
8 | 8 | |
9 | -our $VERSION = "0.0.1"; | |
9 | +our $VERSION = "0.001"; | |
10 | 10 | our @ISA = qw/Net::DHCP6::AbstractOption::FixedLength/; |
11 | 11 | |
12 | 12 | use constant code => DHCP6_OPT_ELAPSED_TIME; |
@@ -6,7 +6,7 @@ use warnings; | ||
6 | 6 | use Net::DHCP6::AbstractOption::Vector; |
7 | 7 | use Net::DHCP6::Parameters qw/DHCP6_OPT_ORO/; |
8 | 8 | |
9 | -our $VERSION = "0.0.1"; | |
9 | +our $VERSION = "0.001"; | |
10 | 10 | our @ISA = qw/Net::DHCP6::AbstractOption::Vector/; |
11 | 11 | |
12 | 12 | use constant code => DHCP6_OPT_ORO; |
@@ -6,7 +6,7 @@ use warnings; | ||
6 | 6 | use Net::DHCP6::AbstractOption::DUID; |
7 | 7 | use Net::DHCP6::Parameters qw/DHCP6_OPT_SERVERID/; |
8 | 8 | |
9 | -our $VERSION = "0.0.1"; | |
9 | +our $VERSION = "0.001"; | |
10 | 10 | our @ISA = qw/Net::DHCP6::AbstractOption::DUID/; |
11 | 11 | |
12 | 12 | use constant code => DHCP6_OPT_SERVERID; |
@@ -3,7 +3,7 @@ package Net::DHCP6::OptionList; | ||
3 | 3 | use strict; |
4 | 4 | use warnings; |
5 | 5 | |
6 | -our $VERSION = "0.0.1"; | |
6 | +our $VERSION = "0.001"; | |
7 | 7 | |
8 | 8 | sub option { |
9 | 9 | my $self = shift; |
@@ -4,7 +4,7 @@ package Net::DHCP6::Parameters; | ||
4 | 4 | use strict; |
5 | 5 | use warnings; |
6 | 6 | |
7 | -our $VERSION = "0.0.1"; | |
7 | +our $VERSION = "0.001"; | |
8 | 8 | |
9 | 9 | use Exporter; |
10 | 10 | our @ISA = ("Exporter"); |
@@ -3,7 +3,7 @@ package Net::DHCP6::Value::Ipv6Addr; | ||
3 | 3 | use strict; |
4 | 4 | use warnings; |
5 | 5 | |
6 | -our $VERSION = "0.0.1"; | |
6 | +our $VERSION = "0.001"; | |
7 | 7 | |
8 | 8 | sub new { |
9 | 9 | my $class = shift; |