Moose override for paste (Post only)

plainblack · Apr 7, 2010 · 7ba8924 · 7ba8924
1 parent ee725b0
commit 7ba8924
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
@@ -989,10 +989,10 @@ Extends the master method to handle incrementing replies.
 
 =cut
 
-sub paste {
+override paste => sub {
     my $self = shift;
 
-    $self->SUPER::paste(@_);
+    super();
 
     # First, figure out what Thread we're under
     my $thread = $self->getLineage( [ qw{ self ancestors } ], {
@@ -1024,7 +1024,7 @@ sub paste {
 
     # Recount the replies under the thread.
     $thread->sumReplies;
-}
+};
 
 #-------------------------------------------------------------------