[svn:parrot] r47767 - in branches/html_cleanup: lib/Parrot/Docs t/perl

[coke at svn.parrot.org]

Author: coke
Date: Tue Jun 22 19:20:42 2010
New Revision: 47767
URL: https://trac.parrot.org/parrot/changeset/47767

Log:
Remove function that was only ever used in the test suite.

Modified:
   branches/html_cleanup/lib/Parrot/Docs/File.pm
   branches/html_cleanup/t/perl/Parrot_Docs.t

Modified: branches/html_cleanup/lib/Parrot/Docs/File.pm
==============================================================================
--- branches/html_cleanup/lib/Parrot/Docs/File.pm	Tue Jun 22 19:19:54 2010	(r47766)
+++ branches/html_cleanup/lib/Parrot/Docs/File.pm	Tue Jun 22 19:20:42 2010	(r47767)
@@ -279,26 +279,6 @@
     return $self->{POD_ERRORS};
 }
 
-=item C<pod_as_html()>
-
-Runs C<Parrot::Docs::POD2HTML> on the contents of the file. Executable files
-are assumed not to contain POD and therefore not formatted.
-
-=cut
-
-sub pod_as_html {
-    my $self = shift;
-
-    if ( $self->contains_pod ) {
-        my $formatter = Parrot::Docs::POD2HTML->new;
-        $formatter->no_errata_section(1); # don't dump errors into HTML output
-
-        $self->{POD_HTML} = $formatter->html_for_file($self);
-    }
-
-    return $self->{POD_HTML};
-}
-
 =item C<is_docs_link()>
 
 Returns whether the file is suitable for inclusion in a documentation link.

Modified: branches/html_cleanup/t/perl/Parrot_Docs.t
==============================================================================
--- branches/html_cleanup/t/perl/Parrot_Docs.t	Tue Jun 22 19:19:54 2010	(r47766)
+++ branches/html_cleanup/t/perl/Parrot_Docs.t	Tue Jun 22 19:20:42 2010	(r47767)
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 use lib qw( . lib ../lib ../../lib );
-use Test::More 'tests' => 25;
+use Test::More 'tests' => 24;
 use File::Spec::Functions qw(:ALL);
 
 =head1 NAME
@@ -60,7 +60,6 @@
 is( $f->num_pod_errors, 0, 'num_pod_errors none' );
 
 # Not the best of tests, but at least something.
-like( $f->pod_as_html, qr|<html.*?</html>|si, 'pod_as_html' );
 $f->write("=haed1 FOO\n\nFoo\n\n=cut\n\nbar\n");
 ok( $f->contains_pod, 'contains_pod yes, errors' );
 is( $f->num_pod_errors, 1, 'num_pod_errors one' );