File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	21	22	95.4

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

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 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__