Yet Another CPAN Grep

App-CatalystStarter-Bloated ( T/TO/TORBJORN/App-CatalystStarter-Bloated-v0.9.3.tar.gz, TORBJORN, 2016; MetaCPAN )

App-CatalystStarter-Bloated/bin/catalyst-fatstart.pl ( view source; MetaCPAN )

:
  --TT         Adds a C::View::TT component, defaults to HTML.pm
  --JSON       Adds a C::View::JSON component, defaults to JSON.pm
  --dsn        Specify a dsn for a model
  --model      Set model

ds a TT view, see --TT. Also see --views which is short for
doing both TT and JSON.

=item *

Adds a JSON view, see --JSON

=item *

Adds a HTML5 template. Currently a twitter bootstrap template from

 it.

=for Euclid:
    HTML.opt_default: "HTML"

=item -[-]JSON [=] [<JSON>]

Add a Catalyst::View::JSON view, defaults to YourApp::View::JSON. The
same rules and options applies as to --TT

In additi

App-CatalystStarter-Bloated ( T/TO/TORBJORN/App-CatalystStarter-Bloated-v0.9.3.tar.gz, TORBJORN, 2016; MetaCPAN )

App-CatalystStarter-Bloated/lib/App/CatalystStarter/Bloated.pm ( view source; MetaCPAN )

GV{"--TT"}.".pm");
        @_ = ();
    }
    elsif ( $what eq "JSON" ) {
        @extra = ("lib", $ARGV{"--name"}, "View", $ARGV{"--JSON"}.".pm");
        @_ = ();
    }
    else {
        @extra = (

 ## views triggers json and tt
    if ( $ARGV{'--views'} ) {
        my %map;
        @map{qw/-TT --TT -JSON --JSON/} = qw/HTML HTML JSON JSON/;
        for (qw/-TT --TT -JSON --JSON/) {
            $

ate.tt
sub _create_JSON {

    return unless my $json = $ARGV{"--JSON"};

    _run_system( _creater() => "view", $json, "JSON" );

    my $p = _catalyst_path( "JSON" );
    my $json_code = $p->slurp;