Permalink
Browse files

import Pod::Simple 2.06 from CPAN

git-cpan-module: Pod::Simple
git-cpan-version: 2.06
git-cpan-authorid: SBURKE
  • Loading branch information...
Sean M. Burke authored and schwern committed May 7, 2004
1 parent d8e219f commit 011585b332e49a0a12bdd5d81e2441245b0bf970
Showing with 786 additions and 371 deletions.
  1. +20 −1 ChangeLog
  2. +3 −0 MANIFEST
  3. +2 −2 META.yml
  4. +17 −3 lib/Pod/Simple.pm
  5. +604 −365 lib/Pod/Simple/BlackBox.pm
  6. +30 −0 t/corpus/greek_iso_8859_7.pod
  7. +59 −0 t/corpus/greek_iso_8859_7.xml
  8. +51 −0 t/fullstop_spaces.t
View
@@ -1,6 +1,25 @@
-# ChangeLog for Pod::Simple dist # Time-stamp: "2003-11-04 23:16:23 AST"
+# ChangeLog for Pod::Simple dist # Time-stamp: "2004-05-07 15:25:25 ADT"
#---------------------------------------------------------------------------
+2004-05-07 Sean M. Burke <sburke@cpan.org>
+ * Release 2.06
+
+ Allison Randal brilliantly refactors a huge monolithic sub in
+ Blackbox.pm. Code is now actually sanely readable!
+
+ I add the new option-attributes fullstop_space_harden and
+ codes_in_verbatim, and the two methods abandon_output_string and
+ abandon_output_fh. Not yet documented.
+
+ New test fullstop_spaces.t and new corpus document
+ greek_iso_8859_7.pod.
+
+ Another version should be forthcoming in a few days that has the
+ new Pod::Simple::HTML stuff in it.
+
+ Note to self: document =extend and =encoding in perlpodspec ASAP!
+
+
2003-11-04 Sean M. Burke <sburke@cpan.org>
* Release 2.05 -- bugfix version
View
@@ -54,6 +54,8 @@ t/corpus/french_implicit_latin1.txt
t/corpus/french_implicit_latin1.xml
t/corpus/french_latin1.txt
t/corpus/french_latin1.xml
+t/corpus/greek_iso_8859_7.pod
+t/corpus/greek_iso_8859_7.xml
t/corpus/haiku-iso2202jp.txt
t/corpus/haiku-iso2202jp.xml
t/corpus/haiku-iso2202jpx.txt
@@ -105,6 +107,7 @@ t/fcodes_ell.t
t/fcodes_ess.t
t/for.t
t/fornot.t
+t/fullstop_spaces.t
t/head_ends_over.t
t/heads.t
t/html-para.t
View
@@ -1,12 +1,12 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Pod-Simple
-version: 2.05
+version: 2.06
version_from: lib/Pod/Simple.pm
installdirs: site
requires:
Pod::Escapes: 1.03
Text::Wrap: 98.112902
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.19
+generated_by: ExtUtils::MakeMaker version 6.17
View
@@ -18,7 +18,7 @@ use vars qw(
);
@ISA = ('Pod::Simple::BlackBox');
-$VERSION = '2.05';
+$VERSION = '2.06';
@Known_formatting_codes = qw(I B C L E F S X Z);
%Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
@@ -80,13 +80,17 @@ __PACKAGE__->_accessorize(
'bare_output', # For some subclasses: whether to prepend
# header-code and postpend footer-code
+ 'fullstop_space_harden', # Whether to turn ". " into ".[nbsp] ";
+
'nix_X_codes', # whether to ignore X<...> codes
'merge_text', # whether to avoid breaking a single piece of
# text up into several events
'content_seen', # whether we've seen any real Pod content
'errors_seen', # TODO: document. whether we've seen any errors (fatal or not)
+ 'codes_in_verbatim', # for PseudoPod extensions
+
'code_handler', # coderef to call when a code (non-pod) line is seen
'cut_handler', # coderef to call when a =cut line is seen
#Called like:
@@ -139,9 +143,17 @@ sub output_string {
$$x = '' unless defined $$x;
DEBUG > 4 and print "# Output string set to $x ($$x)\n";
$this->{'output_fh'} = Pod::Simple::TiedOutFH->handle_on($_[0]);
- return $this->{'output_string'} = ${ $this->{'output_fh'} };
+ return
+ $this->{'output_string'} = $_[0];
+ #${ ${ $this->{'output_fh'} } };
}
+sub abandon_output_string { $_[0]->abandon_output_fh; delete $_[0]{'output_string'} }
+sub abandon_output_fh { $_[0]->output_fh(undef) }
+# These don't delete the string or close the FH -- they just delete our
+# references to it/them.
+# TODO: document these
+
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
sub new {
@@ -1008,7 +1020,9 @@ sub _treat_Ls { # Process our dear dear friends, the L<...> sequences
) {
$treelet->[$i][1]{'type'} = 'url';
$treelet->[$i][1]{'content-implicit'} = 'yes';
-
+
+ # TODO: deal with rel: URLs here?
+
if( 3 == @{ $treelet->[$i] } ) {
# But if it IS just one text node (most common case)
DEBUG > 1 and printf qq{Catching "%s as " as ho-hum L<URL> link.\n},
Oops, something went wrong.

0 comments on commit 011585b

Please sign in to comment.