Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
local
/
share
/
perl5
/
URI
/
urn
Upload
4 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
isbn.pm
2.47 KB
-r--r--r--
2021-10-25 20:58:49
Edit
Del
oid.pm
283 B
-r--r--r--
2021-10-25 20:58:49
Edit
Del
Editing: oid.pm
(283 B)
Path: /usr/local/share/perl5/URI/urn/oid.pm
Back
package URI::urn::oid; # RFC 2061 use strict; use warnings; our $VERSION = '5.10'; 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;