first cut at named parameters

[p5sagit/Function-Parameters.git] / t / name_4.fail

diff --git a/t/name_4.fail b/t/name_4.fail
new file mode 100644 (file)
index 0000000..67e92bd
--- /dev/null
+++ b/t/name_4.fail
@@ -0,0 +1,22 @@
+#!perl
+use warnings;
+use strict;
+
+use Function::Parameters {
+       func => {
+               name => 'required',
+       },
+
+       f => {
+               name => 'prohibited',
+       },
+
+       method => {
+               name => 'required',
+               shift => '$this',
+       },
+};
+
+method bad2() {
+       my $what = $self;
+}