File Coverage

blib/lib/Orze/Sources/Markdown.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	32	53.1

package Orze::Sources::Markdown;

use strict;
use warnings;

use base "Orze::Sources";

use Text::Markdown 'markdown';

=head1 NAME

Orze::Sources::Markdown - Load a Markdown file and render it as a html
fragment using L.

=head1 DESCRIPTION

Load the file given in the C attribute and render it.

=head1 METHOD

=head2 evaluate

=cut

sub evaluate {
    my ($self) = @_;

    my $page = $self->{page};
    my $var  = $self->{var};
    my $file = $self->file();

    if (-r $file) {
        open FILE, $file;
        my @lines = ;
        close FILE;

        my $src = join("", @lines);
        my $html = markdown($src);
        return $html;
    }
    else {
        $self->warning("unable to read file " . $file);
    }
}

1;