view release on metacpan or  search on metacpan

CONTRIBUTING  view on Meta::CPAN

        If there's anything unclear in the documentation, please submit this
        as a bug report or patch as above.

        Non-toy example scripts that I can bundle would also be appreciated.

    *   Translation

        Translations of documentation would be welcome.

        For translations of error messages and other strings embedded in the
        code, check with me first. Sometimes the English strings may not in
        a stable state, so it would be a waste of time translating them.

  Coding Style
    I tend to write using something approximating the Allman style, using
    tabs for indentation and Unix-style line breaks.

    *   <http://en.wikipedia.org/wiki/Indent_style#Allman_style>

    *   <http://www.derkarl.org/why_to_tabs.html>

t/03subname.t  view on Meta::CPAN

# Catch exception
my $e = do {
	local $@;
#line 45 "03subname.t"
	eval { Foo(); 1 } ? undef : $@;
};

like(
	$e,
	qr{\ADIED at 03subname.t line 4[456]}, # allow a small margin of error
	'file name and line number reported correctly in exceptions',
);