--- trunk/lib/Frey/Introspect.pm	2008/11/30 14:02:35	634
+++ trunk/lib/Frey/Introspect.pm	2008/11/30 14:21:09	635
@@ -213,7 +213,7 @@
 	}
 	$table .= qq|</table>|;
 
-	my $pod = Frey::Pod->new( class => $class )->as_markup;
+	my $pod = Frey::Pod->new( class => $class, request_url => $self->request_url )->as_markup;
 	$pod = $pod->{body} if ref($pod);
 
 	my $path = $self->class_path( $class );
@@ -251,7 +251,8 @@
 	$self->title( $class );
 
 	my $has_tests = '';
-	if ( my @tests = $self->has_tests ) {
+	my @tests = grep { defined $_ } $self->has_tests;
+	if ( @tests ) {
 		$has_tests = 
 		'<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' .	
 		join("\n", map {