r19528 - in /branches/upstream/libtext-wrapper-perl/current: ./ example/ lib/ lib/Text/ t/
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue May 6 14:43:14 UTC 2008
Author: dmn
Date: Tue May 6 14:43:13 2008
New Revision: 19528
URL: http://svn.debian.org/wsvn/?sc=1&rev=19528
Log:
[svn-upgrade] Integrating new upstream version, libtext-wrapper-perl (1.01)
Added:
branches/upstream/libtext-wrapper-perl/current/Build.PL
branches/upstream/libtext-wrapper-perl/current/META.yml
branches/upstream/libtext-wrapper-perl/current/My_Build.pm (with props)
branches/upstream/libtext-wrapper-perl/current/example/
branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl (with props)
branches/upstream/libtext-wrapper-perl/current/lib/
branches/upstream/libtext-wrapper-perl/current/lib/Text/
branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm (with props)
branches/upstream/libtext-wrapper-perl/current/t/
branches/upstream/libtext-wrapper-perl/current/t/00.load.t
branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t (with props)
branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t
branches/upstream/libtext-wrapper-perl/current/t/pod.t
Removed:
branches/upstream/libtext-wrapper-perl/current/Wrapper.pm
branches/upstream/libtext-wrapper-perl/current/test.pl
Modified:
branches/upstream/libtext-wrapper-perl/current/Changes
branches/upstream/libtext-wrapper-perl/current/MANIFEST
branches/upstream/libtext-wrapper-perl/current/Makefile.PL
branches/upstream/libtext-wrapper-perl/current/README
Added: branches/upstream/libtext-wrapper-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/Build.PL?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/Build.PL (added)
+++ branches/upstream/libtext-wrapper-perl/current/Build.PL Tue May 6 14:43:13 2008
@@ -1,0 +1,33 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: Build.PL 1706 2007-03-21 04:26:10Z cjm $
+# Copyright 2007 Christopher J. Madsen
+#
+# Build.PL for Text-Wrapper
+#---------------------------------------------------------------------
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib $FindBin::Bin; # Make sure we're using My_Build from our distribution
+
+use My_Build; # Our customized version of Module::Build
+
+my $builder = My_Build->new(
+ module_name => 'Text::Wrapper',
+ license => 'perl',
+ dist_author => 'Christopher J. Madsen <perl at cjmweb.net>',
+ dist_version_from => 'lib/Text/Wrapper.pm',
+ requires => { perl => 5.004 },
+ build_requires => {
+ 'FindBin' => 0,
+ 'File::Spec' => 0,
+ 'Module::Build' => 0.21,
+ 'Test::More' => 0,
+ },
+ create_makefile_pl => 'passthrough',
+ dynamic_config => 0,
+);
+
+$builder->create_build_script();
Modified: branches/upstream/libtext-wrapper-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/Changes?rev=19528&op=diff
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/Changes (original)
+++ branches/upstream/libtext-wrapper-perl/current/Changes Tue May 6 14:43:13 2008
@@ -1,4 +1,10 @@
Revision history for Perl extension Text::Wrapper.
+
+1.01 Mar 21 2007
+ - converted to Module::Build
+ - updated my email address
+ - added example/gettysburg.pl
+ - added POD tests & fixed POD error
1.000 Oct 26 1998
- updated my email address
Modified: branches/upstream/libtext-wrapper-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/MANIFEST?rev=19528&op=diff
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/MANIFEST (original)
+++ branches/upstream/libtext-wrapper-perl/current/MANIFEST Tue May 6 14:43:13 2008
@@ -1,6 +1,13 @@
+Build.PL
Changes Revision history
+example/gettysburg.pl
+lib/Text/Wrapper.pm The Text::Wrapper module
+Makefile.PL MakeMaker wrapper for Module::Build
MANIFEST See MANIFEST
-Makefile.PL MakeMaker Makefile
+META.yml
+My_Build.pm Customize Module::Build
README About the Text::Wrapper module
-Wrapper.pm The Text::Wrapper module
-test.pl Testing... 1, 2, 3, Testing... 1, 2, 3
+t/00.load.t
+t/10.wrapper.t Testing... 1, 2, 3, Testing... 1, 2, 3
+t/pod-coverage.t
+t/pod.t
Added: branches/upstream/libtext-wrapper-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/META.yml?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/META.yml (added)
+++ branches/upstream/libtext-wrapper-perl/current/META.yml Tue May 6 14:43:13 2008
@@ -1,0 +1,25 @@
+---
+name: Text-Wrapper
+version: 1.01
+author:
+ - Christopher J. Madsen <perl at cjmweb.net>
+abstract: Simple word wrapping routine
+license: perl
+resources:
+ license: http://dev.perl.org/licenses/
+requires:
+ perl: 5.004
+build_requires:
+ File::Spec: 0
+ FindBin: 0
+ Module::Build: 0.21
+ Test::More: 0
+dynamic_config: 0
+provides:
+ Text::Wrapper:
+ file: lib/Text/Wrapper.pm
+ version: 1.01
+generated_by: Module::Build version 0.2805
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: branches/upstream/libtext-wrapper-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/Makefile.PL?rev=19528&op=diff
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/Makefile.PL (original)
+++ branches/upstream/libtext-wrapper-perl/current/Makefile.PL Tue May 6 14:43:13 2008
@@ -1,13 +1,31 @@
-# $Id: Makefile.PL 0.1 1998/05/14 22:25:07 Madsen Exp $
-
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- 'NAME' => 'Text::Wrapper',
- 'VERSION_FROM' => 'Wrapper.pm', # finds $VERSION
- 'dist' => {COMPRESS => 'gzip -9f', SUFFIX => 'gz',
-# This next line is just for my own use, you should comment it out:
- PREOP => 'cjm_fixup $(DISTVNAME)' # Converts CRLF to LF
- }
-);
+# Note: this file was auto-generated by Module::Build::Compat version 0.03
+
+ unless (eval "use Module::Build::Compat 0.02; 1" ) {
+ print "This module requires Module::Build to install itself.\n";
+
+ require ExtUtils::MakeMaker;
+ my $yn = ExtUtils::MakeMaker::prompt
+ (' Install Module::Build now from CPAN?', 'y');
+
+ unless ($yn =~ /^y/i) {
+ die " *** Cannot install without Module::Build. Exiting ...\n";
+ }
+
+ require Cwd;
+ require File::Spec;
+ require CPAN;
+
+ # Save this 'cause CPAN will chdir all over the place.
+ my $cwd = Cwd::cwd();
+
+ CPAN::Shell->install('Module::Build::Compat');
+ CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
+ or die "Couldn't install Module::Build, giving up.\n";
+
+ chdir $cwd or die "Cannot chdir() back to $cwd: $!";
+ }
+ eval "use Module::Build::Compat 0.02; 1" or die $@;
+ use lib '.';
+ Module::Build::Compat->run_build_pl(args => \@ARGV);
+ require My_Build;
+ Module::Build::Compat->write_makefile(build_class => 'My_Build');
Added: branches/upstream/libtext-wrapper-perl/current/My_Build.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/My_Build.pm?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/My_Build.pm (added)
+++ branches/upstream/libtext-wrapper-perl/current/My_Build.pm Tue May 6 14:43:13 2008
@@ -1,0 +1,64 @@
+#---------------------------------------------------------------------
+# $Id$
+package My_Build;
+#
+# Copyright 2007 Christopher J. Madsen
+#
+# Author: Christopher J. Madsen <perl at cjmweb.net>
+# Created: 18 Feb 2007
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the same terms as Perl itself.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the
+# GNU General Public License or the Artistic License for more details.
+#
+# Customize Module::Build for Text::Wrapper
+#---------------------------------------------------------------------
+
+use strict;
+use File::Spec ();
+use base 'Module::Build';
+
+#=====================================================================
+# Package Global Variables:
+
+our $VERSION = '1.00';
+
+#=====================================================================
+sub ACTION_distdir
+{
+ my $self = shift @_;
+
+ $self->SUPER::ACTION_distdir(@_);
+
+ # Process README, inserting version number & removing comments:
+
+ my $out = File::Spec->catfile($self->dist_dir, 'README');
+ my @stat = stat($out) or die;
+
+ unlink $out or die;
+
+ open(IN, '<', 'README') or die;
+ open(OUT, '>', $out) or die;
+
+ while (<IN>) {
+ next if /^\$\$/; # $$ indicates comment
+ s/\$\%v\%\$/ $self->dist_version /ge;
+
+ print OUT $_;
+ } # end while IN
+
+ close IN;
+ close OUT;
+
+ utime @stat[8,9], $out; # Restore modification times
+ chmod $stat[2], $out; # Restore access permissions
+} # end ACTION_distdir
+
+#=====================================================================
+# Package Return Value:
+
+1;
Propchange: branches/upstream/libtext-wrapper-perl/current/My_Build.pm
------------------------------------------------------------------------------
svn:keywords = Id
Modified: branches/upstream/libtext-wrapper-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/README?rev=19528&op=diff
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/README (original)
+++ branches/upstream/libtext-wrapper-perl/current/README Tue May 6 14:43:13 2008
@@ -1,4 +1,4 @@
-Text::Wrapper 1.000
+Text::Wrapper 1.01
Copyright 1998 Christopher J. Madsen
DESCRIPTION
@@ -24,6 +24,9 @@
RECENT CHANGES
+ Version 1.01 updates my email address and modernizes the build
+ system (to Module::Build). There are no functional changes.
+
Version 1.000 ends the beta stage and updates my email address.
Version 0.008 corrects a bug that caused an infinite loop if a
Added: branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl (added)
+++ branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl Tue May 6 14:43:13 2008
@@ -1,0 +1,53 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id$
+# Copyright 2007 Christopher J. Madsen
+#
+# Example of using the Text::Wrapper module
+#---------------------------------------------------------------------
+
+use strict;
+use Text::Wrapper ();
+
+my $text = <<'EOT';
+Fourscore and seven years ago our fathers brought forth on this
+continent a new nation, conceived in liberty and dedicated to the
+proposition that all men are created equal.
+
+Now we are engaged in a great civil war, testing whether that nation
+or any nation so conceived and so dedicated can long endure. We are
+met on a great battlefield of that war. We have come to dedicate a
+portion of that field as a final resting-place for those who here gave
+their lives that that nation might live. It is altogether fitting and
+proper that we should do this.
+
+But in a larger sense, we cannot dedicate, we cannot consecrate, we
+cannot hallow this ground. The brave men, living and dead who
+struggled here have consecrated it far above our poor power to add or
+detract. The world will little note nor long remember what we say
+here, but it can never forget what they did here. It is for us the
+living rather to be dedicated here to the unfinished work which they
+who fought here have thus far so nobly advanced. It is rather for us
+to be here dedicated to the great task remaining before us--that from
+these honored dead we take increased devotion to that cause for which
+they gave the last full measure of devotion--that we here highly
+resolve that these dead shall not have died in vain, that this nation
+under God shall have a new birth of freedom, and that government of
+the people, by the people, for the people shall not perish from the
+earth.
+EOT
+
+# Merge it all into one line per paragraph:
+$text =~ s/\n(?=\S)/ /g;
+$text =~ s/\n /\n/g;
+
+my $wrapper = Text::Wrapper->new(columns=>40);
+
+print $text,"\n\n";
+
+print $wrapper->wrap($text),"\n\n";
+
+$wrapper->parStart('> ');
+$wrapper->bodyStart(' ');
+$wrapper->columns(49);
+print $wrapper->wrap($text),"\n\n";
Propchange: branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl
------------------------------------------------------------------------------
svn:executable = *
Propchange: branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl
------------------------------------------------------------------------------
svn:keywords = Id
Added: branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm (added)
+++ branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm Tue May 6 14:43:13 2008
@@ -1,0 +1,211 @@
+#---------------------------------------------------------------------
+package Text::Wrapper;
+#
+# Copyright 1998 Christopher J. Madsen
+#
+# Author: Christopher J. Madsen <perl at cjmweb.net>
+# Created: 06 Mar 1998
+# $Id$
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the same terms as Perl itself.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the
+# GNU General Public License or the Artistic License for more details.
+#
+# Word wrap text by breaking long lines
+#---------------------------------------------------------------------
+
+require 5.004;
+use Carp;
+use strict;
+use vars qw($AUTOLOAD $VERSION);
+
+#=====================================================================
+# Package Global Variables:
+
+BEGIN
+{
+ $VERSION = '1.01';
+} # end BEGIN
+
+#=====================================================================
+# Methods:
+#---------------------------------------------------------------------
+# Provide methods for getting/setting fields:
+
+sub AUTOLOAD
+{
+ my $self = $_[0];
+ my $type = ref($self) or croak("$self is not an object");
+ my $name = $AUTOLOAD;
+ $name =~ s/.*://; # strip fully-qualified portion
+ my $field = $name;
+ $field =~ s/_([a-z])/\u$1/g; # squash underlines into mixed case
+ unless (exists $self->{$field}) {
+ # Ignore special methods like DESTROY:
+ return undef if $name =~ /^[A-Z]+$/;
+ croak("Can't locate object method \"$name\" via package \"$type\"");
+ }
+ return $self->{$field} = $_[1] if $#_;
+ $self->{$field};
+} # end AUTOLOAD
+
+#---------------------------------------------------------------------
+sub new
+{
+ my $self = bless {
+ 'bodyStart' => '',
+ 'columns' => 70,
+ 'parStart' => '',
+ }, shift;
+
+ croak "Missing parameter" unless (scalar @_ % 2) == 0;
+ while (@_) {
+ $AUTOLOAD = shift;
+ defined eval { &AUTOLOAD($self, shift) }
+ or croak("Unknown parameter `$AUTOLOAD'");
+ }
+
+ $self;
+} # end new
+
+#---------------------------------------------------------------------
+sub wrap
+{
+ my $self = shift;
+ my $width = $self->{'columns'};
+ my $text = $self->{'parStart'};
+ my $length = length $text;
+ my $lineStart = $length;
+ my $parStart = $text;
+ my $parStartLen = $length;
+ my $continue = "\n" . $self->{'bodyStart'};
+ my $contLen = length $self->{'bodyStart'};
+ pos($_[0]) = 0; # Make sure we start at the beginning
+ for (;;) {
+ if ($_[0] =~ m/\G[ \t]*(\n+)/gc) {
+ $text .= $1 . $parStart;
+ $lineStart = $length = $parStartLen;
+ } else {
+ $_[0] =~ m/\G(\s*(?:[^-\s]+-*|\S+))/g or last;
+ my $word = $1;
+ again:
+ if (($length + length $word <= $width) or ($length == $lineStart)) {
+ $length += length $word;
+ $text .= $word;
+ } else {
+ $text .= $continue;
+ $lineStart = $length = $contLen;
+ $word =~ s/^\s+//;
+ goto again;
+ }
+ }
+ } # end forever
+ if ($length != $lineStart) { $text .= "\n" }
+ else { $text =~ s/(?:\Q$continue\E|\n\Q$parStart\E)\Z/\n/ }
+
+ $text;
+} # end wrap
+
+#=====================================================================
+# Package Return Value:
+
+1;
+
+__END__
+
+=head1 NAME
+
+Text::Wrapper - Simple word wrapping routine
+
+=head1 SYNOPSIS
+
+ require Text::Wrapper;
+ $wrapper = Text::Wrapper->new(columns => 60, body_start => ' ');
+ print $wrapper->wrap($text);
+
+=head1 DESCRIPTION
+
+B<Text::Wrapper> provides simple word wrapping. It breaks long lines,
+but does not alter spacing or remove existing line breaks. If you're
+looking for more sophisticated text formatting, try the
+L<Text::Format> module.
+
+Reasons to use B<Text::Wrapper> instead of B<Text::Format>:
+
+=over 4
+
+=item *
+
+B<Text::Wrapper> is significantly smaller.
+
+=item *
+
+It does not alter existing whitespace or combine short lines.
+It only breaks long lines.
+
+=back
+
+Again, if B<Text::Wrapper> doesn't meet your needs, try
+B<Text::Format>.
+
+=head2 Methods
+
+=over 4
+
+=item $wrapper = Text::Wrapper->new( [options] )
+
+Constructs a new B<Text::Wrapper> object. The options are specified
+by key and value. The keys are:
+
+ body_start The text that begins the second and following lines of
+ a paragraph. (Default '')
+
+ columns The number of columns to use. This includes any text
+ in body_start or par_start. (Default 70)
+
+ par_start The text that begins the first line of each paragraph.
+ (Default '')
+
+=item $wrapper->body_start( [$value] )
+
+=item $wrapper->columns( [$value] )
+
+=item $wrapper->par_start( [$value] )
+
+If C<$value> is supplied, sets the option and returns the previous value.
+If omitted, just returns the current value.
+
+=item $wrapper->wrap($text)
+
+Returns a word wrapped copy of C<$text>. The original is not altered.
+
+=back
+
+=head1 BUGS
+
+Does not handle tabs (they're treated just like spaces).
+
+Does not break words that can't fit on one line.
+
+=head1 LICENSE
+
+Text::Wrapper is distributed under the same terms as Perl itself.
+
+This means it is distributed in the hope that it will be useful, but
+I<without any warranty>; without even the implied warranty of
+I<merchantability> or I<fitness for a particular purpose>. See the
+GNU General Public License or the Artistic License for more details.
+
+=head1 AUTHOR
+
+Christopher J. Madsen E<lt>F<perl AT cjmweb.net>E<gt>
+
+Please send bug reports to F<bug-Text-Wrapper AT rt.cpan.org>, or
+use the web interface at
+L<http://rt.cpan.org/Public/Bug/Report.html?Queue=Text-Wrapper>
+
+=cut
Propchange: branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm
------------------------------------------------------------------------------
svn:keywords = Id
Added: branches/upstream/libtext-wrapper-perl/current/t/00.load.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/t/00.load.t?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/t/00.load.t (added)
+++ branches/upstream/libtext-wrapper-perl/current/t/00.load.t Tue May 6 14:43:13 2008
@@ -1,0 +1,12 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: 00.load.t 1706 2007-03-21 04:26:10Z cjm $
+#---------------------------------------------------------------------
+
+use Test::More tests => 1;
+
+BEGIN {
+use_ok( 'Text::Wrapper' );
+}
+
+diag( "Testing Text::Wrapper $Text::Wrapper::VERSION" );
Added: branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t (added)
+++ branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t Tue May 6 14:43:13 2008
@@ -1,0 +1,355 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: 10.wrapper.t 1707 2007-03-21 04:49:29Z cjm $
+#---------------------------------------------------------------------
+
+use strict;
+use Test::More tests => 5;
+
+BEGIN {
+use_ok( 'Text::Wrapper' );
+}
+
+my $generate = (@ARGV and $ARGV[0] eq 'print');
+
+#=====================================================================
+sub read_data
+{
+ my $text = '';
+ while (<DATA>) {
+ return ($1, $text) if /^\*\s*(.*)/;
+ $text .= $_;
+ }
+ die "Unexpected end of file";
+} # end read_data
+
+#=====================================================================
+# First, read the sample text, remove single line breaks, and condense
+# double line breaks into one:
+
+my $text = (read_data)[1];
+$text =~ s/\n(?=\S)/ /g;
+$text =~ s/\n /\n/g;
+
+#---------------------------------------------------------------------
+# Now try each set of parameters and compare it to the expected result:
+# (Or, if invoked as '10.wrapper.t print', print out the actual
+# results and parameters in the required format.)
+
+my ($test,$args,$expect,$w,$result) = 1;
+for (;;) {
+ ($args,$expect) = read_data;
+ last unless $expect;
+ $w = Text::Wrapper->new(eval $args);
+ $result = $w->wrap($text);
+ if ($generate) { print "$result* $args\n" }
+ else {
+ is($result, $expect, $args);
+ }
+} # end forever
+
+#---------------------------------------------------------------------
+# Here is the sample text followed by the test cases. Each test case
+# is terminated by a line beginning with *, followed by the parameters
+# for that test. The test cases are terminated by an empty case.
+# Don't forget to change the count in the use Test::More line.
+
+__DATA__
+Fourscore and seven years ago our fathers brought forth on this
+continent a new nation, conceived in liberty and dedicated to the
+proposition that all men are created equal.
+
+Now we are engaged in a great civil war, testing whether that nation
+or any nation so conceived and so dedicated can long endure. We are
+met on a great battlefield of that war. We have come to dedicate a
+portion of that field as a final resting-place for those who here gave
+their lives that that nation might live. It is altogether fitting and
+proper that we should do this.
+
+But in a larger sense, we cannot dedicate, we cannot consecrate, we
+cannot hallow this ground. The brave men, living and dead who
+struggled here have consecrated it far above our poor power to add or
+detract. The world will little note nor long remember what we say
+here, but it can never forget what they did here. It is for us the
+living rather to be dedicated here to the unfinished work which they
+who fought here have thus far so nobly advanced. It is rather for us
+to be here dedicated to the great task remaining before us--that from
+these honored dead we take increased devotion to that cause for which
+they gave the last full measure of devotion--that we here highly
+resolve that these dead shall not have died in vain, that this nation
+under God shall have a new birth of freedom, and that government of
+the people, by the people, for the people shall not perish from the
+earth.
+*
+Fourscore and seven years ago our
+fathers brought forth on this continent
+a new nation, conceived in liberty and
+dedicated to the proposition that all
+men are created equal.
+Now we are engaged in a great civil war,
+testing whether that nation or any
+nation so conceived and so dedicated can
+long endure. We are met on a great
+battlefield of that war. We have come to
+dedicate a portion of that field as a
+final resting-place for those who here
+gave their lives that that nation might
+live. It is altogether fitting and
+proper that we should do this.
+But in a larger sense, we cannot
+dedicate, we cannot consecrate, we
+cannot hallow this ground. The brave
+men, living and dead who struggled here
+have consecrated it far above our poor
+power to add or detract. The world will
+little note nor long remember what we
+say here, but it can never forget what
+they did here. It is for us the living
+rather to be dedicated here to the
+unfinished work which they who fought
+here have thus far so nobly advanced. It
+is rather for us to be here dedicated to
+the great task remaining before us--that
+from these honored dead we take
+increased devotion to that cause for
+which they gave the last full measure of
+devotion--that we here highly resolve
+that these dead shall not have died in
+vain, that this nation under God shall
+have a new birth of freedom, and that
+government of the people, by the people,
+for the people shall not perish from the
+earth.
+* (columns => 40)
+> Fourscore and seven years ago our fathers
+ brought forth on this continent a new nation,
+ conceived in liberty and dedicated to the
+ proposition that all men are created equal.
+> Now we are engaged in a great civil war,
+ testing whether that nation or any nation so
+ conceived and so dedicated can long endure. We
+ are met on a great battlefield of that war. We
+ have come to dedicate a portion of that field
+ as a final resting-place for those who here
+ gave their lives that that nation might live.
+ It is altogether fitting and proper that we
+ should do this.
+> But in a larger sense, we cannot dedicate, we
+ cannot consecrate, we cannot hallow this
+ ground. The brave men, living and dead who
+ struggled here have consecrated it far above
+ our poor power to add or detract. The world
+ will little note nor long remember what we say
+ here, but it can never forget what they did
+ here. It is for us the living rather to be
+ dedicated here to the unfinished work which
+ they who fought here have thus far so nobly
+ advanced. It is rather for us to be here
+ dedicated to the great task remaining before
+ us--that from these honored dead we take
+ increased devotion to that cause for which
+ they gave the last full measure of devotion--
+ that we here highly resolve that these dead
+ shall not have died in vain, that this nation
+ under God shall have a new birth of freedom,
+ and that government of the people, by the
+ people, for the people shall not perish from
+ the earth.
+* (par_start => '> ', body_start => ' ', columns => 49)
+> Fourscore and seven years ago our fathers brought forth on this
+ | continent a new nation, conceived in liberty and dedicated to the
+ | proposition that all men are created equal.
+> Now we are engaged in a great civil war, testing whether that
+ | nation or any nation so conceived and so dedicated can long endure.
+ | We are met on a great battlefield of that war. We have come to
+ | dedicate a portion of that field as a final resting-place for those
+ | who here gave their lives that that nation might live. It is
+ | altogether fitting and proper that we should do this.
+> But in a larger sense, we cannot dedicate, we cannot consecrate,
+ | we cannot hallow this ground. The brave men, living and dead who
+ | struggled here have consecrated it far above our poor power to add
+ | or detract. The world will little note nor long remember what we
+ | say here, but it can never forget what they did here. It is for us
+ | the living rather to be dedicated here to the unfinished work which
+ | they who fought here have thus far so nobly advanced. It is rather
+ | for us to be here dedicated to the great task remaining before us--
+ | that from these honored dead we take increased devotion to that
+ | cause for which they gave the last full measure of devotion--that
+ | we here highly resolve that these dead shall not have died in vain,
+ | that this nation under God shall have a new birth of freedom, and
+ | that government of the people, by the people, for the people shall
+ | not perish from the earth.
+* (par_start => '> ', body_start => ' | ')
+Fourscore
+and seven
+years ago
+our
+fathers
+brought
+forth on
+this
+continent
+a new
+nation,
+conceived
+in liberty
+and
+dedicated
+to the
+proposition
+that all
+men are
+created
+equal.
+Now we are
+engaged in
+a great
+civil war,
+testing
+whether
+that
+nation or
+any nation
+so
+conceived
+and so
+dedicated
+can long
+endure. We
+are met on
+a great
+battlefield
+of that
+war. We
+have come
+to
+dedicate a
+portion of
+that field
+as a final
+resting-
+place for
+those who
+here gave
+their
+lives that
+that
+nation
+might
+live. It
+is
+altogether
+fitting
+and proper
+that we
+should do
+this.
+But in a
+larger
+sense, we
+cannot
+dedicate,
+we cannot
+consecrate,
+we cannot
+hallow
+this
+ground.
+The brave
+men,
+living and
+dead who
+struggled
+here have
+consecrated
+it far
+above our
+poor power
+to add or
+detract.
+The world
+will
+little
+note nor
+long
+remember
+what we
+say here,
+but it can
+never
+forget
+what they
+did here.
+It is for
+us the
+living
+rather to
+be
+dedicated
+here to
+the
+unfinished
+work which
+they who
+fought
+here have
+thus far
+so nobly
+advanced.
+It is
+rather for
+us to be
+here
+dedicated
+to the
+great task
+remaining
+before
+us--that
+from these
+honored
+dead we
+take
+increased
+devotion
+to that
+cause for
+which they
+gave the
+last full
+measure of
+devotion--
+that we
+here
+highly
+resolve
+that these
+dead shall
+not have
+died in
+vain, that
+this
+nation
+under God
+shall have
+a new
+birth of
+freedom,
+and that
+government
+of the
+people, by
+the
+people,
+for the
+people
+shall not
+perish
+from the
+earth.
+* (columns => 10)
+* This line marks the end of the test cases
+
+Local Variables:
+ tmtrack-file-task: "Text::Wrapper: test.pl"
+End:
Propchange: branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t
------------------------------------------------------------------------------
svn:executable = *
Added: branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t (added)
+++ branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t Tue May 6 14:43:13 2008
@@ -1,0 +1,9 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: pod-coverage.t 1706 2007-03-21 04:26:10Z cjm $
+#---------------------------------------------------------------------
+
+use Test::More;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok();
Added: branches/upstream/libtext-wrapper-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/t/pod.t?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/t/pod.t (added)
+++ branches/upstream/libtext-wrapper-perl/current/t/pod.t Tue May 6 14:43:13 2008
@@ -1,0 +1,9 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: pod.t 1706 2007-03-21 04:26:10Z cjm $
+#---------------------------------------------------------------------
+
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list