File Coverage

blib/lib/Bootylicious/DocumentMetadataLoader.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	32	35	91.4

package Bootylicious::DocumentMetadataLoader;

use strict;
use warnings;

use base 'Mojo::Base';

__PACKAGE__->attr('path');

sub load {
    my $self = shift;

    my $path = $self->path;

    open my $fh, '<:encoding(UTF-8)', $path or return;

    my $metadata = {};
    while (my $line = <$fh>) {
        last unless $line;
        last unless $line =~ m/^(.*?): (.*)/;

        my $key   = lc $1;
        my $value = $2;

        $metadata->{$key} = $value;
    }

    return $metadata;
}

1;