This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag release-0.001
in repository libmoox-role-logger-perl.

commit 144490bef0675a9bbb60823e8b20b106c3031c8d
Author: David Golden <dagol...@cpan.org>
Date:   Wed Oct 2 23:25:40 2013 -0400

    initial import
---
 .local.vimrc              |   1 +
 .perltidyrc               |  44 ++++++++++++++++++++
 CONTRIBUTING              |  50 +++++++++++++++++++++++
 Changes                   |   6 +++
 README.mkdn               |   1 +
 cpanfile                  |  28 +++++++++++++
 dist.ini                  |   9 +++++
 example/MyModule.pm       |  16 ++++++++
 example/app.pl            |  11 +++++
 lib/MooseX/Role/Logger.pm | 101 ++++++++++++++++++++++++++++++++++++++++++++++
 perlcritic.rc             |  23 +++++++++++
 tidyall.ini               |   5 +++
 12 files changed, 295 insertions(+)

diff --git a/.local.vimrc b/.local.vimrc
new file mode 100644
index 0000000..07e747d
--- /dev/null
+++ b/.local.vimrc
@@ -0,0 +1 @@
+autocmd BufWritePre *.pl,*.pm,*.t call DoTidyWrite()
diff --git a/.perltidyrc b/.perltidyrc
new file mode 100644
index 0000000..dfe7b7c
--- /dev/null
+++ b/.perltidyrc
@@ -0,0 +1,44 @@
+# DAGOLDEN .perltidyrc file
+
+-se     # Errors to STDERR
+
+-l=85   # Max line width target
+-vmll   # variable maximum line length
+-wc=10  # depth to reduce indentation levels
+-i=4    # Indent level
+-ci=2   # Continuation
+
+-vt=0   # vertical tightness
+-cti=0  # extra indentation for closing brackets
+-vtc=0  # close parens on own line if possible
+
+-nsot   # stack opening
+-nsct   # stack closing
+
+-notr    # opening tokens on right of a line
+-pt=1   # parenthesis tightness
+-bt=1   # brace tightness
+-sbt=1  # square bracket tightness
+-bbt=0  # block brace tightness
+#-boc    # break at old comma breakpoints
+-cab=1
+
+-nsfp   # no space after function
+-nsfs   # No space before semicolons in for loops
+
+-nolq   # Don't outdent long quoted strings
+-nola   # Don't outdent labels
+-nolc   # Don't outdent long comments
+-nokw   # Don't outdent keywords
+-nhsc   # Don't expect hanging side comments
+-nbbc   # No blank before comments
+-tso    # Tight secret operators
+
+-msc=1  # Space to side comment
+
+#-wbb="% + - * / x != == >= <= =~ !~ < > | & = **= += *= &= <<= &&= -= /= |= 
>>= ||= //= .= %= ^= x="
+-wbb="% + - * / x != == >= <= =~ !~ < > | &"
+        # Break before all operators except assignment
+
+-ole=unix # line endings
+
diff --git a/CONTRIBUTING b/CONTRIBUTING
new file mode 100644
index 0000000..aeb58e6
--- /dev/null
+++ b/CONTRIBUTING
@@ -0,0 +1,50 @@
+CONTRIBUTING
+
+Thank you for considering contributing to this distribution.  This file
+contains instructions that will help you work with the source code.
+
+The distribution is managed with Dist::Zilla.  This means than many of the
+usual files you might expect are not in the repository, but are generated
+at release time (e.g. Makefile.PL).
+
+However, you can run tests directly using the 'prove' tool:
+
+  $ prove -l
+  $ prove -lv t/some_test_file.t
+
+For most distributions, 'prove' is entirely sufficent for you to test any
+patches you have.
+
+You may need to satisfy some dependencies.  See the included META.json
+file for a list.  If you install App::mymeta_requires from CPAN, it's easy
+to satisfy any that you are missing by piping the output to your favorite
+CPAN client:
+
+  $ mymeta-requires | cpanm
+  $ cpan `mymeta-requires`
+
+Likewise, much of the documentation Pod is generated at release time.
+Depending on the distribution, some documentation may be written in a Pod
+dialect called WikiDoc. (See Pod::WikiDoc on CPAN.) If you would like to
+submit a documentation edit, please limit yourself to the documentation you
+see.
+
+If you see typos or documentation issues in the generated docs, please
+email or open a bug ticket instead of patching.
+
+Dist::Zilla is a very powerful authoring tool, but requires a number of
+author-specific plugins.  If you would like to use it for contributing,
+install it from CPAN, then run one of the following commands, depending on
+your CPAN client:
+
+  $ cpan `dzil authordeps`
+  $ dzil authordeps | cpanm
+
+Once installed, here are some dzil commands you might try:
+
+  $ dzil build
+  $ dzil test
+  $ dzil xtest
+
+You can learn more about Dist::Zilla at http://dzil.org/
+
diff --git a/Changes b/Changes
new file mode 100644
index 0000000..9865cb3
--- /dev/null
+++ b/Changes
@@ -0,0 +1,6 @@
+Revision history for MooseX-Role-Logger
+
+{{$NEXT}}
+
+    - First release
+
diff --git a/README.mkdn b/README.mkdn
new file mode 120000
index 0000000..73dfc33
--- /dev/null
+++ b/README.mkdn
@@ -0,0 +1 @@
+CONTRIBUTING
\ No newline at end of file
diff --git a/cpanfile b/cpanfile
new file mode 100644
index 0000000..53aa121
--- /dev/null
+++ b/cpanfile
@@ -0,0 +1,28 @@
+requires "Log::Any" => "0";
+requires "Moo::Role" => "0";
+requires "Types::Standard" => "0";
+requires "perl" => "v5.10.0";
+requires "strict" => "0";
+requires "warnings" => "0";
+
+on 'test' => sub {
+  requires "ExtUtils::MakeMaker" => "0";
+  requires "File::Spec" => "0";
+  requires "File::Spec::Functions" => "0";
+  requires "File::Temp" => "0";
+  requires "IO::Handle" => "0";
+  requires "IPC::Open3" => "0";
+  requires "List::Util" => "0";
+  requires "Test::More" => "0";
+};
+
+on 'configure' => sub {
+  requires "ExtUtils::MakeMaker" => "6.17";
+};
+
+on 'develop' => sub {
+  requires "Pod::Coverage::TrustPod" => "0";
+  requires "Test::CPAN::Meta" => "0";
+  requires "Test::Pod" => "1.41";
+  requires "Test::Pod::Coverage" => "1.08";
+};
diff --git a/dist.ini b/dist.ini
new file mode 100644
index 0000000..9da28ab
--- /dev/null
+++ b/dist.ini
@@ -0,0 +1,9 @@
+name    = MooseX-Role-Logger
+author  = David Golden <dagol...@cpan.org>
+license = Apache_2_0
+copyright_holder = David Golden
+copyright_year   = 2013
+
+[@DAGOLDEN]
+:version = 0.053
+
diff --git a/example/MyModule.pm b/example/MyModule.pm
new file mode 100644
index 0000000..f2ee790
--- /dev/null
+++ b/example/MyModule.pm
@@ -0,0 +1,16 @@
+use 5.008001;
+use strict;
+use warnings;
+
+package MyModule;
+
+use Moo;
+with 'MooseX::Role::Logger';
+
+sub cry {
+    my ($self) = @_;
+    $self->logger->info("I'm sad");
+}
+
+1;
+
diff --git a/example/app.pl b/example/app.pl
new file mode 100644
index 0000000..a8c2421
--- /dev/null
+++ b/example/app.pl
@@ -0,0 +1,11 @@
+use v5.10;
+use strict;
+use warnings;
+
+use MyModule;
+
+use Log::Any::Adapter ('Stdout');
+
+my $obj = MyModule->new;
+$obj->cry;
+
diff --git a/lib/MooseX/Role/Logger.pm b/lib/MooseX/Role/Logger.pm
new file mode 100644
index 0000000..46d9d21
--- /dev/null
+++ b/lib/MooseX/Role/Logger.pm
@@ -0,0 +1,101 @@
+use v5.10;
+use strict;
+use warnings;
+
+package MooseX::Role::Logger;
+# ABSTRACT: Provide logging via Log::Any
+# VERSION
+
+use Moo::Role;
+use Types::Standard qw/InstanceOf Str/;
+
+use Log::Any ();
+
+=method logger
+
+Returns a logging object.  See L<Log::Any> for a list of logging methods it 
accepts.
+
+=cut
+
+has logger => (
+    is => 'lazy',
+    # Log::Any::Proxy will be in next-gen Log::Any and replace 
Log::Any::Adapter::*
+    isa =>
+      InstanceOf [qw/Log::Any::Proxy Log::Any::Adapter::Base 
Log::Any::Adapter::Null/],
+    init_arg => undef,
+);
+
+sub _build_logger {
+    my ($self) = @_;
+    return Log::Any->get_logger( category => $self->_category );
+}
+
+has _category => (
+    is  => 'lazy',
+    isa => Str,
+);
+
+=method _build__category
+
+Override to set the category used for logging.  Defaults to the class name of
+the object (which could be a subclass).
+
+=cut
+
+sub _build__category { return ref $_[0] }
+
+1;
+
+=head1 SYNOPSIS
+
+In your modules:
+
+    package MyModule;
+    use Moose;
+    with 'MooseX::Role::Logger';
+
+    sub run {
+        my ($self) = @_;
+        $self->cry;
+    }
+
+    sub cry {
+        my ($self) = @_;
+        $self->logger->info("I'm feeling sad");
+    }
+
+In your application:
+
+    use MyModule;
+    use Log::Any::Adapter ('File', '/path/to/file.log');
+
+    MyModule->run;
+
+=head1 DESCRIPTION
+
+This role provides universal logging via L<Log::Any>.  The class using this
+role doesn't need to know or care about the details of log configuration,
+implementation or destination.
+
+Use it when you want your module to offer logging capabilities, but don't know
+who is going to use your module or what kind of logging they will implement,
+this role lets you do your part and leaves actual log setup and routing to
+someone else.
+
+The application that ultimately uses your module can then choose to direct log
+messages somewhere based on its own needs and configuration.
+
+This role is based on L<Moo> so should work with either L<Moo> or L<Moose>
+based classes.
+
+=head1 SEE ALSO
+
+=for :list
+* L<MooseX::Role::Loggable>
+* L<MooseX::Role::LogHandler>
+* L<MooseX::Log::Log4perl>
+* L<MooseX::Log::Dispatch>
+
+=cut
+
+# vim: ts=4 sts=4 sw=4 et:
diff --git a/perlcritic.rc b/perlcritic.rc
new file mode 100644
index 0000000..cef05a8
--- /dev/null
+++ b/perlcritic.rc
@@ -0,0 +1,23 @@
+severity = 5
+verbose = 8
+
+[Variables::ProhibitPunctuationVars]
+allow = $@ $!
+
+[TestingAndDebugging::ProhibitNoStrict]
+allow = refs
+
+# Turn these off
+[-BuiltinFunctions::ProhibitStringyEval]
+[-ControlStructures::ProhibitPostfixControls]
+[-ControlStructures::ProhibitUnlessBlocks]
+[-Documentation::RequirePodSections]
+[-InputOutput::ProhibitInteractiveTest]
+[-References::ProhibitDoubleSigils]
+[-RegularExpressions::RequireExtendedFormatting]
+[-InputOutput::ProhibitTwoArgOpen]
+[-Modules::ProhibitEvilModules]
+
+# Turn this on
+[Lax::ProhibitStringyEval::ExceptForRequire]
+
diff --git a/tidyall.ini b/tidyall.ini
new file mode 100644
index 0000000..91aa246
--- /dev/null
+++ b/tidyall.ini
@@ -0,0 +1,5 @@
+; Install Code::TidyAll
+; run "tidyall -a" to tidy all files
+; run "tidyall -g" to tidy only files modified from git
+[PerlTidy]
+select = {lib,t}/**/*.{pl,pm,t}

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libmoox-role-logger-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to