return $new;
}
-sub canAddComment( $ ) {
+sub canDiscuss( $ ) {
return 1; #By default, comments can be added anywhere
}
return \@result;
}
+sub helpName( $ ) {
+ return undef;
+}
+
+sub addressDeps( $ ) {
+ return [];
+}
+
+sub top( $ ) {
+ my( $topAd ) = shift->get() =~ /^([^\/]+)/;
+ return PciIds::Address::new( $topAd );
+}
+
1;