Changes between Version 5 and Version 6 of WhyPadreNeedsMoose

Timestamp:

03/08/12 22:32:31 (15 months ago)

Author:

azawawi

Comment:

--

WhyPadreNeedsMoose

@@ -33 +33 @@
 event_key_up fired
 }}}
+
+Using Moo will also do the trick:
+
+{{{#!perl
+use v5.10;
+
+package Padre::Document;
+
+sub new {
+  my $class = shift;
+  $class = ref $class if ref $class;
+  my $self = bless {}, $class;
+  $self;
+}
+
+1;
+
+sub event_key_up { say "event_key_up fired"; }
+
+1;
+
+package NeedsKeyUpEvent;
+use Role::Tiny;
+requires 'event_key_up';
+before 'event_key_up' => sub { say q{before event_key_up}; };
+after 'event_key_up'  => sub { say q{after event_key_up}; };
+1;
+
+package main;
+my $p = Padre::Document->new;
+Role::Tiny->apply_roles_to_object($p, qw(NeedsKeyUpEvent));
+$p->event_key_up;
+say "-----";
+Padre::Document->new->event_key_up;
+}}}