fixed broken helper.

[catagits/Catalyst-View-TT.git] / lib / Catalyst / Helper / View / TT.pm

diff --git a/lib/Catalyst/Helper/View/TT.pm b/lib/Catalyst/Helper/View/TT.pm
index 6781e51..51f6a61 100644 (file)
--- a/lib/Catalyst/Helper/View/TT.pm
+++ b/lib/Catalyst/Helper/View/TT.pm
@@ -1,7 +1,6 @@
 package Catalyst::Helper::View::TT;
 
 use strict;
-use IO::File;
 
 =head1 NAME
 
@@ -9,7 +8,7 @@ Catalyst::Helper::View::TT - Helper for TT Views
 
 =head1 SYNOPSIS
 
-    bin/create view TT TT
+    script/create.pl view TT TT
 
 =head1 DESCRIPTION
 
@@ -23,30 +22,18 @@ Helper for TT Views.
 
 sub mk_compclass {
     my ( $self, $helper ) = @_;
-    my $file  = $helper->{file};
-    my $class = $helper->{class};
-    my $comp  = IO::File->new("> $file") or die qq/Couldn't open "$file", "$!"/;
-    print $comp <<"EOF";
-package $class;
-
-use strict;
-use base 'Catalyst::View::TT';
-
-=head1 NAME
-
-$class - TT View Component
-
-=head1 SYNOPSIS
-
-    Very simple to use
+    my $file = $helper->{file};
+    $helper->render_file( 'compclass', $file );
+}
 
-=head1 DESCRIPTION
+=head1 SEE ALSO
 
-Very nice component.
+L<Catalyst::Manual>, L<Catalyst::Test>, L<Catalyst::Request>,
+L<Catalyst::Response>, L<Catalyst::Helper>
 
 =head1 AUTHOR
 
-Clever guy
+Sebastian Riedel, C<sri@oook.de>
 
 =head1 LICENSE
 
@@ -56,17 +43,30 @@ the same terms as perl itself.
 =cut
 
 1;
-EOF
-}
 
-=head1 SEE ALSO
+__DATA__
 
-L<Catalyst::Manual>, L<Catalyst::Test>, L<Catalyst::Request>,
-L<Catalyst::Response>, L<Catalyst::Helper>
+__compclass__
+package [% class %];
+
+use strict;
+use base 'Catalyst::View::TT';
+
+=head1 NAME
+
+[% class %] - TT View Component
+
+=head1 SYNOPSIS
+
+    Very simple to use
+
+=head1 DESCRIPTION
+
+Very nice component.
 
 =head1 AUTHOR
 
-Sebastian Riedel, C<sri@oook.de>
+Clever guy
 
 =head1 LICENSE