[Catalyst-commits] r6572 - in trunk/Catalyst-Plugin-I18N: . lib
lib/Catalyst lib/Catalyst/Plugin
bricas at dev.catalyst.perl.org
bricas at dev.catalyst.perl.org
Tue Jul 17 21:40:24 GMT 2007
Author: bricas
Date: 2007-07-17 21:40:23 +0100 (Tue, 17 Jul 2007)
New Revision: 6572
Added:
trunk/Catalyst-Plugin-I18N/MANIFEST.SKIP
trunk/Catalyst-Plugin-I18N/lib/
trunk/Catalyst-Plugin-I18N/lib/Catalyst/
trunk/Catalyst-Plugin-I18N/lib/Catalyst/Plugin/
trunk/Catalyst-Plugin-I18N/lib/Catalyst/Plugin/I18N.pm
Removed:
trunk/Catalyst-Plugin-I18N/I18N.pm
trunk/Catalyst-Plugin-I18N/MANIFEST
trunk/Catalyst-Plugin-I18N/META.yml
Log:
dist re-jigger
Deleted: trunk/Catalyst-Plugin-I18N/I18N.pm
===================================================================
--- trunk/Catalyst-Plugin-I18N/I18N.pm 2007-07-17 17:03:47 UTC (rev 6571)
+++ trunk/Catalyst-Plugin-I18N/I18N.pm 2007-07-17 20:40:23 UTC (rev 6572)
@@ -1,161 +0,0 @@
-package Catalyst::Plugin::I18N;
-
-use strict;
-use NEXT;
-use I18N::LangTags ();
-use I18N::LangTags::Detect;
-
-require Locale::Maketext::Simple;
-
-our $VERSION = '0.05';
-
-=head1 NAME
-
-Catalyst::Plugin::I18N - I18N for Catalyst
-
-=head1 SYNOPSIS
-
- use Catalyst 'I18N';
-
- print join ' ', @{ $c->languages };
- $c->languages( ['de'] );
- print $c->localize('Hello Catalyst');
-
-Use a macro if you're lazy:
-
- [% MACRO l(text, args) BLOCK;
- c.localize(text, args);
- END; %]
-
- [% l('Hello Catalyst') %]
- [% l('Hello [_1]', 'Catalyst') %]
- [% l('lalala[_1]lalala[_2]', ['test', 'foo']) %]
-
-=head1 DESCRIPTION
-
-Supports mo/po files and Maketext classes under your applications I18N
-namespace.
-
- # MyApp/I18N/de.po
- msgid "Hello Catalyst"
- msgstr "Hallo Katalysator"
-
- #MyApp/I18N/de.pm
- package MyApp::I18N::de;
- use base 'MyApp::I18N';
- our %Lexicon = ( 'Hello Catalyst' => 'Hallo Katalysator' );
- 1;
-
-=head2 EXTENDED METHODS
-
-=head3 setup
-
-=cut
-
-sub setup {
- my $self = shift;
- $self->NEXT::setup(@_);
- my $calldir = $self;
- $calldir =~ s#::#/#g;
- my $file = "$calldir.pm";
- my $path = $INC{$file};
- $path =~ s#\.pm$#/I18N#;
- eval <<"";
- package $self;
- import Locale::Maketext::Simple Path => '$path', Export => '_loc', Decode => 1;
-
-
- if ($@) {
- $self->log->error(qq/Couldn't initialize i18n "$self\::I18N", "$@"/);
- }
- else {
- $self->log->debug(qq/Initialized i18n "$self\::I18N"/) if $self->debug;
- }
-}
-
-=head2 METHODS
-
-=head3 languages
-
-Contains languages.
-
- $c->languages(['de_DE']);
- print join '', @{ $c->language };
-
-=cut
-
-sub languages {
- my ( $c, $languages ) = @_;
- if ($languages) { $c->{languages} = $languages }
- else {
- $c->{languages} ||= [
- I18N::LangTags::implicate_supers(
- I18N::LangTags::Detect->http_accept_langs(
- $c->request->header('Accept-Language')
- )
- ),
- 'i-default'
- ];
- }
- no strict 'refs';
- &{ ref($c) . '::_loc_lang' }( @{ $c->{languages} } );
- return $c->{languages};
-}
-
-=head3 language
-
-return selected locale in your locales list.
-
-=cut
-
-sub language {
- my $c = shift;
- my $class = ref $c || $c;
-
- my $lang = ref "$class\::I18N"->get_handle( @{ $c->languages } );
- $lang =~ s/.*:://;
-
- return $lang;
-}
-
-=head3 loc
-
-=head3 localize
-
-Localize text.
-
- print $c->localize( 'Welcome to Catalyst, [_1]', 'sri' );
-
-=cut
-
-*loc = \&localize;
-
-sub localize {
- my $c = shift;
- $c->languages;
- no strict 'refs';
- return &{ ref($c) . '::_loc' }( $_[0], @{ $_[1] } )
- if ( ref $_[1] eq 'ARRAY' );
- return &{ ref($c) . '::_loc' }(@_);
-}
-
-=head1 SEE ALSO
-
-L<Catalyst>.
-
-=head1 AUTHOR
-
-Sebastian Riedel, C<sri at cpan.org>
-
-Brian Cassidy, C<bricas at cpan.org>
-
-Christian Hansen, C<chansen at cpan.org>
-
-=head1 COPYRIGHT
-
-This program is free software, you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-=cut
-
-1;
Deleted: trunk/Catalyst-Plugin-I18N/MANIFEST
===================================================================
--- trunk/Catalyst-Plugin-I18N/MANIFEST 2007-07-17 17:03:47 UTC (rev 6571)
+++ trunk/Catalyst-Plugin-I18N/MANIFEST 2007-07-17 20:40:23 UTC (rev 6572)
@@ -1,13 +0,0 @@
-Changes
-I18N.pm
-Makefile.PL
-MANIFEST This list of files
-META.yml Module meta-data (added by MakeMaker)
-README
-t/01use.t
-t/02pod.t
-t/03podcoverage.t
-t/04live.t
-t/lib/TestApp.pm
-t/lib/TestApp/I18N/de.po
-t/lib/TestApp/I18N/fr.pm
Added: trunk/Catalyst-Plugin-I18N/MANIFEST.SKIP
===================================================================
--- trunk/Catalyst-Plugin-I18N/MANIFEST.SKIP (rev 0)
+++ trunk/Catalyst-Plugin-I18N/MANIFEST.SKIP 2007-07-17 20:40:23 UTC (rev 6572)
@@ -0,0 +1,29 @@
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+,v$
+\B\.svn\b
+
+# Avoid Makemaker generated and utility files.
+\bMakefile$
+\bblib
+\bMakeMaker-\d
+\bpm_to_blib$
+\bblibdirs$
+^MANIFEST\.SKIP$
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build
+
+# Avoid temp and backup files.
+~$
+\.tmp$
+\.old$
+\.bak$
+\#$
+\b\.#
+\.DS_Store$
+
+# No tarballs!
+\.gz$
Deleted: trunk/Catalyst-Plugin-I18N/META.yml
===================================================================
--- trunk/Catalyst-Plugin-I18N/META.yml 2007-07-17 17:03:47 UTC (rev 6571)
+++ trunk/Catalyst-Plugin-I18N/META.yml 2007-07-17 20:40:23 UTC (rev 6572)
@@ -1,13 +0,0 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Catalyst-Plugin-I18N
-version: 0.02
-version_from: I18N.pm
-installdirs: site
-requires:
- Catalyst: 2.99
- I18N::LangTags::Detect: 0
- Locale::Maketext::Simple: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
Copied: trunk/Catalyst-Plugin-I18N/lib/Catalyst/Plugin/I18N.pm (from rev 5080, trunk/Catalyst-Plugin-I18N/I18N.pm)
===================================================================
--- trunk/Catalyst-Plugin-I18N/lib/Catalyst/Plugin/I18N.pm (rev 0)
+++ trunk/Catalyst-Plugin-I18N/lib/Catalyst/Plugin/I18N.pm 2007-07-17 20:40:23 UTC (rev 6572)
@@ -0,0 +1,161 @@
+package Catalyst::Plugin::I18N;
+
+use strict;
+use NEXT;
+use I18N::LangTags ();
+use I18N::LangTags::Detect;
+
+require Locale::Maketext::Simple;
+
+our $VERSION = '0.05';
+
+=head1 NAME
+
+Catalyst::Plugin::I18N - I18N for Catalyst
+
+=head1 SYNOPSIS
+
+ use Catalyst 'I18N';
+
+ print join ' ', @{ $c->languages };
+ $c->languages( ['de'] );
+ print $c->localize('Hello Catalyst');
+
+Use a macro if you're lazy:
+
+ [% MACRO l(text, args) BLOCK;
+ c.localize(text, args);
+ END; %]
+
+ [% l('Hello Catalyst') %]
+ [% l('Hello [_1]', 'Catalyst') %]
+ [% l('lalala[_1]lalala[_2]', ['test', 'foo']) %]
+
+=head1 DESCRIPTION
+
+Supports mo/po files and Maketext classes under your applications I18N
+namespace.
+
+ # MyApp/I18N/de.po
+ msgid "Hello Catalyst"
+ msgstr "Hallo Katalysator"
+
+ #MyApp/I18N/de.pm
+ package MyApp::I18N::de;
+ use base 'MyApp::I18N';
+ our %Lexicon = ( 'Hello Catalyst' => 'Hallo Katalysator' );
+ 1;
+
+=head2 EXTENDED METHODS
+
+=head3 setup
+
+=cut
+
+sub setup {
+ my $self = shift;
+ $self->NEXT::setup(@_);
+ my $calldir = $self;
+ $calldir =~ s#::#/#g;
+ my $file = "$calldir.pm";
+ my $path = $INC{$file};
+ $path =~ s#\.pm$#/I18N#;
+ eval <<"";
+ package $self;
+ import Locale::Maketext::Simple Path => '$path', Export => '_loc', Decode => 1;
+
+
+ if ($@) {
+ $self->log->error(qq/Couldn't initialize i18n "$self\::I18N", "$@"/);
+ }
+ else {
+ $self->log->debug(qq/Initialized i18n "$self\::I18N"/) if $self->debug;
+ }
+}
+
+=head2 METHODS
+
+=head3 languages
+
+Contains languages.
+
+ $c->languages(['de_DE']);
+ print join '', @{ $c->language };
+
+=cut
+
+sub languages {
+ my ( $c, $languages ) = @_;
+ if ($languages) { $c->{languages} = $languages }
+ else {
+ $c->{languages} ||= [
+ I18N::LangTags::implicate_supers(
+ I18N::LangTags::Detect->http_accept_langs(
+ $c->request->header('Accept-Language')
+ )
+ ),
+ 'i-default'
+ ];
+ }
+ no strict 'refs';
+ &{ ref($c) . '::_loc_lang' }( @{ $c->{languages} } );
+ return $c->{languages};
+}
+
+=head3 language
+
+return selected locale in your locales list.
+
+=cut
+
+sub language {
+ my $c = shift;
+ my $class = ref $c || $c;
+
+ my $lang = ref "$class\::I18N"->get_handle( @{ $c->languages } );
+ $lang =~ s/.*:://;
+
+ return $lang;
+}
+
+=head3 loc
+
+=head3 localize
+
+Localize text.
+
+ print $c->localize( 'Welcome to Catalyst, [_1]', 'sri' );
+
+=cut
+
+*loc = \&localize;
+
+sub localize {
+ my $c = shift;
+ $c->languages;
+ no strict 'refs';
+ return &{ ref($c) . '::_loc' }( $_[0], @{ $_[1] } )
+ if ( ref $_[1] eq 'ARRAY' );
+ return &{ ref($c) . '::_loc' }(@_);
+}
+
+=head1 SEE ALSO
+
+L<Catalyst>.
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri at cpan.org>
+
+Brian Cassidy, C<bricas at cpan.org>
+
+Christian Hansen, C<chansen at cpan.org>
+
+=head1 COPYRIGHT
+
+This program is free software, you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut
+
+1;
More information about the Catalyst-commits
mailing list