1package URI::urn::oid; # RFC 2061 2 3require URI::urn; 4@ISA=qw(URI::urn); 5 6use strict; 7 8sub oid { 9 my $self = shift; 10 my $old = $self->nss; 11 if (@_) { 12 $self->nss(join(".", @_)); 13 } 14 return split(/\./, $old) if wantarray; 15 return $old; 16} 17 181; 19