default POD should be plain text as in returned data

metacpan · Apr 28, 2014 · 2e6956c · 2e6956c
1 parent 84d7773
commit 2e6956c
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/lib/MetaCPAN/Client/File.pm b/lib/MetaCPAN/Client/File.pm
@@ -29,14 +29,12 @@ sub _known_fields { return \@known_fields }
 
 sub pod {
     my $self   = shift;
-    my $ctype  = shift || "html";
+    my $ctype  = shift || "plain";
     $ctype = lc($ctype);
 
     grep { $ctype eq $_ } qw<html plain x-pod x-markdown>
         or croak "wrong content-type for POD requested";
 
-    # file/module equivallence makes this
-    # weird - TODO: sort this out
     my $name = $self->module->[0]{name};
 
     require MetaCPAN::Client::Request;