projects
/
catagits/Gitalist.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Add built local::lib
[catagits/Gitalist.git]
/
local-lib5
/
lib
/
perl5
/
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;