File Coverage

lib/Data/Identifier/Interface/Simple.pm
Criterion Covered Total %
statement 14 20 70.0
branch n/a
condition n/a
subroutine 5 8 62.5
pod 3 3 100.0
total 22 31 70.9


line stmt bran cond sub pod time code
1             # Copyright (c) 2023-2024 Philipp Schafft
2              
3             # licensed under Artistic License 2.0 (see LICENSE file)
4              
5             # ABSTRACT: format independent identifier object
6              
7              
8             package Data::Identifier::Interface::Simple;
9              
10 1     1   2496 use v5.14;
  1         3  
11 1     1   4 use strict;
  1         2  
  1         27  
12 1     1   3 use warnings;
  1         2  
  1         48  
13              
14 1     1   5 use Carp;
  1         0  
  1         58  
15              
16 1     1   4 use Data::Identifier;
  1         1  
  1         13  
17              
18             our $VERSION = v0.28;
19              
20              
21             sub as {
22 0     0 1   my ($self, @args) = @_;
23 0           return $self->Data::Identifier::as(@args);
24             }
25              
26              
27             sub displayname {
28 0     0 1   my ($self, @args) = @_;
29 0           return $self->as('Data::Identifier')->displayname(@args);
30             }
31              
32              
33             sub ise {
34 0     0 1   my ($self, @args) = @_;
35 0           return $self->as('Data::Identifier')->ise(@args);
36             }
37              
38             1;
39              
40             __END__