… | |
… | |
38 | sub init { |
38 | sub init { |
39 | my $self = shift; |
39 | my $self = shift; |
40 | $self->{dataName} = 'diagnostics'; |
40 | $self->{dataName} = 'diagnostics'; |
41 | $self->{name} = 'diagnostics'; |
41 | $self->{name} = 'diagnostics'; |
42 | $self->{Name} = 'Diagnostics'; |
42 | $self->{Name} = 'Diagnostics'; |
43 | $self->{namePattern} = '[-\w_.]+'; |
43 | $self->{namePattern} = qr/[-\w_.]+/; |
44 | } |
44 | } |
45 | |
45 | |
46 | sub update {} # no pattern or tokens needed |
46 | sub update {} # no pattern or tokens needed |
47 | sub addToken {} |
47 | sub addToken {} |
48 | sub removeToken {} |
48 | sub removeToken {} |