# shlomi-fish-homepage / bin / gen-css.pl

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 #!/usr/bin/perl use strict; use warnings; package Template::Preprocessor::TTML; use warnings; use strict; use base 'Class::Accessor'; use Template; use Template::Preprocessor::TTML::CmdLineProc; __PACKAGE__->mk_accessors(qw( argv opts )); =head1 NAME Template::Preprocessor::TTML - Preprocess files using the Template Toolkit from the command line. =cut our $VERSION = '0.0101'; =head1 SYNOPSIS use Template::Preprocessor::TTML; my$obj = Template::Preprocessor::TTML->new(argv => [@ARGV]); $obj->run() ... =head1 FUNCTIONS =cut =head2 run Performs the processing. =cut sub _calc_opts { my$self = shift; my $cmd_line = Template::Preprocessor::TTML::CmdLineProc->new(argv =>$self->argv()); $self->opts($cmd_line->get_result()); } sub _get_output { my $self = shift; if ($self->opts()->output_to_stdout()) { return (); } else { return ($self->opts()->output_filename()); } } sub _get_mode_callbacks { return { 'regular' => "_mode_regular", 'help' => "_mode_help", 'version' => "_mode_version", }; } sub _mode_version { print <<"EOF"; This is TTML version$VERSION TTML is a Command Line Preprocessor based on the Template Toolkit (http://www.template-toolkit.org/) More information about TTML can be found at: http://search.cpan.org/dist/Template-Preprocessor-TTML/ EOF } sub _get_help_text { return <<"EOF"; ttml - A Template Toolkit Based Preprocessor Usage: ttml [-o OUTPUTFILE] [OPTIONS] INPUTFILE Options: -o OUTPUTFILE - Output to file instead of stdout. -I PATH, --include=PATH - Append PATH to the include path -DVAR=VALUE, --define=VAR=VALUE - Define a pre-defined variable. --includefile=FILE - Include FILE at the top. -V, --version - display the version number. -h, --help - display this help listing. EOF } sub _mode_help { my $self = shift; print$self->_get_help_text(); return 0; } sub run { my $self = shift;$self->_calc_opts(); return $self->can($self->_get_mode_callbacks()->{$self->opts()->run_mode()} )->($self); } sub _mode_regular { my $self = shift; my$config = { INCLUDE_PATH => [ @{$self->opts()->include_path()}, ".", ], EVAL_PERL => 1, PRE_PROCESS =>$self->opts()->include_files(), }; my $template = Template->new($config); if (! $template->process($self->opts()->input_filename(), $self->opts()->defines(),$self->_get_output(), ) ) { die \$template->error(); } } 1; package main; Template::Preprocessor::TTML->new({'argv' => [@ARGV]})->run(); 
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.