Changeset 33239 for lang/perl/Catalyst-Plugin-FillInForm-ForceUTF8

Timestamp:

05/11/09 13:48:10 (4 years ago)

Author:

hidek

Message:

move to Module::Install

Location:

lang/perl/Catalyst-Plugin-FillInForm-ForceUTF8/trunk

Files:

• .shipit (added)
• Changes (modified) (1 diff)
• LICENSE (deleted)
• MANIFEST (modified) (1 diff)
• MANIFEST.SKIP (added)
• Makefile.PL (modified) (1 diff)
• README (modified) (1 diff)
• Todo (deleted)
• lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm (modified) (5 diffs)
• scripts (deleted)
• t/00_compile.t (added)
• t/01_load.t (deleted)
• t/pod.t (deleted)
• xt (added)
• xt/01_podspell.t (added)
• xt/02_perlcritic.t (added)
• xt/03_pod.t (added)
• xt/perlcriticrc (added)

lang/perl/Catalyst-Plugin-FillInForm-ForceUTF8/trunk/Changes

@@ -1 @@
-Revision history for Perl module Catalyst::Plugin::FillInForm::ForceUTF8
+Revision history for Perl extension Catalyst::Plugin::FillInForm::ForceUTF8
 
 0.02 Wed May  23 2007
     - implemented finalize method
 
-0.01 Thu Nov  2 2006
-    - original skeleton created with ExtUtils::ModuleMaker::TT
+0.01    Mon May 11 13:40:02 2009
+        - original version

lang/perl/Catalyst-Plugin-FillInForm-ForceUTF8/trunk/MANIFEST

@@ -1 @@
-MANIFEST
+Changes
+inc/Module/Install.pm
+inc/Module/Install/AuthorTests.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/TestBase.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+inc/Spiffy.pm
+inc/Test/Base.pm
+inc/Test/Base/Filter.pm
+inc/Test/Builder.pm
+inc/Test/Builder/Module.pm
+inc/Test/More.pm
+lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm
+Makefile.PL
+MANIFEST                        This list of files
+META.yml
 README
-LICENSE
-Todo
-Changes
-t/pod.t
-Makefile.PL
-lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm
-t/01_load.t
+t/00_compile.t
+xt/01_podspell.t
+xt/02_perlcritic.t
+xt/03_pod.t
+xt/perlcriticrc

lang/perl/Catalyst-Plugin-FillInForm-ForceUTF8/trunk/Makefile.PL

@@ -1 @@
-use ExtUtils::MakeMaker;
+use inc::Module::Install;
+name 'Catalyst-Plugin-FillInForm-ForceUTF8';
+all_from 'lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm';
 
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
-    NAME => 'Catalyst::Plugin::FillInForm::ForceUTF8',
-    VERSION_FROM => 'lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm',    # finds $VERSION
-    AUTHOR    => 'Hideo Kimura (hide@hide-k.net)',
-    ABSTRACT  => 'Module abstract (<= 44 characters) goes here',
-    PREREQ_PM => {
-        'Test::Simple'                => 0.44,
-        'Catalyst'                    => 0,
-        'HTML::FillInForm::ForceUTF8' => 0
-    },
-);
+requires 'Catalyst' => '5.7012';
+requires 'HTML::FillInForm::ForceUTF8';
+
+tests 't/*.t';
+author_tests 'xt';
+
+build_requires 'Test::More';
+use_test_base;
+auto_include;
+WriteAll;

lang/perl/Catalyst-Plugin-FillInForm-ForceUTF8/trunk/README

@@ -1 @@
-perl Makefile.PL
-make
-make test
-make install
+This is Perl module Catalyst::Plugin::FillInForm::ForceUTF8.
+
+INSTALLATION
+
+Catalyst::Plugin::FillInForm::ForceUTF8 installation is straightforward. If your CPAN shell is set up,
+you should just be able to do
+
+    % cpan Catalyst::Plugin::FillInForm::ForceUTF8
+
+Download it, unpack it, then build it as per the usual:
+
+    % perl Makefile.PL
+    % make && make test
+
+Then install it:
+
+    % make install
+
+DOCUMENTATION
+
+Catalyst::Plugin::FillInForm::ForceUTF8 documentation is available as in POD. So you can do:
+
+    % perldoc Catalyst::Plugin::FillInForm::ForceUTF8
+
+to read the documentation online with your favorite pager.
+
+Hideo Kimura

lang/perl/Catalyst-Plugin-FillInForm-ForceUTF8/trunk/lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm

@@ -2 +2 @@
 
 use strict;
-use NEXT;
 use HTML::FillInForm::ForceUTF8;
+use MRO::Compat;
 
 our $VERSION = '0.02';
@@ -78 +78 @@
             || $c->stash->{error};
     }
-    return $c->NEXT::finalize(@_);
+    return $c->method::next(@_);
 }
 
@@ -98 +98 @@
     $c->fillform( \%data_hash );
 
-C<fillform> must be called after an HTML template has been
-rendered. A typical way of using it is to place it immediately
-after your C<forward> call to your view class, which might be
-in a built-in C<end> action in your application class.
+You can also hand in a hashref of additional params for
+HTML::FillInForm->fill() if you like.  Explicitly providing a
+\%data_hash is mandatory for this use case.
 
-   sub render : ActionClass('RenderView') {}
-
-   sub end : Private {
-       my ( $self, $c ) = @_;
-       $c->forward('render');
-       $c->fillform;
-   }
+    $c->fillform( $c->req->parameters, {
+        ignore_fields => [ 'pagesrc', 'pagedst' ],
+        fill_password => 0,
+    } );
 
 =cut
@@ -116 +112 @@
     my $c = shift;
     my $fdat = shift || $c->request->parameters;
+    my $additional_params = shift;
 
     $c->response->output(
         HTML::FillInForm::ForceUTF8->new->fill(
             scalarref => \$c->response->{body},
-            fdat      => $fdat
+            fdat      => $fdat,
+            %$additional_params,
         )
     );
@@ -137 +135 @@
         }
     );
+
+=head1 NOTES
+
+This class does not play well with Catalyst's ActionClass('RenderView')
+so you may want to check your C<end> method (in Controller/Root.pm or perhaps
+MyApp.pm). If it looks like this:
+
+     sub end : ActionClass('RenderView') {}
+
+Then you'll need to change it to something like this:
+
+     sub end : Private {
+        my ($self, $c) = @_;
+        $c->forward('render');
+        $c->fillform($c->req->params) unless $c->res->output;
+     }
+
+     sub render : ActionClass('RenderView') { }
 
 =head1 SEE ALSO