--- trunk/lib/Frey/PPI.pm	2008/11/17 14:37:48	369
+++ trunk/lib/Frey/PPI.pm	2008/11/18 14:15:45	414
@@ -19,8 +19,8 @@
 	lazy => 1,
 	default => sub {
 		my ( $self ) = @_;
-		warn "doc from ", $self->class;
-		my $doc = PPI::Document->new( $self->class_path( $self->class ) ) || die $!;
+		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;
 	},