use strict;
=head1 NAME
Catalyst::Helper::Prototype - Helper to generate Prototype library
=head1 SYNOPSIS
script/myapp_create.pl Prototype
=head1 DESCRIPTION
Helper to generate Prototype library.
=head2 METHODS
=over 4
=item mk_stuff
Create javascript files for prototype/scriptalicious in your
document root.
=back
=cut
sub mk_stuff {
my ( $self, $helper ) = @_;
my $prototype =
File::Spec->catfile( $helper->{base}, 'root', 'prototype.js' );
$helper->mk_file( $prototype, $HTML::Prototype::prototype );
my $controls =
File::Spec->catfile( $helper->{base}, 'root', 'controls.js' );
$helper->mk_file( $controls, $HTML::Prototype::controls );
my $dragdrop =
File::Spec->catfile( $helper->{base}, 'root', 'dragdrop.js' );
$helper->mk_file( $dragdrop, $HTML::Prototype::dragdrop );
my $effects = File::Spec->catfile( $helper->{base}, 'root', 'effects.js' );
$helper->mk_file( $effects, $HTML::Prototype::effects );
}
=head1 SEE ALSO
L<Catalyst::Manual>, L<Catalyst::Test>, L<Catalyst::Request>,
L<Catalyst::Response>, L<Catalyst::Helper>
=head1 AUTHOR
Sebastian Riedel, C<sri@oook.de>
=head1 LICENSE
This library is free software . You can redistribute it and/or modify
it under the same terms as perl itself.
=cut
1;