File Coverage

blib/lib/Pod/Markdown/Passthrough.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	30	30	100.0

package Pod::Markdown::Passthrough;
use 5.008001;
use strict;
use warnings;

use base 'Pod::Markdown';

our $VERSION = "0.01";

sub new {
    my $class = shift;

    bless {}, $class;
}

# Read the contents of a file and stash in object.
sub parse_from_file {
    my $self = shift;
    my $file = shift;

    $self->{_markdown} = do { local ( @ARGV, $/ ) = $file; <> };

}

# Return any stashed raw file content.
sub as_markdown {
    my $self = shift;

    return $self->{_markdown};

}

1;
__END__