less output without DEBUG=1

diff --git a/lib/CloudStore/Couchbase.pm b/lib/CloudStore/Couchbase.pm
index ddd5c8b..9afb6d0 100644 (file)
--- a/lib/CloudStore/Couchbase.pm
+++ b/lib/CloudStore/Couchbase.pm
@@ -71,7 +71,7 @@ sub user_get {
        my $user = $self->json_get( 'users', $login );
        $user->{usage} = $self->usage( $login );
        $user->{status} = $self->status( $login );
-       warn "## user ",dump($user);
+       warn "## user ",dump($user) if $ENV{DEBUG};
        return $user;
 }