git.maemo.org Git - dh-make-perl/blob - dev/i386/liburi-perl/liburi-perl-1.35.dfsg.1/URI/urn/oid.pm

   1 package URI::urn::oid;  # RFC 2061
   2
   3 require URI::urn;
   4 @ISA=qw(URI::urn);
   5
   6 use strict;
   7
   8 sub oid {
   9     my $self = shift;
  10     my $old = $self->nss;
  11     if (@_) {
  12         $self->nss(join(".", @_));
  13     }
  14     return split(/\./, $old) if wantarray;
  15     return $old;
  16 }
  17
  18 1;