From 1bed8706d654c6b1656e332edadb569d602e2fc5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 27 Oct 2010 19:43:40 -0700
Subject: [PATCH] Remove debug output.

---
 lib/WebGUI/Shop/Credit.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lib/WebGUI/Shop/Credit.pm b/lib/WebGUI/Shop/Credit.pm
index 50ef0f85b..80d26e944 100644
--- a/lib/WebGUI/Shop/Credit.pm
+++ b/lib/WebGUI/Shop/Credit.pm
@@ -5,8 +5,8 @@ use Moose;
 use Scalar::Util qw/blessed/;
 
 has [ qw/session userId/ ] => (
-    is       => 'ro',
     required => 1,
+    is       => 'ro',
 );
 
 use WebGUI::Shop::Admin;
@@ -42,11 +42,9 @@ around BUILDARGS => sub {
     ##Original arguments start here.
     my $protoSession = $_[0];
     if (blessed $protoSession && $protoSession->isa('WebGUI::Session')) {
-        warn "got a session\n";
         my $userId = $_[1] ? $_[1] : $protoSession->user->userId;
         return $className->$orig(session => $protoSession, userId => $userId, );
     }
-    warn "no session\n";
     return $className->$orig(@_);
 };