WIP. Reaisecom

lib/SNMP/Info/Layer3/Raisecom.pm

@@ -16,10 +16,6 @@ our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
 
 $VERSION = '3.70-135';
 
-# This will be filled in with the device's index into the EntPhysicalEntry
-# table by the serial() function.
-our $index = undef;
-
 %MIBS = ( %SNMP::Info::Layer3::MIBS, );
 
 %GLOBALS = (
@@ -89,7 +85,7 @@ sub model {
     elsif ($id =~ /41752\.26\.502/) {
         return $obj->model_oid_41752 . ' HW:' . $obj->hvver;
     }
-    return $obj->id();
+    return $obj->SUPER::model();
 }
 
 sub serial {
@@ -108,6 +104,7 @@ sub hvver {
         $obj->hw_oid_41752 =~ /.*\sversion\s(.*)/;
         return $1;
     }
+    return $obj->SUPER::hvver()
 }
 1;
 __END__
@@ -155,15 +152,11 @@ These are methods that return scalar value from SNMP
 
 =item $obj->vendor()
 
-Returns 'adtran'
+Returns 'raisecom'
 
 =item $obj->os()
 
-Returns 'caos'
-
-=item $obj->layers()
-
-Ensures that layer two is reported, at least.
+Returns 'ros' or 'rcios'
 
 =item $obj->os_ver()