Imported Upstream version 20120701

[perltidy.git] / examples / filter_example.in

diff --git a/examples/filter_example.in b/examples/filter_example.in
new file mode 100644 (file)
index 0000000..72f2666
--- /dev/null
+++ b/examples/filter_example.in
@@ -0,0 +1,16 @@
+# input file for testing filter_example.pl
+use Method::Signatures::Simple;
+
+ method foo1 { $self->bar }
+
+       # with signature
+    method foo2($bar, %opts) { $self->bar(reverse $bar) if $opts{rev};
+    }
+
+    # attributes
+    method foo3 : lvalue { $self->{foo} 
+}
+
+ # change invocant name
+    method 
+foo4 ($class: $bar) { $class->bar($bar) }