From 8d7d02f42c3947f756c18cb4d37d9d97fbd0d27d Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck.cuny@gmail.com>
Date: Wed, 10 Aug 2016 14:33:04 -0700
Subject: convert back to md

---
 ...-30-private-and-protected-methods-with-moose.md | 40 ++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 posts/2009-06-30-private-and-protected-methods-with-moose.md

(limited to 'posts/2009-06-30-private-and-protected-methods-with-moose.md')

diff --git a/posts/2009-06-30-private-and-protected-methods-with-moose.md b/posts/2009-06-30-private-and-protected-methods-with-moose.md
new file mode 100644
index 0000000..0694abf
--- /dev/null
+++ b/posts/2009-06-30-private-and-protected-methods-with-moose.md
@@ -0,0 +1,40 @@
+Yesterday, one of our interns asked me a question about private method in Moose. I told him that for Moose as for Perl, there is no such things as private method. By convention, methods prefixed with '\_' are considered private.
+
+But I was curious to see if it would be something complicated to implement in Moose. First, I've started to look at how the 'augment' keyword is done. I've then hacked Moose directly to add the private keyword. After asking advice to nothingmuch, he recommended me that I implement this in a MooseX::\* module instead. The result is here.
+
+From the synopsis, MooseX::MethodPrivate do:
+
+``` perl
+package Foo;
+use MooseX::MethodPrivate;
+
+private 'foo' => sub {
+};
+
+protected 'bar' => sub {
+};
+
+
+my $foo = Foo->new;
+$foo->foo;    # die, can't call foo because it's a private method
+$foo->bar;    # die, can't call bar because it's a protected method
+
+package Bar;
+use MooseX::MethodPrivate;
+extends qw/Foo/;
+
+sub baz {
+    my $self = shift;
+    $self->foo;    #die, can't call foo because it's a private method
+    $self->bar;    # ok, can call this method because we extends Foo and
+    # it's a protected method
+}
+```
+
+I was surprised to see how easy it's to extend Moose syntax. All I've done was this:
+
+``` perl
+Moose::Exporter->setup_import_methods(with_caller => [qw( private protected )]);
+```
+
+and write the `private` and `protected` sub. I'm sure there is some stuff I can do to improve this, but for a first test, I'm happy with the result and still amazed how easy it was to add this two keywords.
-- 
cgit v1.2.3