Show
Ignore:
Timestamp:
10/30/08 11:37:24 (5 years ago)
Author:
masaki
Message:

Controller 併用例を POD に追加

Location:
lang/perl/Catalyst-Controller-Resources/trunk
Files:
2 added
5 modified
3 moved

Legend:

Unmodified
Added
Removed

  • lang/perl/Catalyst-Controller-Resources/trunk

    • Property svn:ignore set to
      Makefile
      Makefile.old
      blib
      inc
      pm_to_blib
      META.yml
      MANIFEST.bak

  • lang/perl/Catalyst-Controller-Resources/trunk/MANIFEST

    r9916 r22356  
    33inc/Module/AutoInstall.pm 
    44inc/Module/Install.pm 
     5inc/Module/Install/AuthorTests.pm 
    56inc/Module/Install/AutoInstall.pm 
    67inc/Module/Install/Base.pm 
    … …  
    1920inc/Test/Builder/Module.pm 
    2021inc/Test/More.pm 
     22inc/Test/use/ok.pm 
    2123lib/Catalyst/Controller/Resource.pm 
    2224lib/Catalyst/Controller/Resources.pm 
    … …  
    4648t/lib/TestApp/Controller/Users/Articles/Comments.pm 
    4749t/lib/TestApp/Controller/Users/Date.pm 
     50xt/01_pod.t 
     51xt/02_podcoverage.t 
     52xt/03_podspell.t 

  • lang/perl/Catalyst-Controller-Resources/trunk/Makefile.PL

    r22322 r22356  
    11use inc::Module::Install; 
    2 name('Catalyst-Controller-Resources'); 
    3 all_from('lib/Catalyst/Controller/Resources.pm'); 
     2name 'Catalyst-Controller-Resources'; 
     3all_from 'lib/Catalyst/Controller/Resources.pm'; 
    44 
    5 requires('Catalyst::Runtime' => 5.70); 
    6 requires('Class::C3'); 
    7 requires('List::Util'); 
     5requires 'Catalyst::Runtime' => 5.70; 
     6requires 'Class::C3'; 
     7requires 'List::Util'; 
    88 
    99feature 'Catalyst::Helper support', 
    … …  
    1111    'Catalyst::Devel' => '1.0'; 
    1212 
    13 build_requires('Test::More'); 
    14 build_requires('HTTP::Request'); 
    15  
     13tests 't/*.t'; 
     14test_requires 'Test::More'; 
     15test_requires 'Test::use::ok'; 
     16test_requires 'HTTP::Request'; 
     17author_tests 'xt'; 
    1618use_test_base; 
    1719 

  • lang/perl/Catalyst-Controller-Resources/trunk/lib/Catalyst/Controller/Resources.pm

    r9909 r22356  
    126126  } 
    127127 
     128=head2 WITH OTHER CONTROLLERS AND ATTRIBUTES 
     129 
     130e.g.) L<Catalyst::Controller::RequestToken> 
     131 
     132In your controller: 
     133 
     134  package MyApp::Controller::Foo; 
     135  use base qw( 
     136      Catalyst::Controller::Resources 
     137      Catalyst::Controller::RequestToken 
     138  ); 
     139   
     140  sub post :CreateToken { 
     141      my ($self, $c) = @_; 
     142      $c->stash->{template} = 'foo/post.tt'; 
     143      $c->forward($c->view('TT')); 
     144  } 
     145   
     146  sub create :ValidateToken { 
     147      my ($self, $c) = @_; 
     148 
     149      if ($self->validate_token) { 
     150          $c->res->body('complete.'); 
     151      } 
     152      else { 
     153          $c->res->body('invalid operation.'); 
     154      } 
     155  } 
     156 
     157post.tt: 
     158 
     159  <html> 
     160    <body> 
     161      <form action="[% c.uri_for('/foo') %]" method="post"> 
     162        <input type="hidden" name="_token" values="[% c.req.param('_token') %]"/> 
     163        <input type="submit" name="submit" value="complete"/> 
     164      </form> 
     165    </body> 
     166  </html> 
     167 
    128168=head1 DESCRIPTION 
    129169 

  • lang/perl/Catalyst-Controller-Resources/trunk/t/00_compile.t

    r6694 r22356  
    22use Test::More tests => 2; 
    33 
    4 BEGIN { 
    5     use_ok('Catalyst::Controller::Resources'); 
    6     use_ok('Catalyst::Controller::SingletonResource'); 
    7 } 
     4use ok 'Catalyst::Controller::Resources'; 
     5use ok 'Catalyst::Controller::SingletonResource';