golden hour
/usr/local/share/perl5/5.32/URI/urn
⬆️ Go Up
Upload
File/Folder
Size
Actions
isbn.pm
2.47 KB
Del
OK
oid.pm
283 B
Del
OK
Edit: oid.pm
package URI::urn::oid; # RFC 2061 use strict; use warnings; our $VERSION = '5.29'; 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