Commit 47cd009e authored by gregor herrmann's avatar gregor herrmann

Imported Upstream version 1.101245

parent 226a2eb7
Revision history for String-Flogger
1.101245 2014-08-08 18:43:38-04:00 America/New_York
- switch from JSON to JSON::MaybeXS
1.101244 2013-10-15 22:35:34 America/New_York
update bugtracker and repo
......
This software is copyright (c) 2013 by Ricardo SIGNES <rjbs@cpan.org>.
This software is copyright (c) 2014 by Ricardo SIGNES <rjbs@cpan.org>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
......@@ -12,7 +12,7 @@ b) the "Artistic License"
--- The GNU General Public License, Version 1, February 1989 ---
This software is Copyright (c) 2013 by Ricardo SIGNES <rjbs@cpan.org>.
This software is Copyright (c) 2014 by Ricardo SIGNES <rjbs@cpan.org>.
This is free software, licensed under:
......@@ -22,7 +22,7 @@ This is free software, licensed under:
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
......@@ -272,7 +272,7 @@ That's all there is to it!
--- The Artistic License 1.0 ---
This software is Copyright (c) 2013 by Ricardo SIGNES <rjbs@cpan.org>.
This software is Copyright (c) 2014 by Ricardo SIGNES <rjbs@cpan.org>.
This is free software, licensed under:
......
# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.020.
Changes
LICENSE
MANIFEST
......@@ -7,7 +8,6 @@ Makefile.PL
README
dist.ini
lib/String/Flogger.pm
t/00-compile.t
t/000-report-versions-tiny.t
t/basic.t
t/synopsis.t
......
This diff is collapsed.
This diff is collapsed.
# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.020.
use strict;
use warnings;
use ExtUtils::MakeMaker 6.30;
use ExtUtils::MakeMaker ;
my %WriteMakefileArgs = (
"ABSTRACT" => "string munging for loggers",
"AUTHOR" => "Ricardo SIGNES <rjbs\@cpan.org>",
"BUILD_REQUIRES" => {},
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => "6.30"
"ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "String-Flogger",
"EXE_FILES" => [],
"LICENSE" => "perl",
"NAME" => "String::Flogger",
"PREREQ_PM" => {
"JSON" => 0,
"JSON::MaybeXS" => 0,
"Params::Util" => 0,
"Scalar::Util" => 0,
"Sub::Exporter" => 0,
......@@ -29,42 +29,31 @@ my %WriteMakefileArgs = (
"warnings" => 0
},
"TEST_REQUIRES" => {
"File::Spec" => 0,
"IO::Handle" => 0,
"IPC::Open3" => 0,
"Test::More" => "0.96"
},
"VERSION" => "1.101244",
"VERSION" => "1.101245",
"test" => {
"TESTS" => "t/*.t"
}
);
unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
my $tr = delete $WriteMakefileArgs{TEST_REQUIRES};
my $br = $WriteMakefileArgs{BUILD_REQUIRES};
for my $mod ( keys %$tr ) {
if ( exists $br->{$mod} ) {
$br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
}
else {
$br->{$mod} = $tr->{$mod};
}
}
}
my %FallbackPrereqs = (
"JSON::MaybeXS" => 0,
"Params::Util" => 0,
"Scalar::Util" => 0,
"Sub::Exporter" => 0,
"Sub::Exporter::Util" => 0,
"Test::More" => "0.96",
"strict" => 0,
"warnings" => 0
);
unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
my $pp = $WriteMakefileArgs{PREREQ_PM};
for my $mod ( keys %$br ) {
if ( exists $pp->{$mod} ) {
$pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
}
else {
$pp->{$mod} = $br->{$mod};
}
}
unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
delete $WriteMakefileArgs{TEST_REQUIRES};
delete $WriteMakefileArgs{BUILD_REQUIRES};
$WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
......
This archive contains the distribution String-Flogger,
version 1.101244:
version 1.101245:
string munging for loggers
This software is copyright (c) 2013 by Ricardo SIGNES <rjbs@cpan.org>.
This software is copyright (c) 2014 by Ricardo SIGNES <rjbs@cpan.org>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
This README file was generated by Dist::Zilla::Plugin::Readme v5.020.
use strict;
use warnings;
package String::Flogger;
{
$String::Flogger::VERSION = '1.101244';
}
# ABSTRACT: string munging for loggers
$String::Flogger::VERSION = '1.101245';
use Params::Util qw(_ARRAYLIKE _CODELIKE);
use Scalar::Util qw(blessed);
use Sub::Exporter::Util ();
use Sub::Exporter -setup => [ flog => Sub::Exporter::Util::curry_method ];
#pod =head1 SYNOPSIS
#pod
#pod use String::Flogger qw(flog);
#pod
#pod my @inputs = (
#pod 'simple!',
#pod
#pod [ 'slightly %s complex', 'more' ],
#pod
#pod [ 'and inline some data: %s', { look => 'data!' } ],
#pod
#pod [ 'and we can defer evaluation of %s if we want', sub { 'stuff' } ],
#pod
#pod sub { 'while avoiding sprintfiness, if needed' },
#pod );
#pod
#pod say flog($_) for @inputs;
#pod
#pod The above will output:
#pod
#pod simple!
#pod
#pod slightly more complex
#pod
#pod and inline some data: {{{ "look": "data!" }}}
#pod
#pod and we can defer evaluation of stuff if we want
#pod
#pod while avoiding sprintfiness, if needed
#pod
#pod =method flog
#pod
#pod This method is described in the synopsis.
#pod
#pod =method format_string
#pod
#pod $flogger->format_string($fmt, \@input);
#pod
#pod This method is used to take the formatted arguments for a format string (when
#pod C<flog> is passed an arrayref) and turn it into a string. By default, it just
#pod uses C<L<perlfunc/sprintf>>.
#pod
#pod =cut
sub _encrefs {
my ($self, $messages) = @_;
......@@ -31,13 +71,13 @@ sub _stringify_ref {
return "ref($str)";
}
require JSON;
$JSON ||= JSON->new
->ascii(1)
->canonical(1)
->allow_nonref(1)
->space_after(1)
->convert_blessed(1);
require JSON::MaybeXS;
$JSON ||= JSON::MaybeXS->new
->ascii(1)
->canonical(1)
->allow_nonref(1)
->space_after(1)
->convert_blessed(1);
# This is horrible. Just horrible. I wish I could do this with a callback
# passed to JSON: https://rt.cpan.org/Ticket/Display.html?id=54321
......@@ -77,13 +117,15 @@ __END__
=pod
=encoding UTF-8
=head1 NAME
String::Flogger - string munging for loggers
=head1 VERSION
version 1.101244
version 1.101245
=head1 SYNOPSIS
......@@ -135,7 +177,7 @@ Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Ricardo SIGNES <rjbs@cpan.org>.
This software is copyright (c) 2014 by Ricardo SIGNES <rjbs@cpan.org>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
......
use strict;
use warnings;
# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.036
use Test::More 0.94 tests => 1;
my @module_files = (
'String/Flogger.pm'
);
# no fake home requested
my $inc_switch = q[-Mblib];
use File::Spec;
use IPC::Open3;
use IO::Handle;
my @warnings;
for my $lib (@module_files)
{
# see L<perlfaq8/How can I capture STDERR from an external command?>
open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
my $stderr = IO::Handle->new;
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
my @_warnings = <$stderr>;
waitpid($pid, 0);
is($?, 0, "$lib loaded ok");
if (@_warnings)
{
warn @_warnings;
push @warnings, @_warnings;
}
}
# no warning checks;
BAIL_OUT("Compilation problems") if !Test::More->builder->is_passing;
......@@ -48,11 +48,8 @@ sub pmver {
return sprintf('%-45s => %-10s%-15s%s', $module, $pmver, $wanted, "\n");
}
eval { $v .= pmver('ExtUtils::MakeMaker','6.30') };
eval { $v .= pmver('File::Spec','any version') };
eval { $v .= pmver('IO::Handle','any version') };
eval { $v .= pmver('IPC::Open3','any version') };
eval { $v .= pmver('JSON','any version') };
eval { $v .= pmver('ExtUtils::MakeMaker','any version') };
eval { $v .= pmver('JSON::MaybeXS','any version') };
eval { $v .= pmver('Params::Util','any version') };
eval { $v .= pmver('Scalar::Util','any version') };
eval { $v .= pmver('Sub::Exporter','any version') };
......
......@@ -4,7 +4,7 @@ use Test::More tests => 2;
note 'Checking Changes';
my $changes_file = 'Changes';
my $newver = '1.101244';
my $newver = '1.101245';
my $trial_token = '-TRIAL';
SKIP: {
......
#!perl
# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
use Test::More;
eval "use Test::Pod 1.41";
plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
use Test::Pod 1.41;
all_pod_files_ok();
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment