More general titles

[pciids.git] / PciIds / Address / Base.pm

diff --git a/PciIds/Address/Base.pm b/PciIds/Address/Base.pm
index d390c9d3e17ede93a7de272e8ede64aedb02e8f0..8b40461dfe3e5921c893176f328bc69e161da249 100644 (file)
--- a/PciIds/Address/Base.pm
+++ b/PciIds/Address/Base.pm
@@ -25,7 +25,7 @@ sub tail( $ ) {
        return $new;
 }
 
-sub canAddComment( $ ) {
+sub canDiscuss( $ ) {
        return 1; #By default, comments can be added anywhere
 }
 
@@ -45,4 +45,17 @@ sub path( $ ) {
        return \@result;
 }
 
+sub helpName( $ ) {
+       return undef;
+}
+
+sub addressDeps( $ ) {
+       return [];
+}
+
+sub top( $ ) {
+       my( $topAd ) = shift->get() =~ /^([^\/]+)/;
+       return PciIds::Address::new( $topAd );
+}
+
 1;