21 lines
283 B
Perl
21 lines
283 B
Perl
package URI::urn::oid; # RFC 2061
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
our $VERSION = '5.06';
|
|
|
|
use parent 'URI::urn';
|
|
|
|
sub oid {
|
|
my $self = shift;
|
|
my $old = $self->nss;
|
|
if (@_) {
|
|
$self->nss(join(".", @_));
|
|
}
|
|
return split(/\./, $old) if wantarray;
|
|
return $old;
|
|
}
|
|
|
|
1;
|