perl-SVN-RaWeb-Light / inc / SVN / RaWeb / Light / GenHelp.pm

sub _gen_help
{
open O, ">", "lib/SVN/RaWeb/Light/Help.pm";
print O <<"EOF";
package SVN::RaWeb::Light::Help;

\=head1 NAME

SVN::RaWeb::Light::Help - Generate the Help HTML for SVN::RaWeb::Light.

\=head1 SYNOPSIS

Warning! This moduls is auto-generated.

\=head1 FUNCTIONS

\=head2 print_data()

Prints the HTML data to the standard output.

\=head1 AUTHOR

Shlomi Fish, E<lt>shlomif@iglu.org.ilE<gt>

\=head1 COPYRIGHT AND LICENSE

Copyright (C) 2004 by Shlomi Fish

This library is free software; you can redistribute it and/or modify
it under the terms of the MIT/X11 license.

\=cut

sub print_data
{
    local \$/;
    print <DATA>;
}

1;
EOF

print O "__DATA__\n";

{
    local $/;
    open I, "<", "docs/Help.html";
    print O <I>;
    close(I);
}
close(O);
}

1;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.