Commit: ca2acefbd41244bc0bab4bb1ea4322f5f4cc355e - libnet-dhcp6-perl (git)

恥ずかしい勘違いから生まれた、DHCP6の不要かつ部分的な実装

Commit MetaInfo

• Revision: ca2acefbd41244bc0bab4bb1ea4322f5f4cc355e (tree)
• Time: 2021-08-12 19:56:59
• Author: dyknon <dyknon@user...>
• Commiter: dyknon

Log Message

new abstruct option: Ipv6AddrList

Change Summary

• add: Net/DHCP6/AbstractOption/Ipv6AddrList.pm
• modified: Net/DHCP6/Option/DnsServer.pm

Incremental Difference

--- /dev/null
+++ b/Net/DHCP6/AbstractOption/Ipv6AddrList.pm
@@ -0,0 +1,34 @@
+package Net::DHCP6::AbstractOption::Ipv6AddrList;
+
+use strict;
+use warnings;
+use Net::DHCP6::AbstractOption::Vector;
+use Net::DHCP6::Value::Ipv6Addr;
+
+our $VERSION = "0.0.1";
+our @ISA = qw/Net::DHCP6::AbstractOption::Vector/;
+
+use constant len_elem => 16;
+
+sub serialize_elem {
+    my $class_or_self = shift;
+    shift->raw;
+}
+
+sub parse_elem {
+    my $class_or_self = shift;
+    Net::DHCP6::Value::Ipv6Addr->from_bytes(shift);
+}
+
+sub coerce {
+    my $class_or_self = shift;
+    Net::DHCP6::Value::Ipv6Addr->new(shift);
+}
+
+sub stringify_elem {
+    my $class_or_self = shift;
+    my $elem = shift;
+    "$elem";
+}
+
+1;

--- a/Net/DHCP6/Option/DnsServer.pm
+++ b/Net/DHCP6/Option/DnsServer.pm
@@ -3,37 +3,14 @@ package Net::DHCP6::Option::DnsServer;
 
 use strict;
 use warnings;
-use Net::DHCP6::AbstractOption::Vector;
+use Net::DHCP6::AbstractOption::Ipv6AddrList;
 use Net::DHCP6::Parameters qw/DHCP6_OPT_DNS_SERVERS/;
-use Net::DHCP6::Value::Ipv6Addr;
 
 our $VERSION = "0.0.1";
-our @ISA = qw/Net::DHCP6::AbstractOption::Vector/;
+our @ISA = qw/Net::DHCP6::AbstractOption::Ipv6AddrList/;
 
 use constant code   => DHCP6_OPT_DNS_SERVERS;
 use constant name   => "DnsServer";
-use constant len_elem => 16;
-
-sub serialize_elem {
-    my $class_or_self = shift;
-    shift->raw;
-}
-
-sub parse_elem {
-    my $class_or_self = shift;
-    Net::DHCP6::Value::Ipv6Addr->from_bytes(shift);
-}
-
-sub coerce {
-    my $class_or_self = shift;
-    Net::DHCP6::Value::Ipv6Addr->new(shift);
-}
-
-sub stringify_elem {
-    my $class_or_self = shift;
-    my $elem = shift;
-    "$elem";
-}
 
 __PACKAGE__->register_option;
 1;