From e64345af5e78a26ec0c2539ba148ec0cabad41b6 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 19 Mar 2010 10:37:25 -0500
Subject: [PATCH] make constant methods mockable

---
 lib/WebGUI/Paths.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Paths.pm b/lib/WebGUI/Paths.pm
index 51281695d..a012b2ec7 100644
--- a/lib/WebGUI/Paths.pm
+++ b/lib/WebGUI/Paths.pm
@@ -58,7 +58,7 @@ BEGIN {
     my $meta = Class::MOP::Class->initialize(__PACKAGE__);
     for my $sub (keys %paths) {
         my $path = $paths{$sub};
-        $meta->add_method( $sub, sub () { $path } );
+        $meta->add_method( $sub, sub { $path } );
     }
 }