package Data::QuickMemoPlus::Reader;
use 5.010;
use strict;
use warnings;
use Carp;
use JSON;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
our $VERSION = "0.12";
use Exporter qw(import);
our @E
= $2;
}
my $json_str = extract_json_from_lqm( $lqm_file );
return '' if not $json_str;
my ($extracted_text, $note_category) = extract_text_from_json($json_str);
my $heade
return $header . $extracted_text;
}
#####################################
#
sub extract_json_from_lqm {
my $lqm_file = shift;
my $lqm_zip = Archive::Zip->new();
unless ( $lqm_zip