/
usr
/
local
/
share
/
perl5
/
URI
/
urn
/
/usr/local/share/perl5/URI/urn
mkdir
upload
Name
Size
Mode
Actions
isbn.pm
2517
0444
edit
dl
rm
oid.pm
309
0444
edit
dl
rm
Edit:
/usr/local/share/perl5/URI/urn/oid.pm
(309B)
package URI::urn::oid; # RFC 2061 use strict; use warnings; our $VERSION = '1.71'; $VERSION = eval $VERSION; 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;
Save
cmd:
run