view release on metacpan or  search on metacpan

lib/Pod/Markdown/Passthrough.pm  view on Meta::CPAN

    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};

}

t/01_passthrough.t  view on Meta::CPAN

ok($parser->isa('Pod::Markdown::Passthrough'), "Constructor works and object isa 'Pod::Markdown::Passthrough'");
ok($parser->isa('Pod::Markdown'), "Object also isa 'Pod::Markdown'");

my $testfile = File::Spec->catfile(
      ( File::Spec->splitpath(__FILE__) )[1]
    ? ( File::Spec->splitpath(__FILE__) )[1]
    : (),
    'testfile.md'
);
my $expected = do { local ( @ARGV, $/ ) = $testfile; <> };

$parser->parse_from_file($testfile);
my $parsed = $parser->as_markdown();

is( $parsed, $expected, 'parse_from_file() then as_markdown() return the raw markdown');

done_testing;