[Bps-public-commit] log-log4perl-appender-gearman branch, master, updated. a96dfb06dcccc1aba4c5611cb834280bbf32fb11
Chia-liang Kao
clkao at bestpractical.com
Sat Oct 9 11:15:43 EDT 2010
The branch, master has been updated
via a96dfb06dcccc1aba4c5611cb834280bbf32fb11 (commit)
from 5b98254fa518398ea30bb4587648c4f2f875d24a (commit)
Summary of changes:
.gitignore | 7 ++++
.shipit | 2 +
Changes | 3 +-
MANIFEST | 23 ++++++++++++
Makefile.PL | 33 ++++++-----------
README | 52 ---------------------------
lib/Log/Log4perl/Appender/Gearman.pm | 64 +++++++---------------------------
t/basic.t | 8 +++--
xt/perlcritic.t | 5 +++
xt/pod.t | 4 ++
xt/podspell.t | 14 +++++++
xt/synopsis.t | 4 ++
12 files changed, 91 insertions(+), 128 deletions(-)
create mode 100644 .shipit
delete mode 100644 README
create mode 100644 xt/perlcritic.t
create mode 100644 xt/pod.t
create mode 100644 xt/podspell.t
create mode 100644 xt/synopsis.t
- Log -----------------------------------------------------------------
commit a96dfb06dcccc1aba4c5611cb834280bbf32fb11
Author: Chia-liang Kao <clkao at clkao.org>
Date: Sat Oct 9 23:19:06 2010 +0800
Checking in changes prior to tagging of version 0.29. Changelog diff is:
diff --git a/Changes b/Changes
index 02e251d..4ab2783 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
Revision history for Log-Log4perl-Appender-Gearman
-0.01 Date/time
+0.29 Sat Oct 9 23:01:05 CST 2010
+
First version, released on an unsuspecting world.
diff --git a/.gitignore b/.gitignore
index e69de29..2116aef 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1,7 @@
+META.yml
+Makefile
+inc/
+pm_to_blib
+*~
+*.log
+t/*.pid
diff --git a/.shipit b/.shipit
new file mode 100644
index 0000000..d2778c7
--- /dev/null
+++ b/.shipit
@@ -0,0 +1,2 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+git.push_to = origin
diff --git a/Changes b/Changes
index 02e251d..4ab2783 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
Revision history for Log-Log4perl-Appender-Gearman
-0.01 Date/time
+0.29 Sat Oct 9 23:01:05 CST 2010
+
First version, released on an unsuspecting world.
diff --git a/MANIFEST b/MANIFEST
index 332b0e5..cfc6f3a 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,6 +1,29 @@
+.shipit
+bin/gearman-logger
Changes
+gt-debug.log
+gt-order.log
+gt.log
+inc/Module/Install.pm
+inc/Module/Install/AuthorTests.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/ReadmeFromPod.pm
+inc/Module/Install/Repository.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
lib/Log/Log4perl/Appender/Gearman.pm
Makefile.PL
MANIFEST This list of files
+META.yml
README
t/basic.t
+t/gearmand.pid
+xt/perlcritic.t
+xt/pod.t
+xt/podspell.t
+xt/synopsis.t
diff --git a/Makefile.PL b/Makefile.PL
index abc45a6..b137548 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,21 +1,12 @@
-use strict;
-use warnings;
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
- NAME => 'Log::Log4perl::Appender::Gearman',
- AUTHOR => 'Chia-liang Kao <clako at clkao.org>',
- VERSION_FROM => 'lib/Log/Log4perl/Appender/Gearman.pm',
- ABSTRACT_FROM => 'lib/Log/Log4perl/Appender/Gearman.pm',
- ($ExtUtils::MakeMaker::VERSION >= 6.3002
- ? ('LICENSE'=> 'perl')
- : ()),
- PL_FILES => {},
- PREREQ_PM => {
- 'Test::More' => 0,
- 'Gearman::Client' => 0,
- 'Log::Log4perl' => 0,
- },
- dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
- clean => { FILES => 'Log-Log4perl-Appender-Gearman-*' },
-);
+sub readme_from {}; sub auto_include_deps {}; sub author_tests {}; sub auto_set_repository {};
+use inc::Module::Install;
+name 'Log-Log4perl-Appender-Gearman';
+all_from 'lib/Log/Log4perl/Appender/Gearman.pm',
+readme_from 'lib/Log/Log4perl/Appender/Gearman.pm',
+build_requires 'Test::More';
+requires 'Gearman::Client';
+requires 'Log::Log4perl';
+auto_include_deps;
+author_tests('xt');
+auto_set_repository;
+WriteAll;
diff --git a/README b/README
deleted file mode 100644
index 2c7c278..0000000
--- a/README
+++ /dev/null
@@ -1,52 +0,0 @@
-Log-Log4perl-Appender-Gearman
-
-The README is used to introduce the module and provide instructions on
-how to install the module, any machine dependencies it may have (for
-example C compilers and installed libraries) and any other information
-that should be provided before the module is installed.
-
-A README file is required for CPAN modules since CPAN extracts the README
-file from a module distribution so that people browsing the archive
-can use it to get an idea of the module's uses. It is usually a good idea
-to provide version information here so that people can decide whether
-fixes for the module are worth downloading.
-
-
-INSTALLATION
-
-To install this module, run the following commands:
-
- perl Makefile.PL
- make
- make test
- make install
-
-SUPPORT AND DOCUMENTATION
-
-After installing, you can find documentation for this module with the
-perldoc command.
-
- perldoc Log::Log4perl::Appender::Gearman
-
-You can also look for information at:
-
- RT, CPAN's request tracker
- http://rt.cpan.org/NoAuth/Bugs.html?Dist=Log-Log4perl-Appender-Gearman
-
- AnnoCPAN, Annotated CPAN documentation
- http://annocpan.org/dist/Log-Log4perl-Appender-Gearman
-
- CPAN Ratings
- http://cpanratings.perl.org/d/Log-Log4perl-Appender-Gearman
-
- Search CPAN
- http://search.cpan.org/dist/Log-Log4perl-Appender-Gearman/
-
-
-COPYRIGHT AND LICENCE
-
-Copyright (C) 2009 Chia-liang Kao
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
diff --git a/lib/Log/Log4perl/Appender/Gearman.pm b/lib/Log/Log4perl/Appender/Gearman.pm
index 0288713..f255ce0 100644
--- a/lib/Log/Log4perl/Appender/Gearman.pm
+++ b/lib/Log/Log4perl/Appender/Gearman.pm
@@ -3,12 +3,14 @@ package Log::Log4perl::Appender::Gearman;
use warnings;
use strict;
+use 5.8.8;
+
use base 'Log::Log4perl::Appender';
use Gearman::Client;
=head1 NAME
-Log::Log4perl::Appender::Gearman - The great new Log::Log4perl::Appender::Gearman!
+Log::Log4perl::Appender::Gearman - Log appender for posting job to gearman
=head1 VERSION
@@ -16,28 +18,17 @@ Version 0.01
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.29';
=head1 SYNOPSIS
-Quick summary of what the module does.
-
-Perhaps a little code snippet.
-
- use Log::Log4perl::Appender::Gearman;
-
- my $foo = Log::Log4perl::Appender::Gearman->new();
- ...
-
-=head1 EXPORT
-
-A list of functions that can be exported. You can delete this section
-if you don't export anything, such as for a purely object-oriented module.
-
-=head1 FUNCTIONS
-
-=head2 function1
+ # in your log4perl config:
+ # log4perl.appender.GM = Log::Log4perl::Appender::Gearman
+ # log4perl.appender.GM.job_servers = 127.0.0.1:$port
+ # log4perl.appender.GM.jobname = logme
+ # log4perl.appender.GM.layout = Log::Log4perl::Layout::PatternLayout
+ # log4perl.appender.GM.layout.ConversionPattern=%m
=cut
@@ -81,7 +72,7 @@ sub log {
=head1 AUTHOR
-Chia-liang Kao, C<< <clako at clkao.org> >>
+Chia-liang Kao, C<< <clkao at clkao.org> >>
=head1 BUGS
@@ -92,42 +83,13 @@ automatically be notified of progress on your bug as I make changes.
-=head1 SUPPORT
-
-You can find documentation for this module with the perldoc command.
-
- perldoc Log::Log4perl::Appender::Gearman
-
-
-You can also look for information at:
-
-=over 4
-
-=item * RT: CPAN's request tracker
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Log-Log4perl-Appender-Gearman>
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Log-Log4perl-Appender-Gearman>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Log-Log4perl-Appender-Gearman>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Log-Log4perl-Appender-Gearman/>
-
-=back
-
=head1 ACKNOWLEDGEMENTS
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Chia-liang Kao, all rights reserved.
+Copyright 2009-2010 Chia-liang Kao, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -135,4 +97,4 @@ under the same terms as Perl itself.
=cut
-1; # End of Log::Log4perl::Appender::Gearman
+1;
diff --git a/t/basic.t b/t/basic.t
index 9b0e221..adf5f1d 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 2;
+use Test::More;
use Log::Log4perl;
use File::Spec;
use Gearman::Worker;
@@ -18,10 +18,10 @@ log4perl.appender.GM.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.GM.layout.ConversionPattern=%m
);
-ok(Log::Log4perl::init( \$conf ));
my @received;
start_gearmand($port);
+ok(Log::Log4perl::init( \$conf ));
my $worker = Gearman::Worker->new;
$worker->job_servers("127.0.0.1:$port");
@@ -46,7 +46,7 @@ sub start_gearmand {
my $port = shift;
my $gearmand_pid;
my $gearmand = can_run('gearmand')
- or die "Can't find gearmand";
+ or plan skip_all => "Can't find gearmand";
system($gearmand, -p => $port, '-d', '--pidfile' => abs_path("t/gearmand.pid"));
die $! if $?;
@@ -79,3 +79,5 @@ sub can_run {
return;
}
+
+done_testing;
diff --git a/xt/perlcritic.t b/xt/perlcritic.t
new file mode 100644
index 0000000..950f64f
--- /dev/null
+++ b/xt/perlcritic.t
@@ -0,0 +1,5 @@
+use strict;
+use Test::More;
+eval q{ use Test::Perl::Critic };
+plan skip_all => "Test::Perl::Critic is not installed." if $@;
+all_critic_ok("lib");
diff --git a/xt/pod.t b/xt/pod.t
new file mode 100644
index 0000000..437887a
--- /dev/null
+++ b/xt/pod.t
@@ -0,0 +1,4 @@
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
diff --git a/xt/podspell.t b/xt/podspell.t
new file mode 100644
index 0000000..cd279c4
--- /dev/null
+++ b/xt/podspell.t
@@ -0,0 +1,14 @@
+use Test::More;
+eval q{ use Test::Spelling };
+plan skip_all => "Test::Spelling is not installed." if $@;
+add_stopwords(<DATA>);
+set_spell_cmd("aspell -l en list");
+all_pod_files_spelling_ok('lib');
+__DATA__
+Chia
+liang
+Kao
+AnnoCPAN
+CPAN
+appender
+gearman
diff --git a/xt/synopsis.t b/xt/synopsis.t
new file mode 100644
index 0000000..07aa750
--- /dev/null
+++ b/xt/synopsis.t
@@ -0,0 +1,4 @@
+use Test::More;
+eval "use Test::Synopsis";
+plan skip_all => "Test::Synopsis required" if $@;
+all_synopsis_ok();
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list