---

oid.pm

package URI::urn::oid; # RFC 2061 use strict; use warnings; our $VERSION = '5.09'; 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;

---

docroot: /home/induvedam/public_html

---

curdir: /usr/share/perl5/URI/urn

	.		35
	..		4096
X	isbn.pm		2532
X	oid.pm		283