view release on metacpan or  search on metacpan

t/base.t  view on Meta::CPAN

like $out, qr{# Heading 1}, 'Check that the message is not HTML';


##############################################################################
# A simple File handle that just stores data in a scalar.
FH: {
    package My::FH;

    sub TIEHANDLE {
        my ($class, $buf) = @_;
        bless { buf => $buf } => $class;
    }

    sub PRINT {
        ${ shift->{buf} } .= join '', @_;
    }
}

##############################################################################
# The log message: a full Markdown example.