Changes between Version 3 and Version 4 of WhyPadreNeedsMoose

Timestamp:

03/08/12 14:50:31 (15 months ago)

Author:

azawawi

Comment:

--

WhyPadreNeedsMoose

@@ -1 @@
-{{{
-#!perl
-#!/usr/bin/perl
-
+{{{#!perl
 use v5.10;
 
 package Padre::Document;
 use Moose;
-
-sub event_key_up {
-    say "event_key_up fired";
-}
-
+sub event_key_up { say "event_key_up fired"; }
 no Moose;
 1;
@@ -17 +10 @@
 package NeedsKeyUpEvent;
 use Moose::Role;
-
 requires 'event_key_up';
-
-before 'event_key_up' => sub {
-    say q{before eats};
-}; 
-
-after 'event_key_up' => sub {
-    say q{after event_key_up};
-}; 
-
-no Moose::Role; 
+before 'event_key_up' => sub { say q{before event_key_up}; };
+after 'event_key_up'  => sub { say q{after event_key_up}; };
+no Moose::Role;
 1;
 
@@ -39 +24 @@
 $q->event_key_up;
 }}}
+
+=>
+
+{{{
+before event_key_up
+event_key_up fired
+after event_key_up
+-----
+event_key_up fired
+}}}