From 7ba89245faa042cdc78187e826b5b80ea8835617 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 7 Apr 2010 15:25:21 -0700
Subject: [PATCH] Moose override for paste (Post only)

---
 lib/WebGUI/Asset/Post.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index feb5fee65..f26af8cfa 100644
--- 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;
-}
+};
 
 #-------------------------------------------------------------------