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