File Coverage

blib/lib/Novel/Robot/Packer/raw.pm
Criterion Covered Total %
statement 21 22 95.4
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 2 50.0
total 28 31 90.3


line stmt bran cond sub pod time code
1             package Novel::Robot::Packer::raw;
2 1     1   7 use strict;
  1         1  
  1         38  
3 1     1   5 use warnings;
  1         2  
  1         24  
4             #use utf8;
5            
6 1     1   5 use base 'Novel::Robot::Packer';
  1         2  
  1         77  
7 1     1   6 use Data::MessagePack;
  1         2  
  1         7  
8 1     1   19 use File::Slurp;
  1         1  
  1         167  
9            
10             sub suffix {
11 0     0 0 0 'raw';
12             }
13            
14             sub main {
15 1     1 1 5 my ($self, $bk, %opt) = @_;
16            
17 1         10 my $mp = Data::MessagePack->new();
18 1         11 $mp = $mp->utf8(1);
19 1         64 my $pk = $mp->pack($bk);
20 1         12 write_file( $opt{output}, {binmode => ':raw'}, $pk ) ;
21            
22 1         366 return $opt{output};
23             }
24            
25            
26             1;