• Your recent searches
App-AutoCRUD
4 results

 view release on metacpan or  search on metacpan

inc/Module/AutoInstall.pm  view on Meta::CPAN 

*** WARNING: Makefile written with customized MY::postamble() without
    including contents from Module::AutoInstall::postamble() --
    auto installation features disabled.  Please contact the author.
.

    return 1;
}

sub postamble {
    $PostambleUsed = 1;
    my $fragment;

    $fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;

config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL

    $fragment .= <<"END_MAKE";

checkdeps ::
\t\$(PERL) $0 --checkdeps

installdeps ::
\t$PostambleActions

installdeps_notest ::
\t$PostambleActionsNoTest

inc/Module/AutoInstall.pm  view on Meta::CPAN 

\t$PostambleActionsUpgradeDepsNoTest

listdeps ::
\t$PostambleActionsListDeps

listalldeps ::
\t$PostambleActionsListAllDeps

END_MAKE

    return $fragment;
}

1;

__END__

#line 1197

lib/App/AutoCRUD/Controller/Table.pm  view on Meta::CPAN 




#----------------------------------------------------------------------
# auxiliary methods
#----------------------------------------------------------------------


sub _query_string {
  my ($self, %params) = @_;
  my @fragments; 
 KEY:
  foreach my $key (sort keys %params) {
    my $val = $params{$key};
    length $val or next KEY;

    # cheap URI escape (for chars '=', '&', ';' and '+')
    s/=/%3D/g, s/&/%26/g, s/;/%3B/g, s/\+/%2B/g for $key, $val;

    push @fragments, "$key=$val";
  }

  return join "&", @fragments;
}


sub _encode_json {
  my ($self, $data) = @_;

  # utf8-encoding is done in the view, so here we turn it off
  my $json_maker = JSON::MaybeXS->new(allow_blessed   => 1,
                                      convert_blessed => 1,
                                      utf8            => 0);

lib/App/AutoCRUD/share/templates/lib/config  view on Meta::CPAN 

[% # config/main
   #

   title = "App::AutoCRUD sample page";
   base   = c.base;
   dsbase = base _ c.datasource.name _ "/"; # "datasource" base

   page.head_fragments = [];
   page.linked_scripts = [];
   page.linked_styles  = [];

   # Wrappers for items to be pushed into head part from component templates.
   # Usage: put local script inside directives "WRAPPER local_script" ... "END"

   BLOCK head;
     page.head_fragments.push(content);
   END; # BLOCK 

   BLOCK linked_script;
     page.linked_scripts.push(content);
   END; # BLOCK 

   BLOCK linked_style;
     page.linked_styles.push(content);
   END; # BLOCK

lib/App/AutoCRUD/share/templates/lib/site/html  view on Meta::CPAN 

  <title>[% c.title OR template.title OR site.title %]</title>

  [% FOREACH style IN page.linked_styles.unique;
       "<link href=\"$style\" rel=\"stylesheet\" type=\"text/css\" />\n";
     END; # FOREACH 

     FOREACH script IN page.linked_scripts.unique;
        "<script src=\"$script\"></script>\n";
     END; # FOREACH 

     page.head_fragments.join("\n");

   %]

 </head>
 <body>
[% content %]
 </body>
</html>



( run in 0.706 second using v1.01-cache-2.11-cpan-b16cb0d3907 )