3 use Devel::Declare::MethodInstaller::Simple;
4 BEGIN { Devel::Declare::MethodInstaller::Simple->install_methodhandler(name => 'method', into => 'main') };
6 use Test::More 'no_plan';
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/,'Missing end parens');
13 eval 'method main ) { return "foo" }';
14 like($@,qr/Illegal\sdeclaration\sof\ssubroutine/,'Missing start parens');
18 local $TODO='method does not disallow invalid sub names';
19 eval 'method 1main() { return "foo" }','Sub starting with a number';
20 like($@,qr/Illegal\sdeclaration\sof\sanonymous\ssubroutine/);
21 eval 'method møø() { return "foo" }','Sub with unicode';
22 like($@,qr/Illegal\sdeclaration\sof\ssubroutine\smain\:\:m/);