with 'MooseX::Emulate::Class::Accessor::Fast';
-# Change Catalyst/Devel.pm also
-our $VERSION = '1.38';
+our $VERSION = '1.41';
+$VERSION =~ tr/_//d;
my %cache;
-=head1 NAME
-
-Catalyst::Helper - Bootstrap a Catalyst application
-
-=head1 SYNOPSIS
-
- catalyst.pl <myappname>
-
-=cut
-
sub get_sharedir_file {
my ($self, @filename) = @_;
my $dist_dir;
$file .= '.new';
}
}
-
+
if ( my $f = IO::File->new("> $file") ) {
binmode $f;
print $f $content;
# Do not touch this method, *EVER*, it is needed for back compat.
## addendum: we had to split this method so we could have backwards
-## compatability. otherwise, we'd have no way to pass stuff from __DATA__
+## compatibility. otherwise, we'd have no way to pass stuff from __DATA__
sub render_file {
my ( $self, $file, $path, $vars, $perms ) = @_;
}
}
+1;
+__END__
+
+=head1 NAME
+
+Catalyst::Helper - Bootstrap a Catalyst application
+
+=head1 SYNOPSIS
+
+ catalyst.pl <myappname>
+
=head1 DESCRIPTION
This module is used by B<catalyst.pl> to create a set of scripts for a
=head2 render_file ($file, $path, $vars, $perms)
Render and create a file from a template in DATA using Template
-Toolkit. $file is the relevent chunk of the __DATA__ section, $path is
+Toolkit. $file is the relevant chunk of the __DATA__ section, $path is
the path to the file, $vars is the hashref as expected by
L<Template Toolkit|Template> and $perms are desired permissions (or system
defaults if not set).
Method for getting a file out of share/
-=cut
-
=head2 render_file_contents
Process a L<Template::Toolkit> template.
-=cut
-
=head2 render_sharedir_file
Render a template/image file from our share directory
-=cut
-
=head1 NOTE
The helpers will read author name from /etc/passwd by default.
it under the same terms as Perl itself.
=cut
-
-1;
-