File Coverage

blib/lib/URI/urn/oid.pm
Criterion Covered Total %
statement 15 15 100.0
branch 3 4 75.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package URI::urn::oid; # RFC 2061
2              
3 1     1   5 use strict;
  1         2  
  1         29  
4 1     1   4 use warnings;
  1         2  
  1         96  
5              
6             our $VERSION = '5.34';
7              
8 1     1   6 use parent 'URI::urn';
  1         3  
  1         10  
9              
10             sub oid {
11 3     3 0 439 my $self = shift;
12 3         11 my $old = $self->nss;
13 3 100       6 if (@_) {
14 1         7 $self->nss(join(".", @_));
15             }
16 3 50       6 return split(/\./, $old) if wantarray;
17 3         9 return $old;
18             }
19              
20             1;