1 package PciIds::Address::Base;
13 return shift->{'value'};
17 my( $new ) = ( shift->get() );
18 $new =~ s/[^\/]+\/?$//;
19 return PciIds::Address::new( $new );
23 my( $new ) = ( shift->get() );
24 $new =~ s/.*\/(.)/$1/;
28 sub canAddComment( $ ) {
29 return 1; #By default, comments can be added anywhere
32 sub canAddItem( $ ) { return !shift->leaf(); }
34 sub defaultRestrict( $ ) { return "" };
36 sub defaultRestrictList( $ ) { return [] };
42 while( defined( $address = $address->parent() ) ) {
43 push @result, $address;