Commit cbbd4dba80566d9dcf1cfd94cf4485381d08ff89 - liblog-report-perl

+35

-1

ChangeLog less more

0	0
1	1	==== version history of Log::Report
2	2
3		Connect to Message::Passing
	3	TODO:
	4	. connect to Message::Passing framework
	5	. extract a Log::Report::Optional distribution
	6
	7	version 0.997: Fri Sep 27 17:37:11 CEST 2013
	8	Fixes:
	9	- error about double definedness of settings, dependent on the
	10	order of inclusion of modules.
	11	- setlocale does not return the old locale, but the new.
	12
	13	Improvements:
	14	- xgettext-perl: do not PPI files unless they are Perl
	15	- xgettext-perl: do warn when ' are used, needs " with __x
	16	- __x() now can have a _domain parameter
	17
	18	version 0.996: Wed Sep 4 17:23:11 CEST 2013
	19	Fixes:
	20	- you could not share one ::Translator::POT over two domains.
	21	discovered by [Richard Still]
	22	- third attempt to fix errors in t/53log4perl.t on Windows
	23	[cpantesters]
	24	- remove double reporting of errors which exceptions are caught
	25	with eval(). But better use try().
	26
	27	version 0.995: Thu Aug 29 09:19:13 CEST 2013
	28	Fixes:
	29	- twice path '\' in t/53log4perl.t in Windows [cpantesters]
	30
	31	version 0.994: Thu Aug 22 16:12:08 CEST 2013
	32	Fixes:
	33	- link to paper [Richard Still]
	34	- chicken-egg problem with error on illegal mode setting.
	35
	36	Improvements:
	37	- try to build new translation table at each 'make'
4	38
5	39	version 0.993: Thu Mar 28 10:59:27 CET 2013
6	40

+2

-2

META.json less more

3	3	"Mark Overmeer"
4	4	],
5	5	"dynamic_config" : 1,
6		"generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630",
	6	"generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120630",
7	7	"license" : [
8	8	"perl_5"
9	9	],

40	40	}
41	41	},
42	42	"release_status" : "stable",
43		"version" : "0.993"
	43	"version" : "0.997"
44	44	}

+2

-2

META.yml less more

6	6	configure_requires:
7	7	ExtUtils::MakeMaker: 0
8	8	dynamic_config: 1
9		generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630'
	9	generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120630'
10	10	license: perl
11	11	meta-spec:
12	12	url: http://module-build.sourceforge.net/META-spec-v1.4.html

22	22	Scalar::Util: 0
23	23	Sys::Syslog: 0.27
24	24	Test::More: 0.86
25		version: 0.993
	25	version: 0.997

+6

-5

Makefile.PL less more

1	1
2	2	use 5.008;
3	3
4		my $version = '0.993';
	4	my $version = '0.997';
5	5
6	6	my %prereq =
7	7	( Test::More => 0.86

44	44	HTML_DOCROOT = /log-report/html
45	45	HTML_PACKAGE = ../public_html/log-report/htmlpkg
46	46
47		# for Log::Report
48		xgettext: $(TO_INST_PM)
49		PERL5LIB=lib bin/xgettext-perl --mode=DEBUG \
50		-p lib/Log/Report/messages lib bin
51	47	__POSTAMBLE
	48
	49	# for translation tables
	50	#linkext::
	51	# - PERL5LIB="lib:$PERL5LIB" bin/xgettext-perl --mode=VERBOSE \
	52	# -p lib/Log/Report/messages lib bin

+8

-3

bin/xgettext-perl less more

0		#!/usr/bin/perl
	0	#!/usr/bin/env perl
1	1	# implements xgettext for Log::Report only, using Log::Report::Extract::PPI
2	2	# Options like GNU's xgettext
3	3

101	101	, charset => $char_out
102	102	);
103	103
104		$extr->process($_, charset => $char_in)
105		for @filenames;
	104	foreach my $filename (@filenames)
	105	{ unless($filename =~ m/\.p[lm]$/i)
	106	{ info __x"skipping (not perl) {fn}", fn => $filename;
	107	next;
	108	}
	109	$extr->process($filename, charset => $char_in);
	110	}
106	111	}
107	112
108	113	$extr->showStats;

+1

-1

lib/Log/Report/Die.pm less more

6	6
7	7	package Log::Report::Die;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Exporter';
12	12

+10

-2

lib/Log/Report/Die.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Die - compatibility routines with Perl's die/croak/confess

5	7
6	8	Log::Report::Die
7	9	is a Exporter
	10
	11	=head1 SYNOPSIS
	12
	13	=head1 DESCRIPTION
	14
	15	=head1 OVERLOADING
8	16
9	17	=head1 Functions
10	18

43	51
44	52	=head1 SEE ALSO
45	53
46		This module is part of Log-Report distribution version 0.993,
47		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	54	This module is part of Log-Report distribution version 0.997,
	55	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
48	56
49	57	=head1 LICENSE
50	58

+1

-1

lib/Log/Report/Dispatcher/Callback.pm less more

6	6
7	7	package Log::Report::Dispatcher::Callback;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Dispatcher';
12	12

+18

-2

lib/Log/Report/Dispatcher/Callback.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Dispatcher::Callback - call a code-ref for each log-line

26	28	may best make your own extension to L<Log::Report::Dispatcher\|Log::Report::Dispatcher>, but
27	29	for simple things this will do.
28	30
	31	See L<documentation in the base class\|Log::Report::Dispatcher/"DESCRIPTION">.
	32
29	33	=head1 METHODS
30	34
	35	See L<documentation in the base class\|Log::Report::Dispatcher/"METHODS">.
	36
31	37	=head2 Constructors
32	38
	39	See L<documentation in the base class\|Log::Report::Dispatcher/"Constructors">.
	40
33	41	=over 4
34	42
35	43	=item $obj-E<gt>B<close>()

72	80
73	81	=head2 Accessors
74	82
	83	See L<documentation in the base class\|Log::Report::Dispatcher/"Accessors">.
	84
75	85	=over 4
76	86
77	87	=item $obj-E<gt>B<callback>()

102	112
103	113	=head2 Logging
104	114
	115	See L<documentation in the base class\|Log::Report::Dispatcher/"Logging">.
	116
105	117	=over 4
106	118
107	119	=item $obj-E<gt>B<collectLocation>()

132	144
133	145	=back
134	146
	147	=head1 DETAILS
	148
	149	See L<documentation in the base class\|Log::Report::Dispatcher/"DETAILS">.
	150
135	151	=head1 SEE ALSO
136	152
137		This module is part of Log-Report distribution version 0.993,
138		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	153	This module is part of Log-Report distribution version 0.997,
	154	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
139	155
140	156	=head1 LICENSE
141	157

+1

-1

lib/Log/Report/Dispatcher/File.pm less more

6	6
7	7	package Log::Report::Dispatcher::File;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Dispatcher';
12	12

+18

-2

lib/Log/Report/Dispatcher/File.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Dispatcher::File - send messages to a file or file-handle

40	42
41	43	This basic file logger accepts an file-handle or filename as destination.
42	44
	45	See L<documentation in the base class\|Log::Report::Dispatcher/"DESCRIPTION">.
	46
43	47	=head1 METHODS
44	48
	49	See L<documentation in the base class\|Log::Report::Dispatcher/"METHODS">.
	50
45	51	=head2 Constructors
46	52
	53	See L<documentation in the base class\|Log::Report::Dispatcher/"Constructors">.
	54
47	55	=over 4
48	56
49	57	=item $obj-E<gt>B<close>()

99	107
100	108	=head2 Accessors
101	109
	110	See L<documentation in the base class\|Log::Report::Dispatcher/"Accessors">.
	111
102	112	=over 4
103	113
104	114	=item $obj-E<gt>B<filename>()

130	140
131	141	=head2 Logging
132	142
	143	See L<documentation in the base class\|Log::Report::Dispatcher/"Logging">.
	144
133	145	=over 4
134	146
135	147	=item $obj-E<gt>B<collectLocation>()

160	172
161	173	=back
162	174
	175	=head1 DETAILS
	176
	177	See L<documentation in the base class\|Log::Report::Dispatcher/"DETAILS">.
	178
163	179	=head1 SEE ALSO
164	180
165		This module is part of Log-Report distribution version 0.993,
166		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	181	This module is part of Log-Report distribution version 0.997,
	182	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
167	183
168	184	=head1 LICENSE
169	185

+1

-1

lib/Log/Report/Dispatcher/Log4perl.pm less more

6	6
7	7	package Log::Report::Dispatcher::Log4perl;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Dispatcher';
12	12

+18

-2

lib/Log/Report/Dispatcher/Log4perl.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Dispatcher::Log4perl - send messages to Log::Log4perl back-end

52	54	WARNING => $WARN PANIC => $FATAL
53	55	MISTAKE => $WARN
54	56
	57	See L<documentation in the base class\|Log::Report::Dispatcher/"DESCRIPTION">.
	58
55	59	=head1 METHODS
56	60
	61	See L<documentation in the base class\|Log::Report::Dispatcher/"METHODS">.
	62
57	63	=head2 Constructors
58	64
	65	See L<documentation in the base class\|Log::Report::Dispatcher/"Constructors">.
	66
59	67	=over 4
60	68
61	69	=item $obj-E<gt>B<close>()

103	111
104	112	=head2 Accessors
105	113
	114	See L<documentation in the base class\|Log::Report::Dispatcher/"Accessors">.
	115
106	116	=over 4
107	117
108	118	=item $obj-E<gt>B<appender>()

133	143
134	144	=head2 Logging
135	145
	146	See L<documentation in the base class\|Log::Report::Dispatcher/"Logging">.
	147
136	148	=over 4
137	149
138	150	=item $obj-E<gt>B<collectLocation>()

168	180
169	181	=back
170	182
	183	=head1 DETAILS
	184
	185	See L<documentation in the base class\|Log::Report::Dispatcher/"DETAILS">.
	186
171	187	=head1 SEE ALSO
172	188
173		This module is part of Log-Report distribution version 0.993,
174		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	189	This module is part of Log-Report distribution version 0.997,
	190	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
175	191
176	192	=head1 LICENSE
177	193

+1

-1

lib/Log/Report/Dispatcher/LogDispatch.pm less more

6	6
7	7	package Log::Report::Dispatcher::LogDispatch;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Dispatcher';
12	12

+18

-2

lib/Log/Report/Dispatcher/LogDispatch.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Dispatcher::LogDispatch - send messages to Log::Dispatch back-end

32	34	The default translation table is list below. You can change the mapping
33	35	using L<new(to_level)\|Log::Report::Dispatcher::LogDispatch/"Constructors">. See example in SYNOPSIS.
34	36
	37	See L<documentation in the base class\|Log::Report::Dispatcher/"DESCRIPTION">.
	38
35	39	=head1 METHODS
36	40
	41	See L<documentation in the base class\|Log::Report::Dispatcher/"METHODS">.
	42
37	43	=head2 Constructors
38	44
	45	See L<documentation in the base class\|Log::Report::Dispatcher/"Constructors">.
	46
39	47	=over 4
40	48
41	49	=item $obj-E<gt>B<close>()

100	108
101	109	=head2 Accessors
102	110
	111	See L<documentation in the base class\|Log::Report::Dispatcher/"Accessors">.
	112
103	113	=over 4
104	114
105	115	=item $obj-E<gt>B<backend>()

130	140
131	141	=head2 Logging
132	142
	143	See L<documentation in the base class\|Log::Report::Dispatcher/"Logging">.
	144
133	145	=over 4
134	146
135	147	=item $obj-E<gt>B<collectLocation>()

165	177
166	178	=back
167	179
	180	=head1 DETAILS
	181
	182	See L<documentation in the base class\|Log::Report::Dispatcher/"DETAILS">.
	183
168	184	=head1 SEE ALSO
169	185
170		This module is part of Log-Report distribution version 0.993,
171		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	186	This module is part of Log-Report distribution version 0.997,
	187	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
172	188
173	189	=head1 LICENSE
174	190

+1

-1

lib/Log/Report/Dispatcher/Perl.pm less more

6	6
7	7	package Log::Report::Dispatcher::Perl;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Dispatcher';
12	12

+11

-73

lib/Log/Report/Dispatcher/Perl.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Dispatcher::Perl - send messages to die and warn

24	26	In the early releases of Log::Report, it tried to simulate the behavior
25	27	of warn and die using STDERR and exit; however: that is not possible.
26	28
	29	See L<documentation in the base class\|Log::Report::Dispatcher/"DESCRIPTION">.
	30
27	31	=head1 METHODS
28	32
29		=head2 Constructors
	33	See L<documentation in the base class\|Log::Report::Dispatcher/"METHODS">.
	34
	35	=head1 DETAILS
30	36
31		=over 4
32
33		=item $obj-E<gt>B<close>()
34
35		See L<Log::Report::Dispatcher/"Constructors">
36
37		=item Log::Report::Dispatcher::Perl-E<gt>B<new>(TYPE, NAME, OPTIONS)
38
39		See L<Log::Report::Dispatcher/"Constructors">
40
41		=back
42
43		=head2 Accessors
44
45		=over 4
46
47		=item $obj-E<gt>B<isDisabled>()
48
49		See L<Log::Report::Dispatcher/"Accessors">
50
51		=item $obj-E<gt>B<mode>()
52
53		See L<Log::Report::Dispatcher/"Accessors">
54
55		=item $obj-E<gt>B<name>()
56
57		See L<Log::Report::Dispatcher/"Accessors">
58
59		=item $obj-E<gt>B<needs>()
60
61		See L<Log::Report::Dispatcher/"Accessors">
62
63		=item $obj-E<gt>B<type>()
64
65		See L<Log::Report::Dispatcher/"Accessors">
66
67		=back
68
69		=head2 Logging
70
71		=over 4
72
73		=item $obj-E<gt>B<collectLocation>()
74
75		=item Log::Report::Dispatcher::Perl-E<gt>B<collectLocation>()
76
77		See L<Log::Report::Dispatcher/"Logging">
78
79		=item $obj-E<gt>B<collectStack>([MAXDEPTH])
80
81		=item Log::Report::Dispatcher::Perl-E<gt>B<collectStack>([MAXDEPTH])
82
83		See L<Log::Report::Dispatcher/"Logging">
84
85		=item $obj-E<gt>B<log>(HASH-of-OPTIONS, REASON, MESSAGE)
86
87		See L<Log::Report::Dispatcher/"Logging">
88
89		=item $obj-E<gt>B<stackTraceLine>(OPTIONS)
90
91		=item Log::Report::Dispatcher::Perl-E<gt>B<stackTraceLine>(OPTIONS)
92
93		See L<Log::Report::Dispatcher/"Logging">
94
95		=item $obj-E<gt>B<translate>(HASH-of-OPTIONS, REASON, MESSAGE)
96
97		See L<Log::Report::Dispatcher/"Logging">
98
99		=back
100
	37	See L<documentation in the base class\|Log::Report::Dispatcher/"DETAILS">.
	38
101	39	=head1 SEE ALSO
102	40
103		This module is part of Log-Report distribution version 0.993,
104		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	41	This module is part of Log-Report distribution version 0.997,
	42	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
105	43
106	44	=head1 LICENSE
107	45

+1

-1

lib/Log/Report/Dispatcher/Syslog.pm less more

6	6
7	7	package Log::Report::Dispatcher::Syslog;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Dispatcher';
12	12

+18

-2

lib/Log/Report/Dispatcher/Syslog.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Dispatcher::Syslog - send messages to syslog

41	43	WARNING => LOG_WARNING PANIC => LOG_CRIT
42	44	MISTAKE => LOG_WARNING
43	45
	46	See L<documentation in the base class\|Log::Report::Dispatcher/"DESCRIPTION">.
	47
44	48	=head1 METHODS
45	49
	50	See L<documentation in the base class\|Log::Report::Dispatcher/"METHODS">.
	51
46	52	=head2 Constructors
47	53
	54	See L<documentation in the base class\|Log::Report::Dispatcher/"Constructors">.
	55
48	56	=over 4
49	57
50	58	=item $obj-E<gt>B<close>()

108	116
109	117	=head2 Accessors
110	118
	119	See L<documentation in the base class\|Log::Report::Dispatcher/"Accessors">.
	120
111	121	=over 4
112	122
113	123	=item $obj-E<gt>B<isDisabled>()

134	144
135	145	=head2 Logging
136	146
	147	See L<documentation in the base class\|Log::Report::Dispatcher/"Logging">.
	148
137	149	=over 4
138	150
139	151	=item $obj-E<gt>B<collectLocation>()

169	181
170	182	=back
171	183
	184	=head1 DETAILS
	185
	186	See L<documentation in the base class\|Log::Report::Dispatcher/"DETAILS">.
	187
172	188	=head1 SEE ALSO
173	189
174		This module is part of Log-Report distribution version 0.993,
175		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	190	This module is part of Log-Report distribution version 0.997,
	191	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
176	192
177	193	=head1 LICENSE
178	194

+1

-1

lib/Log/Report/Dispatcher/Try.pm less more

6	6
7	7	package Log::Report::Dispatcher::Try;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Dispatcher';
12	12

+18

-2

lib/Log/Report/Dispatcher/Try.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Dispatcher::Try - capture all reports as exceptions

54	56	They can be ignored, or thrown to a higher level try... causing
55	57	an exit of the program if there is none.
56	58
	59	See L<documentation in the base class\|Log::Report::Dispatcher/"DESCRIPTION">.
	60
57	61	=head1 METHODS
58	62
	63	See L<documentation in the base class\|Log::Report::Dispatcher/"METHODS">.
	64
59	65	=head2 Constructors
60	66
	67	See L<documentation in the base class\|Log::Report::Dispatcher/"Constructors">.
	68
61	69	=over 4
62	70
63	71	=item $obj-E<gt>B<close>()

100	108
101	109	=head2 Accessors
102	110
	111	See L<documentation in the base class\|Log::Report::Dispatcher/"Accessors">.
	112
103	113	=over 4
104	114
105	115	=item $obj-E<gt>B<died>([STRING])

136	146
137	147	=head2 Logging
138	148
	149	See L<documentation in the base class\|Log::Report::Dispatcher/"Logging">.
	150
139	151	=over 4
140	152
141	153	=item $obj-E<gt>B<collectLocation>()

226	238
227	239	=back
228	240
	241	=head1 DETAILS
	242
	243	See L<documentation in the base class\|Log::Report::Dispatcher/"DETAILS">.
	244
229	245	=head1 OVERLOADING
230	246
231	247	=over 4

246	262
247	263	=head1 SEE ALSO
248	264
249		This module is part of Log-Report distribution version 0.993,
250		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	265	This module is part of Log-Report distribution version 0.997,
	266	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
251	267
252	268	=head1 LICENSE
253	269

+6

-7

lib/Log/Report/Dispatcher.pm less more

6	6
7	7	package Log::Report::Dispatcher;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11
12	12	use Log::Report 'log-report', syntax => 'SHORT';

111	111	sub _set_mode($)
112	112	{ my $self = shift;
113	113	my $mode = $self->{mode} = $modes{$_[0]};
114		defined $mode
115		or error __x"unknown run mode '{mode}'", mode => $_[0];
116
117		$self->{needs} = [ expand_reasons $default_accept[$mode] ];
	114	defined $mode or panic "unknown run mode $_[0]";
	115
	116	$self->{needs} = [ expand_reasons $default_accept[$mode] ];
118	117
119	118	info __x"switching to run mode {mode}, accept {accept}"
120	119	, mode => $mode, accept => $default_accept[$mode];

139	138	}
140	139
141	140
142		my %always_loc = map {($_ => 1)} qw/ASSERT PANIC/;
	141	my %always_loc = map +($_ => 1), qw/ASSERT PANIC/;
143	142	sub translate($$$)
144	143	{ my ($self, $opts, $reason, $msg) = @_;
145	144

219	218	defined $sub or $nest = 1; # not found
220	219
221	220	# skip syntax==SHORT routine entries
222		$nest++ if defined $sub && $sub =~ m/^Log\:\:Report\:\:/;
	221	# $nest++ if defined $sub && $sub =~ m/^Log\:\:Report\:\:/;
223	222
224	223	# special trick by Perl for Carp::Heavy: adds @DB::args
225	224	{ package DB; # non-blank before package to avoid problem with OODoc

+4

-2

lib/Log/Report/Dispatcher.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Dispatcher - manage message dispatching, display or logging

340	342
341	343	=head1 SEE ALSO
342	344
343		This module is part of Log-Report distribution version 0.993,
344		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	345	This module is part of Log-Report distribution version 0.997,
	346	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
345	347
346	348	=head1 LICENSE
347	349

+1

-1

lib/Log/Report/Exception.pm less more

6	6
7	7	package Log::Report::Exception;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11
12	12	use Log::Report 'log-report';

+4

-2

lib/Log/Report/Exception.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Exception - a collected report

145	147
146	148	=head1 SEE ALSO
147	149
148		This module is part of Log-Report distribution version 0.993,
149		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	150	This module is part of Log-Report distribution version 0.997,
	151	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
150	152
151	153	=head1 LICENSE
152	154

+41

-29

lib/Log/Report/Extract/PerlPPI.pm less more

7	7
8	8	package Log::Report::Extract::PerlPPI;
9	9	use vars '$VERSION';
10		$VERSION = '0.993';
	10	$VERSION = '0.997';
11	11
12	12	use base 'Log::Report::Extract';
13	13

26	26	, N__w => [1, 0, 0, 0, 1]
27	27	);
28	28
	29	my $quote_mistake;
	30	{ my @q = map quotemeta, keys %msgids;
	31	local $" = '\|';
	32	$quote_mistake = qr/^(?:@q)\'/;
	33	}
	34
29	35
30	36	sub process($@)
31	37	{ my ($self, $fn, %opts) = @_;

36	42	or error __x"PPI only supports iso-8859-1 (latin-1) on the moment";
37	43
38	44	my $doc = PPI::Document->new($fn, readonly => 1)
39		or fault __x"cannot read from file {filename}", filename => $fn;
	45	or fault __x"cannot read perl from file {filename}", filename => $fn;
40	46
41	47	my @childs = $doc->schildren;
42	48	if(@childs==1 && ref $childs[0] eq 'PPI::Statement')

75	81	$self->_reset($domain, $fn);
76	82	}
77	83
78		$node->find_any
79		( sub { # look for the special translation markers
80		$_[1]->isa('PPI::Token::Word') or return 0;
	84	$node->find_any( sub {
	85	# look for the special translation markers
	86	$_[1]->isa('PPI::Token::Word') or return 0;
81	87
82		my $node = $_[1];
83		my $def = $msgids{$node->content} # get __() description
84		or return 0;
	88	my $node = $_[1];
	89	my $word = $node->content;
	90	if($word =~ $quote_mistake)
	91	{ warning __x"use double quotes not single, in {string} on {file} line {line}"
	92	, string => $word, fn => $fn, line => $node->location->[0];
	93	return 0;
	94	}
85	95
86		my @msgids = $self->_get($node, @$def)
87		or return 0;
	96	my $def = $msgids{$word} # get __() description
	97	or return 0;
88	98
89		my $line = $node->location->[0];
90		unless($domain)
91		{ mistake __x
92		"no text-domain for translatable at {fn} line {line}"
93		, fn => $fn, line => $line;
94		return 0;
95		}
	99	my @msgids = $self->_get($node, @$def)
	100	or return 0;
96	101
97		if($def->[4]) # must split? Bulk conversion strings
98		{ my @words = map {split} @msgids;
99		$self->store($domain, $fn, $line, $_) for @words;
100		$msgs_found += @words;
101		}
102		else
103		{ $self->store($domain, $fn, $line, @msgids);
104		$msgs_found += 1;
105		}
	102	my $line = $node->location->[0];
	103	unless($domain)
	104	{ mistake __x
	105	"no text-domain for translatable at {fn} line {line}"
	106	, fn => $fn, line => $line;
	107	return 0;
	108	}
106	109
107		0; # don't collect
108		}
109		);
	110	if($def->[4]) # must split? Bulk conversion strings
	111	{ my @words = map {split} @msgids;
	112	$self->store($domain, $fn, $line, $_) for @words;
	113	$msgs_found += @words;
	114	}
	115	else
	116	{ $self->store($domain, $fn, $line, @msgids);
	117	$msgs_found += 1;
	118	}
	119
	120	0; # don't collect
	121	});
110	122	}
111	123
112	124	$msgs_found;

+14

-2

lib/Log/Report/Extract/PerlPPI.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Extract::PerlPPI - Collect translatable strings from Perl using PPI

25	27	and the existing PO files will get updated accordingly. If no translations
26	28	exist yet, one C<textdomain/xx.po> file will be created.
27	29
	30	See L<documentation in the base class\|Log::Report::Extract/"DESCRIPTION">.
	31
28	32	=head1 METHODS
29	33
	34	See L<documentation in the base class\|Log::Report::Extract/"METHODS">.
	35
30	36	=head2 Constructors
31	37
	38	See L<documentation in the base class\|Log::Report::Extract/"Constructors">.
	39
32	40	=over 4
33	41
34	42	=item Log::Report::Extract::PerlPPI-E<gt>B<new>(OPTIONS)

39	47
40	48	=head2 Accessors
41	49
	50	See L<documentation in the base class\|Log::Report::Extract/"Accessors">.
	51
42	52	=over 4
43	53
44	54	=item $obj-E<gt>B<charset>()

61	71
62	72	=head2 Processors
63	73
	74	See L<documentation in the base class\|Log::Report::Extract/"Processors">.
	75
64	76	=over 4
65	77
66	78	=item $obj-E<gt>B<process>(FILENAME, OPTIONS)

94	106
95	107	=head1 SEE ALSO
96	108
97		This module is part of Log-Report distribution version 0.993,
98		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	109	This module is part of Log-Report distribution version 0.997,
	110	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
99	111
100	112	=head1 LICENSE
101	113

+1

-1

lib/Log/Report/Extract/Template.pm less more

7	7
8	8	package Log::Report::Extract::Template;
9	9	use vars '$VERSION';
10		$VERSION = '0.993';
	10	$VERSION = '0.997';
11	11
12	12	use base 'Log::Report::Extract';
13	13

+14

-2

lib/Log/Report/Extract/Template.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Extract::Template - collect translatable strings from template files

32	34	If no translations exist yet, one C<$textdomain.po> file will be
33	35	created as point to start. Copy that file into C<$textdomain/$lang.po>
34	36
	37	See L<documentation in the base class\|Log::Report::Extract/"DESCRIPTION">.
	38
35	39	=head1 METHODS
36	40
	41	See L<documentation in the base class\|Log::Report::Extract/"METHODS">.
	42
37	43	=head2 Constructors
38	44
	45	See L<documentation in the base class\|Log::Report::Extract/"Constructors">.
	46
39	47	=over 4
40	48
41	49	=item Log::Report::Extract::Template-E<gt>B<new>(OPTIONS)

67	75
68	76	=head2 Accessors
69	77
	78	See L<documentation in the base class\|Log::Report::Extract/"Accessors">.
	79
70	80	=over 4
71	81
72	82	=item $obj-E<gt>B<charset>()

93	103
94	104	=head2 Processors
95	105
	106	See L<documentation in the base class\|Log::Report::Extract/"Processors">.
	107
96	108	=over 4
97	109
98	110	=item $obj-E<gt>B<process>(FILENAME, OPTIONS)

210	222
211	223	=head1 SEE ALSO
212	224
213		This module is part of Log-Report distribution version 0.993,
214		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	225	This module is part of Log-Report distribution version 0.997,
	226	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
215	227
216	228	=head1 LICENSE
217	229

+1

-1

lib/Log/Report/Extract.pm less more

7	7
8	8	package Log::Report::Extract;
9	9	use vars '$VERSION';
10		$VERSION = '0.993';
	10	$VERSION = '0.997';
11	11
12	12
13	13	use Log::Report 'log-report';

+4

-2

lib/Log/Report/Extract.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Extract - Collect translatable strings

110	112
111	113	=head1 SEE ALSO
112	114
113		This module is part of Log-Report distribution version 0.993,
114		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	115	This module is part of Log-Report distribution version 0.997,
	116	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
115	117
116	118	=head1 LICENSE
117	119

+1

-1

lib/Log/Report/Lexicon/Index.pm less more

4	4
5	5	package Log::Report::Lexicon::Index;
6	6	use vars '$VERSION';
7		$VERSION = '0.993';
	7	$VERSION = '0.997';
8	8
9	9
10	10	use warnings;

+4

-2

lib/Log/Report/Lexicon/Index.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Lexicon::Index - search through available translation files

184	186
185	187	=head1 SEE ALSO
186	188
187		This module is part of Log-Report distribution version 0.993,
188		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	189	This module is part of Log-Report distribution version 0.997,
	190	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
189	191
190	192	=head1 LICENSE
191	193

+1

-1

lib/Log/Report/Lexicon/MOTcompact.pm less more

3	3	# Pod stripped from pm file by OODoc 2.01.
4	4	package Log::Report::Lexicon::MOTcompact;
5	5	use vars '$VERSION';
6		$VERSION = '0.993';
	6	$VERSION = '0.997';
7	7
8	8	use base 'Log::Report::Lexicon::Table';
9	9

+18

-2

lib/Log/Report/Lexicon/MOTcompact.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Lexicon::MOTcompact - use translations from an MO file

25	27	speed and low memory foot-print. You will not be able to sub-class
26	28	this class cleanly.
27	29
	30	See L<documentation in the base class\|Log::Report::Lexicon::Table/"DESCRIPTION">.
	31
28	32	=head1 METHODS
29	33
	34	See L<documentation in the base class\|Log::Report::Lexicon::Table/"METHODS">.
	35
30	36	=head2 Constructors
31	37
	38	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Constructors">.
	39
32	40	=over 4
33	41
34	42	=item Log::Report::Lexicon::MOTcompact-E<gt>B<new>(OPTIONS)

64	72
65	73	=head2 Attributes
66	74
	75	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Attributes">.
	76
67	77	=over 4
68	78
69	79	=item $obj-E<gt>B<filename>()

79	89
80	90	=head2 Managing PO's
81	91
	92	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Managing PO's">.
	93
82	94	=head3 Translation
83	95
	96	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Translation">.
	97
84	98	=over 4
85	99
86	100	=item $obj-E<gt>B<msgid>(STRING)

98	112
99	113	=head3 Administration
100	114
	115	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Administration">.
	116
101	117	=over 4
102	118
103	119	=item $obj-E<gt>B<add>(PO)

136	152
137	153	=head1 SEE ALSO
138	154
139		This module is part of Log-Report distribution version 0.993,
140		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	155	This module is part of Log-Report distribution version 0.997,
	156	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
141	157
142	158	=head1 LICENSE
143	159

+1

-1

lib/Log/Report/Lexicon/PO.pm less more

3	3	# Pod stripped from pm file by OODoc 2.01.
4	4	package Log::Report::Lexicon::PO;
5	5	use vars '$VERSION';
6		$VERSION = '0.993';
	6	$VERSION = '0.997';
7	7
8	8
9	9	use warnings;

+6

-2

lib/Log/Report/Lexicon/PO.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Lexicon::PO - one translation definition
	5
	6	=head1 SYNOPSIS
3	7
4	8	=head1 DESCRIPTION
5	9

199	203
200	204	=head1 SEE ALSO
201	205
202		This module is part of Log-Report distribution version 0.993,
203		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	206	This module is part of Log-Report distribution version 0.997,
	207	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
204	208
205	209	=head1 LICENSE
206	210

+1

-1

lib/Log/Report/Lexicon/POT.pm less more

3	3	# Pod stripped from pm file by OODoc 2.01.
4	4	package Log::Report::Lexicon::POT;
5	5	use vars '$VERSION';
6		$VERSION = '0.993';
	6	$VERSION = '0.997';
7	7
8	8	use base 'Log::Report::Lexicon::Table';
9	9

+18

-2

lib/Log/Report/Lexicon/POT.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Lexicon::POT - manage PO files

41	43	sincere simplification. Each PO record will be represented by a
42	44	L<Log::Report::Lexicon::PO\|Log::Report::Lexicon::PO>.
43	45
	46	See L<documentation in the base class\|Log::Report::Lexicon::Table/"DESCRIPTION">.
	47
44	48	=head1 METHODS
45	49
	50	See L<documentation in the base class\|Log::Report::Lexicon::Table/"METHODS">.
	51
46	52	=head2 Constructors
47	53
	54	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Constructors">.
	55
48	56	=over 4
49	57
50	58	=item Log::Report::Lexicon::POT-E<gt>B<new>(OPTIONS)

133	141
134	142	=head2 Attributes
135	143
	144	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Attributes">.
	145
136	146	=over 4
137	147
138	148	=item $obj-E<gt>B<charset>()

155	165
156	166	=head2 Managing PO's
157	167
	168	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Managing PO's">.
	169
158	170	=over 4
159	171
160	172	=item $obj-E<gt>B<removeReferencesTo>(FILENAME)

175	187
176	188	=head3 Translation
177	189
	190	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Translation">.
	191
178	192	=over 4
179	193
180	194	=item $obj-E<gt>B<msgid>(STRING)

192	206
193	207	=head3 Administration
194	208
	209	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Administration">.
	210
195	211	=over 4
196	212
197	213	=item $obj-E<gt>B<add>(PO)

248	264
249	265	=head1 SEE ALSO
250	266
251		This module is part of Log-Report distribution version 0.993,
252		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	267	This module is part of Log-Report distribution version 0.997,
	268	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
253	269
254	270	=head1 LICENSE
255	271

+1

-1

lib/Log/Report/Lexicon/POTcompact.pm less more

3	3	# Pod stripped from pm file by OODoc 2.01.
4	4	package Log::Report::Lexicon::POTcompact;
5	5	use vars '$VERSION';
6		$VERSION = '0.993';
	6	$VERSION = '0.997';
7	7
8	8	use base 'Log::Report::Lexicon::Table';
9	9

+18

-2

lib/Log/Report/Lexicon/POTcompact.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Lexicon::POTcompact - use translations from a POT file

29	31	If you like to change the content of PO files, then use
30	32	L<Log::Report::Lexicon::POT\|Log::Report::Lexicon::POT>.
31	33
	34	See L<documentation in the base class\|Log::Report::Lexicon::Table/"DESCRIPTION">.
	35
32	36	=head1 METHODS
33	37
	38	See L<documentation in the base class\|Log::Report::Lexicon::Table/"METHODS">.
	39
34	40	=head2 Constructors
35	41
	42	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Constructors">.
	43
36	44	=over 4
37	45
38	46	=item Log::Report::Lexicon::POTcompact-E<gt>B<new>(OPTIONS)

61	69
62	70	=head2 Attributes
63	71
	72	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Attributes">.
	73
64	74	=over 4
65	75
66	76	=item $obj-E<gt>B<filename>()

76	86
77	87	=head2 Managing PO's
78	88
	89	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Managing PO's">.
	90
79	91	=head3 Translation
80	92
	93	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Translation">.
	94
81	95	=over 4
82	96
83	97	=item $obj-E<gt>B<msgid>(STRING)

95	109
96	110	=head3 Administration
97	111
	112	See L<documentation in the base class\|Log::Report::Lexicon::Table/"Administration">.
	113
98	114	=over 4
99	115
100	116	=item $obj-E<gt>B<add>(PO)

133	149
134	150	=head1 SEE ALSO
135	151
136		This module is part of Log-Report distribution version 0.993,
137		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	152	This module is part of Log-Report distribution version 0.997,
	153	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
138	154
139	155	=head1 LICENSE
140	156

+1

-1

lib/Log/Report/Lexicon/Table.pm less more

3	3	# Pod stripped from pm file by OODoc 2.01.
4	4	package Log::Report::Lexicon::Table;
5	5	use vars '$VERSION';
6		$VERSION = '0.993';
	6	$VERSION = '0.997';
7	7
8	8
9	9	use warnings;

+4

-2

lib/Log/Report/Lexicon/Table.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Lexicon::Table - generic interface to translation tables

95	97
96	98	=head1 SEE ALSO
97	99
98		This module is part of Log-Report distribution version 0.993,
99		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	100	This module is part of Log-Report distribution version 0.997,
	101	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
100	102
101	103	=head1 LICENSE
102	104

+11

-5

lib/Log/Report/Message.pm less more

6	6
7	7	package Log::Report::Message;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11
12	12	use Log::Report 'log-report';

112	112
113	113	# create a translation
114	114	my $text = Log::Report->translator($self->{_domain})
115		->translate($self, $locale);
	115	->translate($self, $locale);
	116
116	117	defined $text or return ();
117	118
118		my $loc = defined $locale ? setlocale(LC_ALL, $locale) : undef;
	119	my $oldloc;
	120	if(defined $locale)
	121	{ $oldloc = setlocale(LC_ALL);
	122	setlocale(LC_ALL, $locale);
	123	}
119	124
120	125	if($self->{_expand})
121		{ my $re = join '\|', map { quotemeta $_ } keys %$self;
	126	{ my $re = join '\|', map quotemeta, keys %$self;
122	127	$text =~ s/\{($re)(\%[^}]*)?\}/$self->_expand($1,$2)/ge;
123	128	}
124	129

128	133	$text .= "$self->{_append}"
129	134	if defined $self->{_append};
130	135
131		setlocale(LC_ALL, $loc) if $loc;
	136	setlocale(LC_ALL, $oldloc)
	137	if defined $oldloc && $oldloc ne $locale;
132	138
133	139	$text;
134	140	}

+4

-2

lib/Log/Report/Message.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Message - a piece of text to be translated

496	498
497	499	=head1 SEE ALSO
498	500
499		This module is part of Log-Report distribution version 0.993,
500		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	501	This module is part of Log-Report distribution version 0.997,
	502	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
501	503
502	504	=head1 LICENSE
503	505

+1

-1

lib/Log/Report/Translator/Gettext.pm less more

6	6
7	7	package Log::Report::Translator::Gettext;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Translator';
12	12

+8

-40

lib/Log/Report/Translator/Gettext.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Translator::Gettext - the GNU gettext infrastructure

39	41	later you will probably also need bind_textdomain_codeset() which is
40	42	also only available on certain systems.
41	43
	44	See L<documentation in the base class\|Log::Report::Translator/"DESCRIPTION">.
	45
42	46	=head1 METHODS
43	47
44		=head2 Constructors
45
46		=over 4
47
48		=item Log::Report::Translator::Gettext-E<gt>B<new>(OPTIONS)
49
50		See L<Log::Report::Translator/"Constructors">
51
52		=back
53
54		=head2 Accessors
55
56		=over 4
57
58		=item $obj-E<gt>B<charset>()
59
60		See L<Log::Report::Translator/"Accessors">
61
62		=item $obj-E<gt>B<lexicons>()
63
64		See L<Log::Report::Translator/"Accessors">
65
66		=back
67
68		=head2 Translating
69
70		=over 4
71
72		=item $obj-E<gt>B<load>(DOMAIN, LOCALE)
73
74		See L<Log::Report::Translator/"Translating">
75
76		=item $obj-E<gt>B<translate>(MESSAGE, [LANGUAGE])
77
78		See L<Log::Report::Translator/"Translating">
79
80		=back
81
	48	See L<documentation in the base class\|Log::Report::Translator/"METHODS">.
	49
82	50	=head1 SEE ALSO
83	51
84		This module is part of Log-Report distribution version 0.993,
85		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	52	This module is part of Log-Report distribution version 0.997,
	53	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
86	54
87	55	=head1 LICENSE
88	56

+5

-5

lib/Log/Report/Translator/POT.pm less more

6	6
7	7	package Log::Report::Translator::POT;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Log::Report::Translator';
12	12

33	33	or return $self->SUPER::translate($msg, $lang);
34	34
35	35	my $pot
36		= exists $self->{pots}{$locale}
37		? $self->{pots}{$locale}
	36	= exists $self->{pots}{$domain}{$locale}
	37	? $self->{pots}{$domain}{$locale}
38	38	: $self->load($domain, $locale);
39	39
40	40	defined $pot

69	69
70	70	eval "require $class" or panic $@;
71	71
72		return $self->{pots}{$locale}
	72	return $self->{pots}{$domain}{$locale}
73	73	= $class->read($fn, charset => $self->charset);
74	74	}
75	75
76		$self->{pots}{$locale} = undef;
	76	$self->{pots}{$domain}{$locale} = undef;
77	77	}
78	78
79	79	1;

+14

-2

lib/Log/Report/Translator/POT.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Translator::POT - translation based on POT files

30	32	using L<Log::Report::Lexicon::POTcompact\|Log::Report::Lexicon::POTcompact>, which is much more efficient
31	33	than L<Log::Report::Lexicon::PO\|Log::Report::Lexicon::PO>.
32	34
	35	See L<documentation in the base class\|Log::Report::Translator/"DESCRIPTION">.
	36
33	37	=head1 METHODS
34	38
	39	See L<documentation in the base class\|Log::Report::Translator/"METHODS">.
	40
35	41	=head2 Constructors
36	42
	43	See L<documentation in the base class\|Log::Report::Translator/"Constructors">.
	44
37	45	=over 4
38	46
39	47	=item Log::Report::Translator::POT-E<gt>B<new>(OPTIONS)

54	62
55	63	=head2 Accessors
56	64
	65	See L<documentation in the base class\|Log::Report::Translator/"Accessors">.
	66
57	67	=over 4
58	68
59	69	=item $obj-E<gt>B<charset>()

68	78
69	79	=head2 Translating
70	80
	81	See L<documentation in the base class\|Log::Report::Translator/"Translating">.
	82
71	83	=over 4
72	84
73	85	=item $obj-E<gt>B<load>(DOMAIN, LOCALE)

82	94
83	95	=head1 SEE ALSO
84	96
85		This module is part of Log-Report distribution version 0.993,
86		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	97	This module is part of Log-Report distribution version 0.997,
	98	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
87	99
88	100	=head1 LICENSE
89	101

+1

-1

lib/Log/Report/Translator.pm less more

3	3	# Pod stripped from pm file by OODoc 2.01.
4	4	package Log::Report::Translator;
5	5	use vars '$VERSION';
6		$VERSION = '0.993';
	6	$VERSION = '0.997';
7	7
8	8
9	9	use warnings;

+4

-2

lib/Log/Report/Translator.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Translator - base implementation for translating messages

108	110
109	111	=head1 SEE ALSO
110	112
111		This module is part of Log-Report distribution version 0.993,
112		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	113	This module is part of Log-Report distribution version 0.997,
	114	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
113	115
114	116	=head1 LICENSE
115	117

+1

-1

lib/Log/Report/Util.pm less more

7	7
8	8	package Log::Report::Util;
9	9	use vars '$VERSION';
10		$VERSION = '0.993';
	10	$VERSION = '0.997';
11	11
12	12	use base 'Exporter';
13	13

+4

-2

lib/Log/Report/Util.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Util - helpful routines to Log::Report

77	79
78	80	=head1 SEE ALSO
79	81
80		This module is part of Log-Report distribution version 0.993,
81		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	82	This module is part of Log-Report distribution version 0.997,
	83	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
82	84
83	85	=head1 LICENSE
84	86

+1

-1

lib/Log/Report/Win32Locale.pm less more

6	6
7	7	package Log::Report::Win32Locale;
8	8	use vars '$VERSION';
9		$VERSION = '0.993';
	9	$VERSION = '0.997';
10	10
11	11	use base 'Exporter';
12	12

+4

-2

lib/Log/Report/Win32Locale.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report::Win32Locale - unix/windows locales

75	77
76	78	=head1 SEE ALSO
77	79
78		This module is part of Log-Report distribution version 0.993,
79		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	80	This module is part of Log-Report distribution version 0.997,
	81	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
80	82
81	83	=head1 LICENSE
82	84

+151

-60

lib/Log/Report/messages/log-report/nl_NL.po less more

3	3	"Project-Id-Version: log-report 0.01\n"
4	4	"Report-Msgid-Bugs-To:\n"
5	5	"POT-Creation-Date: 2007-05-14 17:14+0200\n"
6		"PO-Revision-Date: 2012-08-30 21:52+0200\n"
	6	"PO-Revision-Date: 2013-08-22 16:17+0200\n"
7	7	"Last-Translator: Mark Overmeer <mark@overmeer.net>\n"
8	8	"Language-Team:\n"
9	9	"MIME-Version: 1.0\n"

81	81	msgid "WARNING"
82	82	msgstr "WAARSCHUWING"
83	83
84		#: lib/Log/Report.pm:268
	84	#: lib/Log/Report.pm:256
85	85	msgid "a message object is reported with more parameters"
86	86	msgstr "een message object vergezeld van meer parameters"
87	87
88		#: lib/Log/Report/Dispatcher.pm:303 lib/Log/Report/Dispatcher.pm:313
	88	#: lib/Log/Report/Dispatcher.pm:299 lib/Log/Report/Dispatcher.pm:309
89	89	msgid "at {filename} line {line}"
90	90	msgstr "in {filename} regel {line}"
91	91

93	93	msgid "cannot create lexicon directory {dir}"
94	94	msgstr "kan lexicon map {dir} niet aanmaken"
95	95
96		#: bin/xgettext-perl:60
	96	#: bin/xgettext-perl:57
97	97	msgid "cannot create output directory {dir}"
98	98	msgstr "uitvoer map {dir} kan niet worden aangemaakt"
99	99

101	101	msgid "cannot find logger '{name}' in configuration {config}"
102	102	msgstr "kan logger '{name}' in configuratie {config} niet vinden"
103	103
104		#: bin/xgettext-perl:68
	104	#: bin/xgettext-perl:65
105	105	msgid "cannot read filename list from {fn}"
106	106	msgstr "lijst met filenamen {fn} kan niet worden gelezen"
107	107

109	109	msgid "cannot read from file {filename}"
110	110	msgstr "kan bestand {filename} niet lezen"
111	111
112		#: lib/Log/Report/Lexicon/POT.pm:146 lib/Log/Report/Lexicon/POTcompact.pm:69
	112	#: lib/Log/Report/Lexicon/MOTcompact.pm:70 lib/Log/Report/Lexicon/POT.pm:149
	113	#: lib/Log/Report/Lexicon/POTcompact.pm:60
113	114	msgid "cannot read in {cs} from file {fn}"
114	115	msgstr "kan bestand {fn} niet lezen in {cs}"
115	116
116		#: lib/Log/Report/Extract/Template.pm:92
	117	#: lib/Log/Report/Lexicon/MOTcompact.pm:77
	118	#, fuzzy
	119	msgid "cannot read magic from {fn}"
	120	msgstr ""
	121
	122	#: lib/Log/Report/Lexicon/MOTcompact.pm:129
	123	#, fuzzy
	124	msgid "cannot read msgids from {fn}, need {size} at {loc}"
	125	msgstr ""
	126
	127	#: lib/Log/Report/Lexicon/MOTcompact.pm:101
	128	#, fuzzy
	129	msgid "cannot read originals from {fn}, need {size} at {loc}"
	130	msgstr ""
	131
	132	#: lib/Log/Report/Lexicon/MOTcompact.pm:87
	133	#, fuzzy
	134	msgid "cannot read superblock from {fn}"
	135	msgstr ""
	136
	137	#: lib/Log/Report/Extract/Template.pm:98
117	138	msgid "cannot read template from {fn}"
118	139	msgstr "template {fn} kan niet worden gelezen"
	140
	141	#: lib/Log/Report/Lexicon/MOTcompact.pm:208
	142	#, fuzzy
	143	msgid "cannot read transl late from {fn}, need {size} at {loc}"
	144	msgstr ""
	145
	146	#: lib/Log/Report/Lexicon/MOTcompact.pm:112
	147	#: lib/Log/Report/Lexicon/MOTcompact.pm:140
	148	#, fuzzy
	149	msgid "cannot read translations from {fn}, need {size} at {loc}"
	150	msgstr ""
	151
	152	#: lib/Log/Report/Lexicon/MOTcompact.pm:123
	153	#, fuzzy
	154	msgid "cannot seek to {loc} in {fn} for msgid strings"
	155	msgstr ""
	156
	157	#: lib/Log/Report/Lexicon/MOTcompact.pm:97
	158	#, fuzzy
	159	msgid "cannot seek to {loc} in {fn} for originals"
	160	msgstr ""
	161
	162	#: lib/Log/Report/Lexicon/MOTcompact.pm:134
	163	#, fuzzy
	164	msgid "cannot seek to {loc} in {fn} for transl strings"
	165	msgstr ""
	166
	167	#: lib/Log/Report/Lexicon/MOTcompact.pm:108
	168	#, fuzzy
	169	msgid "cannot seek to {loc} in {fn} for translations"
	170	msgstr ""
	171
	172	#: lib/Log/Report/Lexicon/MOTcompact.pm:203
	173	#, fuzzy
	174	msgid "cannot seek to {loc} late in {fn} for transl strings"
	175	msgstr ""
119	176
120	177	#: lib/Log/Report/Dispatcher/File.pm:96
121	178	msgid "cannot write log into {file} with {binmode}"
122	179	msgstr "kan log niet naar bestand {file} schrijven in {binmode}"
123	180
124		#: lib/Log/Report/Lexicon/POT.pm:196
	181	#: lib/Log/Report/Lexicon/POT.pm:203
125	182	msgid "cannot write to file {fn} in {layers}"
126	183	msgstr "kan bestand {fn} niet schrijven in {layers}"
127	184
128		#: lib/Log/Report/Lexicon/POT.pm:107 lib/Log/Report/Lexicon/POT.pm:143
	185	#: lib/Log/Report/Lexicon/POT.pm:106 lib/Log/Report/Lexicon/POT.pm:146
129	186	msgid "charset parameter is required for {fn}"
130	187	msgstr "charset argument is verplicht voor {fn}"
131	188
132		#: lib/Log/Report/Lexicon/POTcompact.pm:66
	189	#: lib/Log/Report/Lexicon/MOTcompact.pm:57
	190	#: lib/Log/Report/Lexicon/POTcompact.pm:57
133	191	msgid "charset parameter required for {fn}"
134	192	msgstr ""
135	193

141	199	msgid "dispatcher {name} needs parameter 'to'"
142	200	msgstr "dispatcher {name} verlangt argument 'to'"
143	201
144		#: bin/xgettext-perl:65
	202	#: bin/xgettext-perl:62
145	203	msgid "do not combine command-line filenames with --files-from"
146	204	msgstr "combineer filenamen op de commando-regel niet met --files-from"
147	205

149	207	msgid "do not interpolate in msgid (found '{var}' in line {line})"
150	208	msgstr "gebruik geen variabelen in een msgid (vond '{var}' op regel {line'})"
151	209
152		#: lib/Log/Report/Lexicon/PO.pm:348
	210	#: lib/Log/Report/Lexicon/PO.pm:374
153	211	msgid "do not understand command '{cmd}' at {where}"
154	212	msgstr "commando '{cmd}' op plaats {where} niet begrepen"
155	213
156		#: lib/Log/Report/Lexicon/PO.pm:365
	214	#: lib/Log/Report/Lexicon/PO.pm:391
157	215	msgid ""
158	216	"do not understand line at {where}:\n"
159	217	" {line}"

161	219	"de regel op {where} wordt niet begrepen:\n"
162	220	" {line}"
163	221
164		#: lib/Log/Report.pm:654
	222	#: lib/Log/Report.pm:656
165	223	msgid "even length parameter list for __x at {where}"
166	224	msgstr "een even-lengte lijst van parameters bij __x bij {where}"
167	225
168		#: bin/xgettext-perl:57
	226	#: bin/xgettext-perl:54
169	227	msgid "explicit output directory (-p) required"
170	228	msgstr "expliciete uitvoer map (met -p) verplicht"
171	229

173	231	msgid "extractions require an explicit lexicon directory"
174	232	msgstr "een expliciete lexicon directory is nodig voor de uittreksels"
175	233
176		#: lib/Log/Report/Lexicon/POT.pm:163 lib/Log/Report/Lexicon/POTcompact.pm:106
	234	#: lib/Log/Report/Lexicon/MOTcompact.pm:162 lib/Log/Report/Lexicon/POT.pm:169
	235	#: lib/Log/Report/Lexicon/POTcompact.pm:100
177	236	msgid "failed reading from file {fn}"
178	237	msgstr "lezen uit bestand {fn} mislukt"
179	238

187	246	msgid "illegal format_reason '{format}' for dispatcher"
188	247	msgstr "onbekende format_reason '{format}' voor dispatcher"
189	248
190		#: lib/Log/Report/Lexicon/POTcompact.pm:182
	249	#: lib/Log/Report/Lexicon/Table.pm:98
191	250	msgid "invalid plural-form algorithm '{alg}'"
192	251	msgstr "incorrect meervoudsvorm algoritme '{alg}'"
193	252

195	254	msgid "message() of exception expects Log::Report::Message"
196	255	msgstr "message() van een exception verwacht een Log::Report::Message"
197	256
198		#: lib/Log/Report/Extract/Template.pm:102
	257	#: lib/Log/Report/Extract/Template.pm:93
199	258	msgid "need pattern to scan for, either via new() or process()"
200	259	msgstr "een scan pattern is nodig, via new() of process()"
201	260

208	267	msgid "no Perl in file {filename}"
209	268	msgstr ""
210	269
211		#: lib/Log/Report/Lexicon/POT.pm:187
	270	#: lib/Log/Report/Lexicon/POT.pm:194
212	271	msgid "no filename or file-handle specified for PO"
213	272	msgstr "geen bestandsnaam of -handle meegegeven voor PO"
214	273
215		#: lib/Log/Report/Lexicon/POT.pm:327
	274	#: lib/Log/Report/Lexicon/POT.pm:317
216	275	msgid "no header defined in POT for file {fn}"
217	276	msgstr "geen kop opgegeven in POT in bestand {fn}"
218	277
219		#: lib/Log/Report/Lexicon/PO.pm:370
	278	#: lib/Log/Report/Lexicon/PO.pm:397
220	279	msgid "no msgid in block {where}"
221	280	msgstr "geen msgid in blok {where}"
222	281
223		#: lib/Log/Report/Lexicon/PO.pm:446
	282	#: lib/Log/Report/Lexicon/PO.pm:476
224	283	msgid "no plurals for '{msgid}'"
225	284	msgstr "geen meervoudsvormen voor '{msgid}'"
226	285

228	287	msgid "no text-domain for translatable at {fn} line {line}"
229	288	msgstr "geen text-domain voor vertaalbare string in {fn} regel {line}"
230	289
231		#: lib/Log/Report.pm:505
	290	#: lib/Log/Report.pm:506
232	291	msgid "odd length parameter list for try(): forgot the terminating ';'?"
233	292	msgstr "oneven lengte van parameterlijst voor try(): afsluitende ';' vergeten?"
234	293
235		#: lib/Log/Report.pm:276
	294	#: lib/Log/Report.pm:264
236	295	msgid "odd length parameter list with '{msg}'"
237	296	msgstr "parameter-lijst van oneven lengte bij '{msg}'"
238	297
239		#: lib/Log/Report.pm:432
	298	#: lib/Log/Report.pm:421
240	299	msgid "only one dispatcher name accepted in SCALAR context"
241	300	msgstr "dispatcher gebruik in SCALAR context accepteert slechts één naam"
242	301
243		#: lib/Log/Report.pm:939
	302	#: lib/Log/Report.pm:954
244	303	msgid "only one package can contain configuration; for {domain} already in {pkg} in file {fn} line {line}"
245	304	msgstr "slechts één package mag configuratie informatie bevatten; voor {domain} is dit al gevonden in {pkg}, bestand {fn} regel {line}"
246	305
247		#: lib/Log/Report/Extract/PerlPPI.pm:77 lib/Log/Report/Extract/Template.pm:87
	306	#: lib/Log/Report/Extract/PerlPPI.pm:77 lib/Log/Report/Extract/Template.pm:90
248	307	msgid "processing file {fn} in {charset}"
249	308	msgstr "verwerk bestand {fn} in {charset}"
250	309
251		#: bin/xgettext-perl:54
	310	#: bin/xgettext-perl:51
252	311	msgid "programming language {lang} not supported"
253	312	msgstr "programmeertaal {lang} wordt niet ondersteund"
254	313
255		#: lib/Log/Report/Lexicon/PO.pm:360
	314	#: lib/Log/Report/Lexicon/PO.pm:386
256	315	msgid "quoted line is not a continuation at {where}"
257	316	msgstr "regel met quotes is geen voortzetting in {where}"
258	317
259		#: lib/Log/Report/Translator/POT.pm:85
260		msgid "read pot-file {filename} for {domain} in {locale}"
261		msgstr "lees pot bestand {filename} voor {domain} in {locale}"
	318	#~ msgid "read pot-file {filename} for {domain} in {locale}"
	319	#~ msgstr "lees pot bestand {filename} voor {domain} in {locale}"
	320
	321	#: lib/Log/Report/Translator/POT.pm:90
	322	#, fuzzy
	323	msgid "read table {filename} as {class} for {domain} in {locale}"
	324	msgstr ""
262	325
263	326	#: lib/Log/Report/Util.pm:136
264	327	msgid "reason '{begin}' more serious than '{end}' in '{reasons}"
265	328	msgstr "reden '{begin}' is serieuzer dan '{end}' in '{reasons}'"
266	329
267		#: lib/Log/Report/Extract/Template.pm:186
268		msgid "scan pattern `{pattern}' not recognized"
269		msgstr "scan patroon `{pattern}' wordt niet herkend"
	330	#~ msgid "scan pattern `{pattern}' not recognized"
	331	#~ msgstr "scan patroon `{pattern}' wordt niet herkend"
	332
	333	#: bin/xgettext-perl:83
	334	#, fuzzy
	335	msgid "specify a text-domain (-d) for the templates"
	336	msgstr ""
270	337
271	338	#: lib/Log/Report/Extract.pm:208
272	339	msgid "starting new textdomain {domain}, template in {filename}"
273	340	msgstr "begin van nieuw textdomain {domain}, sjabloon in {filename}"
274	341
275		#: lib/Log/Report/Lexicon/POTcompact.pm:194
	342	#: lib/Log/Report/Lexicon/POTcompact.pm:154
276	343	msgid "string '{text}' not between quotes at {location}"
277	344	msgstr "tekst '{text}' niet tussen quotes in {location}"
278	345

280	347	msgid "string is incorrect at line {line}: {error}"
281	348	msgstr "foutieve string in regel {regel}: {error}"
282	349
283		#: lib/Log/Report/Dispatcher.pm:215
	350	#: lib/Log/Report/Dispatcher.pm:211
284	351	msgid "switching to run mode {mode}, accept {accept}"
285	352	msgstr "verwerkingsmode {mode}, accepteert {accept}"
286	353
287		#: lib/Log/Report.pm:867
	354	#: lib/Log/Report.pm:882
288	355	msgid "syntax flag must be either SHORT or REPORT, not `{syntax}'"
289	356	msgstr "syntax parameter moet zijn SHORT of REPORT, niet `{syntax}'"
290	357

292	359	msgid "syslog level '{level}' not understood"
293	360	msgstr "syslog level '{level}' niet herkend"
294	361
295		#: lib/Log/Report.pm:907
	362	#: lib/Log/Report/Extract/Template.pm:145
	363	#, fuzzy
	364	msgid "template syntax error, no END in {fn} line {line}"
	365	msgstr ""
	366
	367	#: lib/Log/Report.pm:922
296	368	msgid "textdomain for translator not defined"
297	369	msgstr "tekstdomein voor vertaler niet gedefinieerd"
298	370
299		#: lib/Log/Report/Lexicon/POT.pm:112
	371	#: lib/Log/Report/Lexicon/POT.pm:111
300	372	msgid "textdomain parameter is required"
301	373	msgstr "tekstdomain argument is verplicht"
302	374
303		#: lib/Log/Report.pm:417
	375	#: lib/Log/Report.pm:406
304	376	msgid "the 'filter' sub-command needs a CODE reference"
305	377	msgstr "het 'filter' sub-commando verwacht een CODE referentie"
306	378
307		#: lib/Log/Report.pm:404
	379	#: lib/Log/Report.pm:393
308	380	msgid "the 'list' sub-command doesn't expect additional parameters"
309	381	msgstr "het 'list' sub-commando verwacht geen aanvullende argumenten"
310	382
311		#: lib/Log/Report.pm:410
	383	#: lib/Log/Report.pm:399
312	384	msgid "the 'needs' sub-command parameter '{reason}' is not a reason"
313	385	msgstr "het 'needs' sub-commando argument '{reason}' is geen reden"
314	386
315		#: lib/Log/Report/Lexicon/POT.pm:286
	387	#: lib/Log/Report/Lexicon/POT.pm:296
316	388	msgid "the only acceptable parameter is 'ACTIVE', not '{p}'"
317	389	msgstr "het enige geaccepteerde argument is 'ACTIVE', niet '{p}'"
318	390
319		#: lib/Log/Report.pm:245
	391	#: lib/Log/Report/Lexicon/Table.pm:93
	392	#, fuzzy
	393	msgid "there is no Plural-Forms field in the header"
	394	msgstr ""
	395
	396	#: lib/Log/Report.pm:233
320	397	msgid "token '{token}' not recognized as reason"
321	398	msgstr "token '{token}' niet herkend als reden"
322	399
323		#: lib/Log/Report/Lexicon/PO.pm:435
	400	#: lib/Log/Report/Lexicon/PO.pm:465
324	401	msgid "too many plurals for '{msgid}'"
325	402	msgstr "te veel meervouden voor '{msgid}'"
326	403
327		#: lib/Log/Report/Lexicon/POT.pm:269
	404	#: lib/Log/Report/Lexicon/POT.pm:279
328	405	msgid "translation already exists for '{msgid}'"
329	406	msgstr "er bestaat al een vertaling voor '{msgid}'"
330	407
331		#: lib/Log/Report.pm:914
	408	#: lib/Log/Report.pm:929
332	409	msgid "translator must be a Log::Report::Translator object"
333	410	msgstr "vertaler moet een Log::Report::Translator object zijn"
334	411

336	413	msgid "try-block stopped with {reason}: {text}"
337	414	msgstr "try-blok gestopt met {reason}: {text}"
338	415
339		#: lib/Log/Report/Lexicon/PO.pm:326
	416	#: lib/Log/Report/Lexicon/PO.pm:348
340	417	msgid "unknown comment type '{cmd}' at {where}"
341	418	msgstr "onbekend commentaar type '{cmd}' in {where}"
342	419
343		#: lib/Log/Report/Lexicon/PO.pm:294
	420	#: lib/Log/Report/Lexicon/PO.pm:316
344	421	msgid "unknown flag {flag} ignored"
345	422	msgstr "onbekende vlag {flag} wordt genegeerd"
346	423

348	425	msgid "unknown locale language in locale `{locale}'"
349	426	msgstr "onbekende locale taal in locale `{locale}'"
350	427
	428	#: lib/Log/Report/Extract/Template.pm:114
	429	#, fuzzy
	430	msgid "unknown pattern {pattern}"
	431	msgstr ""
	432
351	433	#: lib/Log/Report/Util.pm:133 lib/Log/Report/Util.pm:148
352	434	msgid "unknown reason {which} in '{reasons}'"
353	435	msgstr "onbekende reden {which} is '{reasons}'"
354	436
355		#: lib/Log/Report/Dispatcher.pm:211
356		msgid "unknown run mode '{mode}'"
357		msgstr "onbekende verwerkingsmode '{mode}'"
358
359		#: lib/Log/Report/Lexicon/POT.pm:108
	437	#~ msgid "unknown run mode '{mode}'"
	438	#~ msgstr "onbekende verwerkingsmode '{mode}'"
	439
	440	#: lib/Log/Report/Translator/POT.pm:87
	441	#, fuzzy
	442	msgid "unknown translation table extension '{ext}' in {filename}"
	443	msgstr ""
	444
	445	#: lib/Log/Report/Lexicon/POT.pm:107
360	446	msgid "unnamed file"
361	447	msgstr "naamloze file"
362	448
363		#: lib/Log/Report.pm:944
	449	#: lib/Log/Report/Lexicon/MOTcompact.pm:82
	450	#, fuzzy
	451	msgid "unsupported file type (magic number is {magic%x})"
	452	msgstr ""
	453
	454	#: lib/Log/Report.pm:959
364	455	msgid "value for {name} specified twice"
365	456	msgstr "twee keer een waarde voor {name}"
366	457
367		#: lib/Log/Report/Lexicon/POT.pm:212
	458	#: lib/Log/Report/Lexicon/POT.pm:219
368	459	msgid "write errors for file {fn}"
369	460	msgstr "schrijfproblemen bij bestand {fn}"
370	461

384	475	msgid "{domain}: {fuzzy%3d} fuzzy, {inact%3d} inactive in {filename}"
385	476	msgstr "{domain}: {fuzzy%3d} fuzzy, {inact%3d} op non-actief in {filename}"
386	477
387		#: lib/Log/Report/Dispatcher.pm:289
	478	#: lib/Log/Report/Dispatcher.pm:285
388	479	msgid "{message}; {error}"
389	480	msgstr "{message}; {error}"
390	481
391		#: lib/Log/Report/Dispatcher.pm:288
	482	#: lib/Log/Report/Dispatcher.pm:284
392	483	msgid "{reason}: {message}"
393	484	msgstr "{reason}: {message}"
394	485
395		#: lib/Log/Report/Dispatcher.pm:287
	486	#: lib/Log/Report/Dispatcher.pm:283
396	487	msgid "{reason}: {message}; {error}"
397	488	msgstr "{reason}: {message}; {error}"

+140

-61

lib/Log/Report/messages/log-report.utf-8.po less more

3	3	"Project-Id-Version: log-report 0.01\n"
4	4	"Report-Msgid-Bugs-To:\n"
5	5	"POT-Creation-Date: 2007-05-14 17:14+0200\n"
6		"PO-Revision-Date: 2012-08-30 21:52+0200\n"
	6	"PO-Revision-Date: 2013-08-22 16:17+0200\n"
7	7	"Last-Translator:\n"
8	8	"Language-Team:\n"
9	9	"MIME-Version: 1.0\n"

100	100	msgid "WARNING"
101	101	msgstr ""
102	102
103		#: lib/Log/Report.pm:268
	103	#: lib/Log/Report.pm:256
104	104	#, fuzzy
105	105	msgid "a message object is reported with more parameters"
106	106	msgstr ""
107	107
108		#: lib/Log/Report/Dispatcher.pm:303 lib/Log/Report/Dispatcher.pm:313
	108	#: lib/Log/Report/Dispatcher.pm:299 lib/Log/Report/Dispatcher.pm:309
109	109	#, fuzzy
110	110	msgid "at {filename} line {line}"
111	111	msgstr ""

115	115	msgid "cannot create lexicon directory {dir}"
116	116	msgstr ""
117	117
118		#: bin/xgettext-perl:60
	118	#: bin/xgettext-perl:57
119	119	#, fuzzy
120	120	msgid "cannot create output directory {dir}"
121	121	msgstr ""

125	125	msgid "cannot find logger '{name}' in configuration {config}"
126	126	msgstr ""
127	127
128		#: bin/xgettext-perl:68
	128	#: bin/xgettext-perl:65
129	129	#, fuzzy
130	130	msgid "cannot read filename list from {fn}"
131	131	msgstr ""

135	135	msgid "cannot read from file {filename}"
136	136	msgstr ""
137	137
138		#: lib/Log/Report/Lexicon/POT.pm:146 lib/Log/Report/Lexicon/POTcompact.pm:69
	138	#: lib/Log/Report/Lexicon/MOTcompact.pm:70 lib/Log/Report/Lexicon/POT.pm:149
	139	#: lib/Log/Report/Lexicon/POTcompact.pm:60
139	140	#, fuzzy
140	141	msgid "cannot read in {cs} from file {fn}"
141	142	msgstr ""
142	143
143		#: lib/Log/Report/Extract/Template.pm:92
	144	#: lib/Log/Report/Lexicon/MOTcompact.pm:77
	145	#, fuzzy
	146	msgid "cannot read magic from {fn}"
	147	msgstr ""
	148
	149	#: lib/Log/Report/Lexicon/MOTcompact.pm:129
	150	#, fuzzy
	151	msgid "cannot read msgids from {fn}, need {size} at {loc}"
	152	msgstr ""
	153
	154	#: lib/Log/Report/Lexicon/MOTcompact.pm:101
	155	#, fuzzy
	156	msgid "cannot read originals from {fn}, need {size} at {loc}"
	157	msgstr ""
	158
	159	#: lib/Log/Report/Lexicon/MOTcompact.pm:87
	160	#, fuzzy
	161	msgid "cannot read superblock from {fn}"
	162	msgstr ""
	163
	164	#: lib/Log/Report/Extract/Template.pm:98
144	165	#, fuzzy
145	166	msgid "cannot read template from {fn}"
146	167	msgstr ""
147	168
	169	#: lib/Log/Report/Lexicon/MOTcompact.pm:208
	170	#, fuzzy
	171	msgid "cannot read transl late from {fn}, need {size} at {loc}"
	172	msgstr ""
	173
	174	#: lib/Log/Report/Lexicon/MOTcompact.pm:112
	175	#: lib/Log/Report/Lexicon/MOTcompact.pm:140
	176	#, fuzzy
	177	msgid "cannot read translations from {fn}, need {size} at {loc}"
	178	msgstr ""
	179
	180	#: lib/Log/Report/Lexicon/MOTcompact.pm:123
	181	#, fuzzy
	182	msgid "cannot seek to {loc} in {fn} for msgid strings"
	183	msgstr ""
	184
	185	#: lib/Log/Report/Lexicon/MOTcompact.pm:97
	186	#, fuzzy
	187	msgid "cannot seek to {loc} in {fn} for originals"
	188	msgstr ""
	189
	190	#: lib/Log/Report/Lexicon/MOTcompact.pm:134
	191	#, fuzzy
	192	msgid "cannot seek to {loc} in {fn} for transl strings"
	193	msgstr ""
	194
	195	#: lib/Log/Report/Lexicon/MOTcompact.pm:108
	196	#, fuzzy
	197	msgid "cannot seek to {loc} in {fn} for translations"
	198	msgstr ""
	199
	200	#: lib/Log/Report/Lexicon/MOTcompact.pm:203
	201	#, fuzzy
	202	msgid "cannot seek to {loc} late in {fn} for transl strings"
	203	msgstr ""
	204
148	205	#: lib/Log/Report/Dispatcher/File.pm:96
149	206	#, fuzzy
150	207	msgid "cannot write log into {file} with {binmode}"
151	208	msgstr ""
152	209
153		#: lib/Log/Report/Lexicon/POT.pm:196
	210	#: lib/Log/Report/Lexicon/POT.pm:203
154	211	#, fuzzy
155	212	msgid "cannot write to file {fn} in {layers}"
156	213	msgstr ""
157	214
158		#: lib/Log/Report/Lexicon/POT.pm:107 lib/Log/Report/Lexicon/POT.pm:143
	215	#: lib/Log/Report/Lexicon/POT.pm:106 lib/Log/Report/Lexicon/POT.pm:146
159	216	#, fuzzy
160	217	msgid "charset parameter is required for {fn}"
161	218	msgstr ""
162	219
163		#: lib/Log/Report/Lexicon/POTcompact.pm:66
	220	#: lib/Log/Report/Lexicon/MOTcompact.pm:57
	221	#: lib/Log/Report/Lexicon/POTcompact.pm:57
164	222	#, fuzzy
165	223	msgid "charset parameter required for {fn}"
166	224	msgstr ""

175	233	msgid "dispatcher {name} needs parameter 'to'"
176	234	msgstr ""
177	235
178		#: bin/xgettext-perl:65
	236	#: bin/xgettext-perl:62
179	237	#, fuzzy
180	238	msgid "do not combine command-line filenames with --files-from"
181	239	msgstr ""

185	243	msgid "do not interpolate in msgid (found '{var}' in line {line})"
186	244	msgstr ""
187	245
188		#: lib/Log/Report/Lexicon/PO.pm:348
	246	#: lib/Log/Report/Lexicon/PO.pm:374
189	247	#, fuzzy
190	248	msgid "do not understand command '{cmd}' at {where}"
191	249	msgstr ""
192	250
193		#: lib/Log/Report/Lexicon/PO.pm:365
	251	#: lib/Log/Report/Lexicon/PO.pm:391
194	252	#, fuzzy
195	253	msgid ""
196	254	"do not understand line at {where}:\n"
197	255	" {line}"
198	256	msgstr ""
199	257
200		#: lib/Log/Report.pm:654
	258	#: lib/Log/Report.pm:656
201	259	#, fuzzy
202	260	msgid "even length parameter list for __x at {where}"
203	261	msgstr ""
204	262
205		#: bin/xgettext-perl:57
	263	#: bin/xgettext-perl:54
206	264	#, fuzzy
207	265	msgid "explicit output directory (-p) required"
208	266	msgstr ""

212	270	msgid "extractions require an explicit lexicon directory"
213	271	msgstr ""
214	272
215		#: lib/Log/Report/Lexicon/POT.pm:163 lib/Log/Report/Lexicon/POTcompact.pm:106
	273	#: lib/Log/Report/Lexicon/MOTcompact.pm:162 lib/Log/Report/Lexicon/POT.pm:169
	274	#: lib/Log/Report/Lexicon/POTcompact.pm:100
216	275	#, fuzzy
217	276	msgid "failed reading from file {fn}"
218	277	msgstr ""

229	288	msgid "illegal format_reason '{format}' for dispatcher"
230	289	msgstr ""
231	290
232		#: lib/Log/Report/Lexicon/POTcompact.pm:182
	291	#: lib/Log/Report/Lexicon/Table.pm:98
233	292	#, fuzzy
234	293	msgid "invalid plural-form algorithm '{alg}'"
235	294	msgstr ""

239	298	msgid "message() of exception expects Log::Report::Message"
240	299	msgstr ""
241	300
242		#: lib/Log/Report/Extract/Template.pm:102
	301	#: lib/Log/Report/Extract/Template.pm:93
243	302	#, fuzzy
244	303	msgid "need pattern to scan for, either via new() or process()"
245	304	msgstr ""

254	313	msgid "no Perl in file {filename}"
255	314	msgstr ""
256	315
257		#: lib/Log/Report/Lexicon/POT.pm:187
	316	#: lib/Log/Report/Lexicon/POT.pm:194
258	317	#, fuzzy
259	318	msgid "no filename or file-handle specified for PO"
260	319	msgstr ""
261	320
262		#: lib/Log/Report/Lexicon/POT.pm:327
	321	#: lib/Log/Report/Lexicon/POT.pm:317
263	322	#, fuzzy
264	323	msgid "no header defined in POT for file {fn}"
265	324	msgstr ""
266	325
267		#: lib/Log/Report/Lexicon/PO.pm:370
	326	#: lib/Log/Report/Lexicon/PO.pm:397
268	327	#, fuzzy
269	328	msgid "no msgid in block {where}"
270	329	msgstr ""
271	330
272		#: lib/Log/Report/Lexicon/PO.pm:446
	331	#: lib/Log/Report/Lexicon/PO.pm:476
273	332	#, fuzzy
274	333	msgid "no plurals for '{msgid}'"
275	334	msgstr ""

279	338	msgid "no text-domain for translatable at {fn} line {line}"
280	339	msgstr ""
281	340
282		#: lib/Log/Report.pm:505
	341	#: lib/Log/Report.pm:506
283	342	#, fuzzy
284	343	msgid "odd length parameter list for try(): forgot the terminating ';'?"
285	344	msgstr ""
286	345
287		#: lib/Log/Report.pm:276
	346	#: lib/Log/Report.pm:264
288	347	#, fuzzy
289	348	msgid "odd length parameter list with '{msg}'"
290	349	msgstr ""
291	350
292		#: lib/Log/Report.pm:432
	351	#: lib/Log/Report.pm:421
293	352	#, fuzzy
294	353	msgid "only one dispatcher name accepted in SCALAR context"
295	354	msgstr ""
296	355
297		#: lib/Log/Report.pm:939
	356	#: lib/Log/Report.pm:954
298	357	#, fuzzy
299	358	msgid "only one package can contain configuration; for {domain} already in {pkg} in file {fn} line {line}"
300	359	msgstr ""
301	360
302		#: lib/Log/Report/Extract/PerlPPI.pm:77 lib/Log/Report/Extract/Template.pm:87
	361	#: lib/Log/Report/Extract/PerlPPI.pm:77 lib/Log/Report/Extract/Template.pm:90
303	362	#, fuzzy
304	363	msgid "processing file {fn} in {charset}"
305	364	msgstr ""
306	365
307		#: bin/xgettext-perl:54
	366	#: bin/xgettext-perl:51
308	367	#, fuzzy
309	368	msgid "programming language {lang} not supported"
310	369	msgstr ""
311	370
312		#: lib/Log/Report/Lexicon/PO.pm:360
	371	#: lib/Log/Report/Lexicon/PO.pm:386
313	372	#, fuzzy
314	373	msgid "quoted line is not a continuation at {where}"
315	374	msgstr ""
316	375
317		#: lib/Log/Report/Translator/POT.pm:85
318		#, fuzzy
319		msgid "read pot-file {filename} for {domain} in {locale}"
	376	#: lib/Log/Report/Translator/POT.pm:90
	377	#, fuzzy
	378	msgid "read table {filename} as {class} for {domain} in {locale}"
320	379	msgstr ""
321	380
322	381	#: lib/Log/Report/Util.pm:136

324	383	msgid "reason '{begin}' more serious than '{end}' in '{reasons}"
325	384	msgstr ""
326	385
327		#: lib/Log/Report/Extract/Template.pm:186
328		#, fuzzy
329		msgid "scan pattern `{pattern}' not recognized"
	386	#: bin/xgettext-perl:83
	387	#, fuzzy
	388	msgid "specify a text-domain (-d) for the templates"
330	389	msgstr ""
331	390
332	391	#: lib/Log/Report/Extract.pm:208

334	393	msgid "starting new textdomain {domain}, template in {filename}"
335	394	msgstr ""
336	395
337		#: lib/Log/Report/Lexicon/POTcompact.pm:194
	396	#: lib/Log/Report/Lexicon/POTcompact.pm:154
338	397	#, fuzzy
339	398	msgid "string '{text}' not between quotes at {location}"
340	399	msgstr ""

344	403	msgid "string is incorrect at line {line}: {error}"
345	404	msgstr ""
346	405
347		#: lib/Log/Report/Dispatcher.pm:215
	406	#: lib/Log/Report/Dispatcher.pm:211
348	407	#, fuzzy
349	408	msgid "switching to run mode {mode}, accept {accept}"
350	409	msgstr ""
351	410
352		#: lib/Log/Report.pm:867
	411	#: lib/Log/Report.pm:882
353	412	#, fuzzy
354	413	msgid "syntax flag must be either SHORT or REPORT, not `{syntax}'"
355	414	msgstr ""

359	418	msgid "syslog level '{level}' not understood"
360	419	msgstr ""
361	420
362		#: lib/Log/Report.pm:907
	421	#: lib/Log/Report/Extract/Template.pm:145
	422	#, fuzzy
	423	msgid "template syntax error, no END in {fn} line {line}"
	424	msgstr ""
	425
	426	#: lib/Log/Report.pm:922
363	427	#, fuzzy
364	428	msgid "textdomain for translator not defined"
365	429	msgstr ""
366	430
367		#: lib/Log/Report/Lexicon/POT.pm:112
	431	#: lib/Log/Report/Lexicon/POT.pm:111
368	432	#, fuzzy
369	433	msgid "textdomain parameter is required"
370	434	msgstr ""
371	435
372		#: lib/Log/Report.pm:417
	436	#: lib/Log/Report.pm:406
373	437	#, fuzzy
374	438	msgid "the 'filter' sub-command needs a CODE reference"
375	439	msgstr ""
376	440
377		#: lib/Log/Report.pm:404
	441	#: lib/Log/Report.pm:393
378	442	#, fuzzy
379	443	msgid "the 'list' sub-command doesn't expect additional parameters"
380	444	msgstr ""
381	445
382		#: lib/Log/Report.pm:410
	446	#: lib/Log/Report.pm:399
383	447	#, fuzzy
384	448	msgid "the 'needs' sub-command parameter '{reason}' is not a reason"
385	449	msgstr ""
386	450
387		#: lib/Log/Report/Lexicon/POT.pm:286
	451	#: lib/Log/Report/Lexicon/POT.pm:296
388	452	#, fuzzy
389	453	msgid "the only acceptable parameter is 'ACTIVE', not '{p}'"
390	454	msgstr ""
391	455
392		#: lib/Log/Report.pm:245
	456	#: lib/Log/Report/Lexicon/Table.pm:93
	457	#, fuzzy
	458	msgid "there is no Plural-Forms field in the header"
	459	msgstr ""
	460
	461	#: lib/Log/Report.pm:233
393	462	#, fuzzy
394	463	msgid "token '{token}' not recognized as reason"
395	464	msgstr ""
396	465
397		#: lib/Log/Report/Lexicon/PO.pm:435
	466	#: lib/Log/Report/Lexicon/PO.pm:465
398	467	#, fuzzy
399	468	msgid "too many plurals for '{msgid}'"
400	469	msgstr ""
401	470
402		#: lib/Log/Report/Lexicon/POT.pm:269
	471	#: lib/Log/Report/Lexicon/POT.pm:279
403	472	#, fuzzy
404	473	msgid "translation already exists for '{msgid}'"
405	474	msgstr ""
406	475
407		#: lib/Log/Report.pm:914
	476	#: lib/Log/Report.pm:929
408	477	#, fuzzy
409	478	msgid "translator must be a Log::Report::Translator object"
410	479	msgstr ""

414	483	msgid "try-block stopped with {reason}: {text}"
415	484	msgstr ""
416	485
417		#: lib/Log/Report/Lexicon/PO.pm:326
	486	#: lib/Log/Report/Lexicon/PO.pm:348
418	487	#, fuzzy
419	488	msgid "unknown comment type '{cmd}' at {where}"
420	489	msgstr ""
421	490
422		#: lib/Log/Report/Lexicon/PO.pm:294
	491	#: lib/Log/Report/Lexicon/PO.pm:316
423	492	#, fuzzy
424	493	msgid "unknown flag {flag} ignored"
425	494	msgstr ""

429	498	msgid "unknown locale language in locale `{locale}'"
430	499	msgstr ""
431	500
	501	#: lib/Log/Report/Extract/Template.pm:114
	502	#, fuzzy
	503	msgid "unknown pattern {pattern}"
	504	msgstr ""
	505
432	506	#: lib/Log/Report/Util.pm:133 lib/Log/Report/Util.pm:148
433	507	#, fuzzy
434	508	msgid "unknown reason {which} in '{reasons}'"
435	509	msgstr ""
436	510
437		#: lib/Log/Report/Dispatcher.pm:211
438		#, fuzzy
439		msgid "unknown run mode '{mode}'"
440		msgstr ""
441
442		#: lib/Log/Report/Lexicon/POT.pm:108
	511	#: lib/Log/Report/Translator/POT.pm:87
	512	#, fuzzy
	513	msgid "unknown translation table extension '{ext}' in {filename}"
	514	msgstr ""
	515
	516	#: lib/Log/Report/Lexicon/POT.pm:107
443	517	#, fuzzy
444	518	msgid "unnamed file"
445	519	msgstr ""
446	520
447		#: lib/Log/Report.pm:944
	521	#: lib/Log/Report/Lexicon/MOTcompact.pm:82
	522	#, fuzzy
	523	msgid "unsupported file type (magic number is {magic%x})"
	524	msgstr ""
	525
	526	#: lib/Log/Report.pm:959
448	527	#, fuzzy
449	528	msgid "value for {name} specified twice"
450	529	msgstr ""
451	530
452		#: lib/Log/Report/Lexicon/POT.pm:212
	531	#: lib/Log/Report/Lexicon/POT.pm:219
453	532	#, fuzzy
454	533	msgid "write errors for file {fn}"
455	534	msgstr ""

473	552	msgid "{domain}: {fuzzy%3d} fuzzy, {inact%3d} inactive in {filename}"
474	553	msgstr ""
475	554
476		#: lib/Log/Report/Dispatcher.pm:289
	555	#: lib/Log/Report/Dispatcher.pm:285
477	556	#, fuzzy
478	557	msgid "{message}; {error}"
479	558	msgstr ""
480	559
481		#: lib/Log/Report/Dispatcher.pm:288
	560	#: lib/Log/Report/Dispatcher.pm:284
482	561	#, fuzzy
483	562	msgid "{reason}: {message}"
484	563	msgstr ""
485	564
486		#: lib/Log/Report/Dispatcher.pm:287
	565	#: lib/Log/Report/Dispatcher.pm:283
487	566	#, fuzzy
488	567	msgid "{reason}: {message}; {error}"
489	568	msgstr ""

+6

-4

lib/Log/Report.pm less more

7	7
8	8	package Log::Report;
9	9	use vars '$VERSION';
10		$VERSION = '0.993';
	10	$VERSION = '0.997';
11	11
12	12	use base 'Exporter';
13	13

136	136	}
137	137	}
138	138
139		if(@last_call)
	139	if(@last_call && !$^S)
140	140	{ # the PERL dispatcher may terminate the program
141	141	shift(@last_call)->log(@last_call);
142	142	}

300	300	{ @_%2 or error __x"even length parameter list for __x at {where}",
301	301	where => join(' line ', (caller)[1,2]);
302	302
	303	my $msgid = shift;
303	304	Log::Report::Message->new
304		( _msgid => @_
	305	( _msgid => $msgid
305	306	, _expand => 1
306	307	, _domain => _default_domain(caller)
	308	, @_
307	309	);
308	310	}
309	311

429	431	$domain \|\|= 'rescue';
430	432
431	433	defined $value
432		or return $settings{$domain}{$name};
	434	or return ($settings{$domain} ? $settings{$domain}{$name} : undef);
433	435
434	436	# Where is the setting done?
435	437	my ($pkg, $fn, $line) = @_;

+8

-5

lib/Log/Report.pod less more

	0	=encoding utf8
	1
0	2	=head1 NAME
1	3
2	4	Log::Report - report a problem, with exceptions and translation support

96	98
97	99	Also, you can study this module swiftly via the article published in
98	100	the German Perl $foo-magazine. English version:
99		F<http://perl.overmeer.net/log-report/papers/201308-PerlMagazine-article-en.html>
	101	F<http://perl.overmeer.net/log-report/papers/201306-PerlMagazine-article-en.html>
100	102
101	103	=head1 FUNCTIONS
102	104

440	442	later. Translating is invoked when the object gets stringified. When
441	443	you have no translation tables, the MSGID will be shown untranslated.
442	444
443		If you need options for L<Log::Report::Message::new()\|Log::Report::Message/"Constructors"> then
444		use L<__x()\|Log::Report/"Language Translations">.
	445	If you need options for L<Log::Report::Message::new()\|Log::Report::Message/"Constructors"> then use L<__x()\|Log::Report/"Language Translations">;
	446	the prototype of this function does not permit parameters: it is a
	447	prefix operator!
445	448
446	449	example: how to use __()
447	450

1056	1059
1057	1060	=head1 SEE ALSO
1058	1061
1059		This module is part of Log-Report distribution version 0.993,
1060		built on March 28, 2013. Website: F<http://perl.overmeer.net/log-report/>
	1062	This module is part of Log-Report distribution version 0.997,
	1063	built on September 27, 2013. Website: F<http://perl.overmeer.net/log-report/>
1061	1064
1062	1065	=head1 LICENSE
1063	1066

+1

-8

t/04locale.t less more

27	27	defined $alt_locale
28	28	or plan skip_all => "cannot find alternative language for tests";
29	29
30		plan tests => 11;
	30	plan tests => 10;
31	31	}
32	32
33	33	ok(1, "alt locale: $alt_locale");

44	44
45	45	my $change = setlocale LC_ALL, $alt_locale;
46	46	ok(defined $change, "returned change to alternative locale");
47		if($change eq $alt_locale)
48		{ ok(1, "WARNING: setlocale() returns new locale value, not the previous");
49		warn "*** WARNING: setlocale() returns new locale value, not the previous\n";
50		}
51		else
52		{ ok(1, "result is old value");
53		}
54	47
55	48	is(setlocale(LC_ALL), $alt_locale, "set to $alt_locale successful?");
56	49	$! = 2;

+6

-2

t/20pot_read.t less more

5	5	use lib 'lib', '../lib';
6	6	use utf8;
7	7
8		use Test::More tests => 43;
	8	use Test::More tests => 44;
9	9	use File::Basename qw/dirname/;
10	10	use File::Spec::Functions qw/catfile/;
	11	use Encode qw/is_utf8/;
11	12
12	13	use_ok('Log::Report::Lexicon::PO');
13	14	use_ok('Log::Report::Lexicon::POT');

109	110
110	111	my $po2 = $pot->msgid("This program is running as process number {pid}.multi-line\n");
111	112	ok(defined $po2, 'test multi');
112		is($po2->msgstr, "Ta program teče kot proces številka {pid}.multi\tline\n");
113	113
	114	my $po2t = $po2->msgstr;
	115	is($po2t, "Ta program teče kot proces številka {pid}.multi\tline\n");
	116	ok(is_utf8($po2t), 'is utf8');
	117

+7

-4

t/53log4perl.t less more

48	48	my $s1 = -s $outfn;
49	49	cmp_ok($s1, '>', 0);
50	50	$log_line = <$out>;
51		$expected_msg = " $0 $line_number> notice: this is a test";
52		like($log_line, qr/^$date_qr\Q$expected_msg\E$/);
	51	$log_line =~ s!\\!/!g; # windows
	52	$expected_msg = "$line_number> notice: this is a test";
	53	# do not anchor at the end: $ does not match on Windows
	54	like($log_line, qr!^$date_qr t[/\\]53log4perl\.t \Q$expected_msg\E!);
53	55
54	56	warning "some more"; $line_number = __LINE__;
55	57	my $s2 = -s $outfn;
56	58	cmp_ok($s2, '>', $s1);
57	59	$log_line = do { <$out> };
58		$expected_msg = " $0 $line_number> warning: some more";
59		like($log_line, qr/^$date_qr\Q$expected_msg\E$/);
	60	$log_line =~ s!\\!/!g; # windows
	61	$expected_msg = "$line_number> warning: some more";
	62	like($log_line, qr!^$date_qr t[/\\]53log4perl\.t \Q$expected_msg\E!);
60	63
61	64	unlink $outfn;
62	65

+1

-1

t/DieTests.pm less more

3	3	# Pod stripped from pm file by OODoc 2.01.
4	4	package DieTests;
5	5	use vars '$VERSION';
6		$VERSION = '0.993';
	6	$VERSION = '0.997';
7	7
8	8	use warnings;
9	9	use strict;