File Coverage

blib/lib/Novel/Robot/Parser/raw.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	30	31	96.7

# ABSTRACT: raw
=pod

=encoding utf8

=head1 FUNCTION

=head2 parse_novel

解析raw 文件

  my $raw_content_ref = $self->parse_novel( '/someotherdir/somefile.raw' );

=cut
package Novel::Robot::Parser::raw;
use strict;
use warnings;
use base 'Novel::Robot::Parser';

use File::Slurp qw/read_file/;
use Data::MessagePack;
#use utf8;

sub parse_novel {
    my ($self, $raw_file) = @_;
    $raw_file = $raw_file->[0] if(ref($raw_file) eq 'ARRAY');
    my $s = read_file( $raw_file, binmode => ':raw' ) ;
    my $mp = Data::MessagePack->new();
    $mp->utf8(0);
    my $up = $mp->unpack($s);
    return $up;
}

1;