File Coverage

blib/lib/BERT.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 34 34 100.0


line stmt bran cond sub pod time code
1             package BERT;
2 6     6   164667 use strict;
  6         16  
  6         251  
3 6     6   33 use warnings;
  6         14  
  6         178  
4              
5 6     6   155 use 5.008;
  6         24  
  6         269  
6              
7 6     6   35 use base 'Exporter';
  6         10  
  6         993  
8             our @EXPORT = qw(encode_bert decode_bert);
9              
10             our $VERSION = 0.06;
11              
12 6     6   3451 use BERT::Decoder;
  6         21  
  6         187  
13 6     6   3989 use BERT::Encoder;
  6         20  
  6         751  
14              
15             sub encode_bert {
16 35     35 1 11388 my $value = shift;
17 35         160 my $encoder = BERT::Encoder->new;
18 35         108 return $encoder->encode($value);
19             }
20              
21             sub decode_bert {
22 33     33 1 26160 my $bert = shift;
23 33         191 my $decoder = BERT::Decoder->new;
24 33         371 return $decoder->decode($bert);
25             }
26              
27             1;
28              
29             __END__