File Coverage

blib/lib/File/Serialize/Serializer/Markdown.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	1	3	33.3
total	24	30	80.0

package File::Serialize::Serializer::Markdown;
our $AUTHORITY = 'cpan:YANICK';
$File::Serialize::Serializer::Markdown::VERSION = '1.5.1';
#ABSTRACT: Markdown (with frontmatter) serializer for File::Serialize

use strict;
use warnings;

use Module::Runtime qw/ use_module /;

use File::Serialize qw/ deserialize_file serialize_file /;
use Moo;
with 'File::Serialize::Serializer';

sub required_modules { return qw//; }

sub extensions { qw/ md markdown / }

sub is_operative {
    return !!grep {
        use_module("File::Serialize::Serializer::YAML::$_")->is_operative
    } qw/ XS /;
}

sub serialize {
    my ( $self, $data, $options ) = @_;

    my $content = delete $data->{_content};

    my $yaml = '';

    return $content unless keys %$data;

    serialize_file \$yaml, $data, { format => 'yaml' };

    return join "---\n", $yaml, $content // '';
}

sub deserialize {
    my ( $self, $data, $options ) = @_;

    # remote the potential leading `---`
    $data =~ s/^---\n//;

    return { _content => $data } if $data !~ /^---\n?$/m;

    my ( $frontmatter, $content ) = split /^---\n?$/m, $data, 2;

    my $struct = deserialize_file( \$frontmatter, { format => 'yml' } );

    $struct->{_content} = $content if $content =~ /\S/;

    return $struct;
}

1;

__END__