Commit | Line | Data |
70570efc |
1 | use Devel::Declare; |
2 | |
3 | use Devel::Declare::MethodInstaller::Simple; |
4 | BEGIN { Devel::Declare::MethodInstaller::Simple->install_methodhandler(name => 'method', into => 'main') }; |
5 | |
6 | use Test::More 'no_plan'; |
7 | |
8 | TODO: { |
9 | local $TODO='Method does not throw proper errors for bad parens yet'; |
10 | eval 'method main ( { return "foo" }'; |
11 | like($@,qr/Prototype\snot\sterminated/); |
12 | |
13 | eval 'method main ) { return "foo" }'; |
14 | like($@,qr/Illegal\sdeclaration\sof\ssubroutine/); |
15 | }; |