File Coverage

blib/lib/Bootylicious/DocumentContentLoader.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	31	34	91.1

package Bootylicious::DocumentContentLoader;

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 {};
    while (my $line = <$fh>) {
        last if $line eq '';
        last if $line !~ m/^(.*?): /;
    }

    my $content = '';
    while (my $line = <$fh>) {
        $content .= $line;
    }

    return {content => $content};
}

1;