| blib/lib/UUID/Generator/PurePerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 1 | 19 | unless (defined $self->{'rng'}) |
| 37 | 3 | 11 | unless (defined $self->{'node_getter'}) |
| 55 | 5 | 9 | if (not defined $self->{'last_ts'} or $ts <= $self->{'last_ts'}) |
| 60 | 3 | 11 | if (not defined $self->{'last_node'}) { } |
| 61 | 3 | 0 | if (defined $node_id) |
| 66 | 0 | 11 | if (not defined $node_id or $node_id ne $self->{'last_node'}) |
| 72 | 3 | 11 | unless (defined $self->{'clk_seq'}) |
| 77 | 2 | 9 | if ($inc_seq) |