#401 add DLink layers always 2+3

lib/SNMP/Info/Layer3/DLink.pm

@@ -74,6 +74,16 @@ $VERSION = '3.80';
 
 %MUNGE = ( %SNMP::Info::Layer3::MUNGE, );
 
+sub layers {
+    my $dlink = shift;
+
+    my $layers = $dlink->SUPER::layers();
+    substr $layers, 5, 1, "1";
+    substr $layers, 6, 1, "1";
+
+    return $layers;
+}
+
 sub model {
     my $dlink=shift;
     my $id = $dlink->id();
@@ -233,6 +243,10 @@ These are methods that return scalar value from SNMP
 
 =over
 
+=item $dlink->layers()
+
+Makes sure to always report layer 2 and 3.
+
 =item $dlink->model()
 
 Returns the ID or else description.

xt/lib/Test/SNMP/Info/Layer3/DLink.pm

@@ -47,7 +47,7 @@ sub setup : Tests(setup) {
 
   # Start with a common cache that will serve most tests
   my $cache_data = {
-    '_layers' => 4,
+    '_layers' => 6,
     '_description' => 'DGS-3620-28SC Gigabit Ethernet Switch',
     '_i_name' => 1,
 
@@ -60,6 +60,16 @@ sub setup : Tests(setup) {
   $test->{info}->cache($cache_data);
 }
 
+sub layers : Tests(3) {
+  my $test = shift;
+
+  can_ok($test->{info}, 'layers');
+  is($test->{info}->layers(), '00000110', q(Original layers unmodified));
+
+  $test->{info}->clear_cache();
+  is($test->{info}->layers(), undef, q(No data returns undef layers));
+}
+
 sub interfaces : Tests(1) {
   my $test = shift;