Use consistent return values and provide default initalizations

Add inital versions of Layer 2 test classes
This commit is contained in:
Eric A. Miller
2018-04-05 23:28:57 -04:00
parent ce0a350ef2
commit 0371ca35d6
18 changed files with 1469 additions and 10 deletions

View File

@@ -66,6 +66,7 @@ sub os_ver {
if ( $descr =~ /^\S+\s\S+\s\S+\s(\S+)/){
return $1;
}
return;
}
sub serial {
@@ -75,7 +76,7 @@ sub serial {
my $str = substr($1,8,10);
return $str;
}
return;
}
sub vendor {
return 'Kentrox';
@@ -87,6 +88,7 @@ sub model {
if ( $descr =~ /^(\S+\s\S+)/){
return $1;
}
return;
}
1;