Current Directory:
/usr/share/perl5/URI/urn
Upload
Create File
File Name
Size
Actions
isbn.pm
2516 bytes
Edit
|
Delete
|
Rename
|
Download
oid.pm
259 bytes
Edit
|
Delete
|
Rename
|
Download
package URI::urn::oid; # RFC 2061 require URI::urn; @ISA=qw(URI::urn); use strict; sub oid { my $self = shift; my $old = $self->nss; if (@_) { $self->nss(join(".", @_)); } return split(/\./, $old) if wantarray; return $old; } 1;
Save Changes