--- trunk/lib/Frey/ClassLoader.pm	2008/11/05 19:13:01	308
+++ trunk/lib/Frey/ClassLoader.pm	2008/11/06 16:05:45	320
@@ -103,12 +103,12 @@
 		Class::MOP::load_class($class) if ! $loaded_class->{$class}++;
 	};
 	warn $@ if $@; # && $@ !~ m/role/;
-	warn "# load_class $class" if $loaded_class->{$class} == 1;
+	warn "# load_class $class" if $self->debug && $loaded_class->{$class} == 1;
 }
 
 sub load_all_classes {
 	my $self = shift;
-	warn "# loaded_class = ",dump( $loaded_class );
+	warn "# loaded_class = ",dump( $loaded_class ) if $self->debug;
 	$self->load_class( $_ ) foreach ( $self->classes );
 	$loaded_class;
 }