]> mj.ucw.cz Git - pciids.git/blob - PciIds/Address/Base.pm
Remove useless directories
[pciids.git] / PciIds / Address / Base.pm
1 package PciIds::Address::Base;
2 use strict;
3 use warnings;
4 use PciIds::Address;
5
6 sub new( $ ) {
7         return bless {
8                 'value' => shift
9         }
10 }
11
12 sub get( $ ) {
13         return shift->{'value'};
14 }
15
16 sub parent( $ ) {
17         my( $new ) = ( shift->get() );
18         $new =~ s/[^\/]+\/?$//;
19         return PciIds::Address::new( $new );
20 }
21
22 sub tail( $ ) {
23         my( $new ) = ( shift->get() );
24         $new =~ s/.*\/(.)/$1/;
25         return $new;
26 }
27
28 sub canAddComment( $ ) {
29         return 1; #By default, comments can be added anywhere
30 }
31
32 sub canAddItem( $ ) { return !shift->leaf(); }
33
34 sub defaultRestrict( $ ) { return "" };
35
36 sub defaultRestrictList( $ ) { return [] };
37
38 1;