[Catalyst-commits] r6538 - in trunk/Catalyst-Controller-BindLex: . lib/Catalyst lib/Catalyst/Helper lib/Catalyst/Helper/Controller

[marcus at dev.catalyst.perl.org]

Author: marcus
Date: 2007-07-16 20:03:00 +0100 (Mon, 16 Jul 2007)
New Revision: 6538

Added:
   trunk/Catalyst-Controller-BindLex/lib/Catalyst/Helper/
   trunk/Catalyst-Controller-BindLex/lib/Catalyst/Helper/Controller/
   trunk/Catalyst-Controller-BindLex/lib/Catalyst/Helper/Controller/BindLex.pm
Modified:
   trunk/Catalyst-Controller-BindLex/Changes
Log:
Added helper for bindlex.

Modified: trunk/Catalyst-Controller-BindLex/Changes
===================================================================
--- trunk/Catalyst-Controller-BindLex/Changes	2007-07-16 10:59:05 UTC (rev 6537)
+++ trunk/Catalyst-Controller-BindLex/Changes	2007-07-16 19:03:00 UTC (rev 6538)
@@ -1,3 +1,6 @@
+0.05 2007-xx-xx
+    - Add Helper component
+
 0.04 2007-04-026
     - switch to Module::Install
 

Added: trunk/Catalyst-Controller-BindLex/lib/Catalyst/Helper/Controller/BindLex.pm
===================================================================
--- trunk/Catalyst-Controller-BindLex/lib/Catalyst/Helper/Controller/BindLex.pm	                        (rev 0)
+++ trunk/Catalyst-Controller-BindLex/lib/Catalyst/Helper/Controller/BindLex.pm	2007-07-16 19:03:00 UTC (rev 6538)
@@ -0,0 +1,57 @@
+package Catalyst::Helper::Controller::BindLex;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.01';
+
+sub mk_compclass {
+    my( $self, $helper ) = @_;
+
+    $helper->render_file( 'controllerclass', $helper->{ file } );
+
+    return 1;
+}
+
+sub mk_comptest {
+    my( $self, $helper ) = @_;
+
+    $helper->render_file( 'controllertest', $helper->{ test } );
+}
+
+__DATA__
+
+__controllerclass__
+package [% class %];
+
+use strict;
+use base qw( Catalyst::Controller::BindLex );
+
+=head1 NAME
+
+[% class %] - [% app %]  Controller
+
+=head1 SYNOPSIS
+
+See L<[% app %]>.
+
+=head1 DESCRIPTION
+
+[Insert description here]
+
+=head1 AUTHOR
+
+[% author %]
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;
+__controllertest__
+use Test::More tests => 2;
+use_ok(Catalyst::Test, '[% app %]');
+use_ok('[% class %]');