r43085 - in /trunk/libtext-greeking-perl: .gitignore .perltidyrc CHANGES Changes MANIFEST MANIFEST.SKIP META.yml Makefile.PL README debian/changelog debian/control debian/copyright debian/patches/ debian/rules lib/Text/Greeking.pm t/ test.pl
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Aug 28 01:38:41 UTC 2009
Author: jawnsy-guest
Date: Fri Aug 28 01:38:35 2009
New Revision: 43085
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43085
Log:
* New upstream release
+ POD fixes applied upstream
* Standards-Version 3.8.3 (no changes)
* Added myself to Uploaders and Copyright
Added:
trunk/libtext-greeking-perl/.gitignore
- copied unchanged from r43083, branches/upstream/libtext-greeking-perl/current/.gitignore
trunk/libtext-greeking-perl/.perltidyrc
- copied unchanged from r43083, branches/upstream/libtext-greeking-perl/current/.perltidyrc
trunk/libtext-greeking-perl/CHANGES
- copied unchanged from r43083, branches/upstream/libtext-greeking-perl/current/CHANGES
trunk/libtext-greeking-perl/MANIFEST.SKIP
- copied unchanged from r43083, branches/upstream/libtext-greeking-perl/current/MANIFEST.SKIP
trunk/libtext-greeking-perl/t/
- copied from r43083, branches/upstream/libtext-greeking-perl/current/t/
Removed:
trunk/libtext-greeking-perl/Changes
trunk/libtext-greeking-perl/debian/patches/
trunk/libtext-greeking-perl/test.pl
Modified:
trunk/libtext-greeking-perl/MANIFEST
trunk/libtext-greeking-perl/META.yml
trunk/libtext-greeking-perl/Makefile.PL
trunk/libtext-greeking-perl/README
trunk/libtext-greeking-perl/debian/changelog
trunk/libtext-greeking-perl/debian/control
trunk/libtext-greeking-perl/debian/copyright
trunk/libtext-greeking-perl/debian/rules
trunk/libtext-greeking-perl/lib/Text/Greeking.pm
Modified: trunk/libtext-greeking-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/MANIFEST?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/MANIFEST (original)
+++ trunk/libtext-greeking-perl/MANIFEST Fri Aug 28 01:38:35 2009
@@ -1,7 +1,15 @@
-Changes
+.gitignore
+.perltidyrc
+CHANGES
lib/Text/Greeking.pm
Makefile.PL
-MANIFEST
+MANIFEST This list of files
+MANIFEST.SKIP
+META.yml
README
-test.pl
-META.yml Module meta-data (added by MakeMaker)
+t/01_compile.t
+t/90_perltidy.t
+t/96_manifest.t
+t/97_meta.t
+t/98_pod_syntax.t
+t/99_pod_coverage.t
Modified: trunk/libtext-greeking-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/META.yml?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/META.yml (original)
+++ trunk/libtext-greeking-perl/META.yml Fri Aug 28 01:38:35 2009
@@ -1,9 +1,26 @@
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Text-Greeking
-version: 0.11
-version_from: lib/Text/Greeking.pm
-installdirs: site
+--- #YAML:1.0
+name: Text-Greeking
+version: 0.12
+abstract: a module for generating meaningless text
+author:
+ - Timothy Appnel <tima at cpan.org>
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.12
+ perl: 5.006
+resources:
+ bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Text-Greeking
+ license: http://dev.perl.org/licenses/
+ repository: http://github.com/tima/perl-text-greeking
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.54
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libtext-greeking-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/Makefile.PL?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/Makefile.PL (original)
+++ trunk/libtext-greeking-perl/Makefile.PL Fri Aug 28 01:38:35 2009
@@ -1,7 +1,20 @@
use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
+use strict;
+
WriteMakefile(
- 'NAME' => 'Text::Greeking',
- 'VERSION_FROM' => 'lib/Text/Greeking.pm', # finds $VERSION
+ 'NAME' => 'Text::Greeking',
+ 'VERSION_FROM' => 'lib/Text/Greeking.pm',
+ 'ABSTRACT_FROM' => 'lib/Text/Greeking.pm',
+ 'MIN_PERL_VERSION' => '5.006',
+ 'LICENSE' => 'perl',
+ 'AUTHOR' => 'Timothy Appnel <tima at cpan.org>',
+ 'PREREQ_PM' => {},
+ 'META_MERGE' => {
+ 'resources' => {
+ 'license' => 'http://dev.perl.org/licenses/',
+ 'repository' => 'http://github.com/tima/perl-text-greeking',
+ 'bugtracker' =>
+ 'http://rt.cpan.org/Public/Dist/Display.html?Name=Text-Greeking',
+ },
+ },
);
Modified: trunk/libtext-greeking-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/README?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/README (original)
+++ trunk/libtext-greeking-perl/README Fri Aug 28 01:38:35 2009
@@ -16,4 +16,5 @@
terms of the Artistic License are described at
http://www.perl.com/language/misc/Artistic.html. Except
where otherwise noted, Text::Greeking is Copyright
-2005, Timothy Appnel, tima at cpan.org. All rights reserved.
+2005-2009, Timothy Appnel, tima at cpan.org. All rights
+reserved.
Modified: trunk/libtext-greeking-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/debian/changelog?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/debian/changelog (original)
+++ trunk/libtext-greeking-perl/debian/changelog Fri Aug 28 01:38:35 2009
@@ -1,3 +1,12 @@
+libtext-greeking-perl (0.12-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ + POD fixes applied upstream
+ * Standards-Version 3.8.3 (no changes)
+ * Added myself to Uploaders and Copyright
+
+ -- Jonathan Yu <frequency at cpan.org> Thu, 27 Aug 2009 17:34:12 -0400
+
libtext-greeking-perl (0.11-1) unstable; urgency=low
* Initial Release. (Closes: #543582)
Modified: trunk/libtext-greeking-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/debian/control?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/debian/control (original)
+++ trunk/libtext-greeking-perl/debian/control Fri Aug 28 01:38:35 2009
@@ -2,10 +2,11 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl, quilt
+Build-Depends-Indep: perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Christine Spang <christine at debian.org>
-Standards-Version: 3.8.2
+Uploaders: Christine Spang <christine at debian.org>,
+ Jonathan Yu <frequency at cpan.org>
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Text-Greeking/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtext-greeking-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libtext-greeking-perl
Modified: trunk/libtext-greeking-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/debian/copyright?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/debian/copyright (original)
+++ trunk/libtext-greeking-perl/debian/copyright Fri Aug 28 01:38:35 2009
@@ -9,7 +9,8 @@
License: Artistic
Files: debian/*
-Copyright: 2009, Christine Spang <christine at debian.org>
+Copyright: 2009, Jonathan Yu <frequency at cpan.org>
+ 2009, Christine Spang <christine at debian.org>
License: Artistic
License: Artistic
Modified: trunk/libtext-greeking-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/debian/rules?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/debian/rules (original)
+++ trunk/libtext-greeking-perl/debian/rules Fri Aug 28 01:38:35 2009
@@ -1,4 +1,4 @@
#!/usr/bin/make -f
%:
- dh --with quilt $@
+ dh $@
Modified: trunk/libtext-greeking-perl/lib/Text/Greeking.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-greeking-perl/lib/Text/Greeking.pm?rev=43085&op=diff
==============================================================================
--- trunk/libtext-greeking-perl/lib/Text/Greeking.pm (original)
+++ trunk/libtext-greeking-perl/lib/Text/Greeking.pm Fri Aug 28 01:38:35 2009
@@ -3,15 +3,15 @@
use warnings;
use vars qw( $VERSION );
-$VERSION = 0.11;
+$VERSION = 0.12;
# make controllable eventually.
-my @punc = split('', '..........??!');
-my @inpunc = split('',',,,,,,,,,,;;:');
+my @punc = split('', '..........??!');
+my @inpunc = split('', ',,,,,,,,,,;;:');
push @inpunc, ' --';
sub new {
- my $class =shift;
+ my $class = shift;
my $self = bless {}, $class;
srand;
$self->init;
@@ -19,22 +19,22 @@
sub init {
$_[0]->sources([]);
- $_[0]->paragraphs(2,8);
- $_[0]->sentences(2,8);
- $_[0]->words(5,15);
+ $_[0]->paragraphs(2, 8);
+ $_[0]->sentences(2, 8);
+ $_[0]->words(5, 15);
$_[0];
}
-sub sources {
+sub sources {
$_[0]->{sources} = $_[1] if defined $_[1];
$_[0]->{sources};
}
sub add_source {
- my($self,$text) = @_;
+ my ($self, $text) = @_;
return unless $text;
- $text =~s/[\n\r]/ /g;
- $text =~s/[[:punct:]]//g;
+ $text =~ s/[\n\r]/ /g;
+ $text =~ s/[[:punct:]]//g;
my @words = map { lc $_ } split /\s+/, $text;
push @{$self->{sources}}, \@words;
}
@@ -44,34 +44,37 @@
my $out;
$self->_load_default_source unless defined $self->{sources}->[0];
my @words = @{$self->{sources}->[int(rand(@{$self->{sources}}))]};
- my($paramin,$paramax) = @{$self->{paragraphs}};
- my($sentmin,$sentmax) = @{$self->{sentences}};
- my($phramin,$phramax) = @{$self->{words}};
- my $pcount = int(rand($paramax-$paramin+1)+$paramin);
- for (my $x=0; $x < $pcount; $x++) {
+ my ($paramin, $paramax) = @{$self->{paragraphs}};
+ my ($sentmin, $sentmax) = @{$self->{sentences}};
+ my ($phramin, $phramax) = @{$self->{words}};
+ my $pcount = int(rand($paramax - $paramin + 1) + $paramin);
+
+ for (my $x = 0; $x < $pcount; $x++) {
my $p;
- my $scount = int(rand($sentmax-$sentmin+1)+$sentmin);
- for (my $y=0; $y < $scount; $y++) {
+ my $scount = int(rand($sentmax - $sentmin + 1) + $sentmin);
+ for (my $y = 0; $y < $scount; $y++) {
my $s;
- my $wcount = int(rand($phramax-$phramin+1)+$phramin);
- for (my $w=0; $w < $wcount; $w++) {
+ my $wcount = int(rand($phramax - $phramin + 1) + $phramin);
+ for (my $w = 0; $w < $wcount; $w++) {
my $word = $words[int(rand(@words))];
- $s .= $s ? " $word" : ucfirst($word);
- $s .= (($w+1 < $wcount) && !int(rand(10))) ?
- $inpunc[int(rand(@inpunc))] : '';
+ $s .= $s ? " $word" : ucfirst($word);
+ $s .=
+ (($w + 1 < $wcount) && !int(rand(10)))
+ ? $inpunc[int(rand(@inpunc))]
+ : '';
}
$s .= $punc[int(rand(@punc))];
$p .= ' ' if $p;
$p .= $s;
- }
- $out .= $p."\n\n"; # assumes text.
+ }
+ $out .= $p . "\n\n"; # assumes text.
}
$out;
}
-sub paragraphs { $_[0]->{paragraphs} = [ $_[1], $_[2] ] }
-sub sentences { $_[0]->{sentences} = [ $_[1], $_[2] ] }
-sub words { $_[0]->{words} = [ $_[1], $_[2] ] }
+sub paragraphs { $_[0]->{paragraphs} = [$_[1], $_[2]] }
+sub sentences { $_[0]->{sentences} = [$_[1], $_[2]] }
+sub words { $_[0]->{words} = [$_[1], $_[2]] }
sub _load_default_source {
my $text = <<TEXT;
@@ -113,7 +116,7 @@
__END__
-=begin
+=begin pod
=head1 NAME
@@ -160,6 +163,12 @@
Constructor method. Returns a new instance of the class.
+=item $g->init
+
+Initializes object with defaults. Called by the constructor.
+Broken out for easy overloading to enable customized
+defaults and other behaviour.
+
=item $g->sources([\@ARRAY])
Gets/sets the table of source word collections current in
@@ -211,6 +220,14 @@
=back
+=head1 PARTICIPATION
+
+I welcome and accept patches in diff format. If you wish to
+hack on this code, please fork the git repository found at:
+L<http://github.com/tima/perl-text-greeking/>. If you have
+something to push back to my repository, just use the "pull
+request" button on the github site.
+
=head1 LICENSE
The software is released under the Artistic License. The
@@ -219,10 +236,10 @@
=head1 AUTHOR & COPYRIGHT
-Except where otherwise noted, Text::Greeking is
-Copyright 2005, Timothy Appnel, tima at cpan.org. All rights
+Except where otherwise noted, Text::Greeking is Copyright
+2005-2009, Timothy Appnel, tima at cpan.org. All rights
reserved.
=cut
-=end
+=end pod
More information about the Pkg-perl-cvs-commits
mailing list