--- trunk/lib/Frey/PPI.pm	2008/11/18 14:10:57	413
+++ trunk/lib/Frey/PPI.pm	2008/11/18 14:15:45	414
@@ -19,7 +19,7 @@
 	lazy => 1,
 	default => sub {
 		my ( $self ) = @_;
-		warn "doc from ", $self->class;
+		warn "# doc from ", $self->class if $self->debug;
 		my $doc = PPI::Document->new( $self->class_path( $self->class ) );
 		$doc->prune('PPI::Token::Whitespace');
 		return $doc;