Catalyst-Controller-Combine
view release on metacpan or search on metacpan
cover_db/lib-Catalyst-Controller-Combine-pm.html view on Meta::CPAN
<tr><td class="h">360</td><td colspan="7"></td></tr><tr><td class="h">361</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
<tr><td class="h">362</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># collect all files</td></tr>
<tr><td class="h">363</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
<tr><td class="h">364</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _collect_files {</td></tr>
<tr><td class="h">365</td><td><div class="c3">34</div></td><td></td><td></td><td><div class="c3"><a href="lib-Catalyst-Controller-Combine-pm--subroutine.html#L365">34</a></div></td><td></td><td><div>79</div></td><td class="s"> ...
<tr><td class="h">366</td><td><div class="c3">34</div></td><td></td><td></td><td></td><td></td><td><div>34</div></td><td class="s"> my $c = shift;</td></tr>
<tr><td class="h">367</td><td colspan="7"></td></tr><tr><td class="h">368</td><td><div class="c3">34</div></td><td></td><td></td><td></td><td></td><td><div>196</div></td><td class="s"> my $ext = $self->extension;</td></tr>
<tr><td class="h">369</td><td><div class="c3">34</div></td><td></td><td></td><td></td><td></td><td><div>1287</div></td><td class="s"> $self->{parts} = []; # list of plain file names</td></tr>
<tr><td class="h">370</td><td><div class="c3">34</div></td><td></td><td></td><td></td><td></td><td><div>59</div></td><td class="s"> $self->{files} = []; # list of full paths</td></tr>
<tr><td class="h">371</td><td><div class="c3">34</div></td><td></td><td></td><td></td><td></td><td><div>170</div></td><td class="s"> $self->{replacement_for} = {}; # replacements for every full path</td></tr>
<tr><td class="h">372</td><td><div class="c3">34</div></td><td></td><td></td><td></td><td></td><td><div>80</div></td><td class="s"> $self->{seen} = {}; # easy lookup of parts and count of dependencies</td></tr>
<tr><td class="h">373</td><td><div class="c3">34</div></td><td></td><td></td><td></td><td></td><td><div>62</div></td><td class="s"> foreach my $file (@_) {</td></tr>
<tr><td class="h">374</td><td><div class="c3">46</div></td><td></td><td></td><td></td><td></td><td><div>204</div></td><td class="s"> my $base_name = $file;</td></tr>
<tr><td class="h">375</td><td><div class="c3">46</div></td><td></td><td></td><td></td><td></td><td><div>190</div></td><td class="s"> $base_name =~ s{\.$ext\z}{}xms;</td></tr>
<tr><td class="h">376</td><td colspan="7"></td></tr><tr><td class="h">377</td><td><div class="c3">46</div></td><td></td><td></td><td></td><td></td><td><div>140</div></td><td class="s"> $self->_check_d...
<tr><td class="h">378</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">379</td><td colspan="7"></td></tr><tr><td class="h">380</td><td><div class="c3">33</div></td><td></td><td></td><td></td><td></td><td><div>489</div></td><td class="s"> return;</td></tr>
<tr><td class="h">381</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">382</td><td colspan="7"></td></tr><tr><td class="h">383</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
<tr><td class="h">384</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># check dependencies on files</td></tr>
<tr><td class="h">385</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
<tr><td class="h">386</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _check_dependencies {</td></tr>
<tr><td class="h">387</td><td><div class="c3">57</div></td><td></td><td></td><td><div class="c3"><a href="lib-Catalyst-Controller-Combine-pm--subroutine.html#L387">57</a></div></td><td></td><td><div>56</div></td><td class="s"> ...
<tr><td class="h">388</td><td><div class="c3">57</div></td><td></td><td></td><td></td><td></td><td><div>41</div></td><td class="s"> my $c = shift;</td></tr>
<tr><td class="h">389</td><td><div class="c3">57</div></td><td></td><td></td><td></td><td></td><td><div>46</div></td><td class="s"> my $base_name = shift;</td></tr>
<tr><td class="h">390</td><td><div class="c3">57</div></td><td></td><td></td><td></td><td></td><td><div>43</div></td><td class="s"> my $extensions = shift;</td></tr>
<tr><td class="h">391</td><td><div class="c3">57</div></td><td></td><td><div class="c3"><a href="lib-Catalyst-Controller-Combine-pm--condition.html#L391">100</a></div></td><td></td><td></td><td><div>271</div></td><td class="s">  ...
<tr><td class="h">392</td><td colspan="7"></td></tr><tr><td class="h">393</td><td><div class="c3">57</div></td><td></td><td></td><td></td><td></td><td><div>397</div></td><td class="s"> my $dependency_for = $self->depend;</td...
<tr><td class="h">394</td><td colspan="7"></td></tr><tr><td class="h">395</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> #</td></tr>
<tr><td class="h">396</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # check if we already saw this file. Update dependency flag</td></tr>
<tr><td class="h">397</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> #</td></tr>
<tr><td class="h">398</td><td><div class="c3">57</div></td><td><div class="c3" title="T/F"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L398">100</a></div></td><td></td><td></td><td></td><td><div>488</div></td><td class="s"> &n...
<tr><td class="h">399</td><td><div class="c3">7</div></td><td></td><td><div class="c0"><a href="lib-Catalyst-Controller-Combine-pm--condition.html#L399">67</a></div></td><td></td><td></td><td><div>15</div></td><td class="s"> &n...
<tr><td class="h">400</td><td><div class="c3">7</div></td><td></td><td></td><td></td><td></td><td><div>19</div></td><td class="s"> return;</td></tr>
<tr><td class="h">401</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">402</td><td colspan="7"></td></tr><tr><td class="h">403</td><td><div class="c3">50</div></td><td><div class="c3" title="T/F"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L403">100</a></div></td><td><div class="c0"><a hre...
<tr><td class="h">404</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ref($dependency_for) eq 'HASH' &&</td></tr>
<tr><td class="h">405</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> exists($dependency_for->{$base_name})) {</td></tr>
<tr><td class="h">406</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> #</td></tr>
<tr><td class="h">407</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # we have a dependency -- resolve it.</td></tr>
<tr><td class="h">408</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> #</td></tr>
<tr><td class="h">409</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my @depend_on = ref($dependency_for->{$base_name}) eq 'ARRAY'<...
<tr><td class="h">410</td><td><div class="c3">11</div></td><td><div class="c0" title="-/F"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L410">50</a></div></td><td></td><td></td><td></td><td><div>59</div></td><td class="s"> &nbs...
<tr><td class="h">411</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> : $dependenc...
<tr><td class="h">412</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $self->_check_dependencies($c, $_, $extensions, 1)</td></tr>
<tr><td class="h">413</td><td><div class="c3">11</div><div class="c3">11</div></td><td></td><td></td><td></td><td></td><td><div>9</div><div>40</div></td><td class="s"> for @depend...
<tr><td class="h">414</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">415</td><td colspan="7"></td></tr><tr><td class="h">416</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> #</td></tr>
<tr><td class="h">417</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # add the file if existing</td></tr>
<tr><td class="h">418</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> #</td></tr>
<tr><td class="h">419</td><td><div class="c3">50</div></td><td></td><td></td><td></td><td></td><td><div>377</div></td><td class="s"> my $dir = $c->path_to('root', $self->dir);</td></tr>
<tr><td class="h">420</td><td><div class="c3">50</div><div class="c3">100</div><div class="c3">50</div></td><td></td><td></td><td></td><td></td><td><div>12117</div><div>18331</div><div>62</div></td><td class="s"> foreach my $fi...
<tr><td class="h">421</td><td><div class="c3">97</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L421">0</a></div></td><td></td><td></td><td></td><td><div>20064</div></td><td class="s"> &n...
<tr><td class="h">422</td><td colspan="7"></td></tr><tr><td class="h">423</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # the file we want exists. Time to do a security check</...
<tr><td class="h">424</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # hint: a call to resolve() will die under windows</td></tr>
<tr><td class="h">425</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # if the path requested does not exist on the filesystem.</td></tr>
<tr><td class="h">426</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # therefore, we check as late as possible</td></tr>
<tr><td class="h">427</td><td><div class="c3">44</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L427">0</a></div></td><td></td><td></td><td></td><td><div>2885</div></td><td class="s"> &nb...
<tr><td class="h">428</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> or die 'security violation - tried to access file outside of: '</td></tr>
<tr><td class="h">429</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> . $self->dir();</td></tr>
<tr><td class="h">430</td><td colspan="7"></td></tr><tr><td class="h">431</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # looks like we are secure -- are there any secret unico...
<tr><td class="h">432</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # we forgot to double-check? *g*</td></tr>
<tr><td class="h">433</td><td><div class="c3">43</div><div class="c3">43</div></td><td></td><td></td><td></td><td></td><td><div>68570</div><div>90</div></td><td class="s"> push @{$self->{parts}}, $bas...
<tr><td class="h">434</td><td><div class="c3">43</div><div class="c3">43</div></td><td></td><td></td><td></td><td></td><td><div>33</div><div>57</div></td><td class="s"> push @{$self->{files}}, $file_p...
<tr><td class="h">435</td><td><div class="c3">43</div></td><td></td><td></td><td></td><td></td><td><div>73</div></td><td class="s"> $self->{seen}->{$base_name} = $depends;</td></tr>
<tr><td class="h">436</td><td colspan="7"></td></tr><tr><td class="h">437</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # check replacements</td></tr>
<tr><td class="h">438</td><td><div class="c3">43</div></td><td></td><td></td><td></td><td></td><td><div>640</div></td><td class="s"> return if (!$self->replace </td></tr>
<tr><td class="h">439</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> || ref($self->replace) ne 'HASH' </td></tr>
<tr><td class="h">440</td><td><div class="c3">43</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L440">0</a></div></td><td><div class="c0"><a href="lib-Catalyst-Controller-Combine-pm--condition.html#...
<tr><td class="h">441</td><td><div class="c0">0</div><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div><div>0</div></td><td class="s"> foreach my $glob (keys(%{$self->rep...
<tr><td class="h">442</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L442">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> &...
<tr><td class="h">443</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $replacements = $self->replace->{$glob};...
<tr><td class="h">444</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> next if (!$replacements </td></tr>
<tr><td class="h">445</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> || ref($replacements) ne 'ARRAY' </td></...
<tr><td class="h">446</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L446">0</a></div></td><td><div class="c0"><a href="lib-Catalyst-Controller-Combine-pm--condition.html#L...
<tr><td class="h">447</td><td><div class="c0">0</div><div class="c0">0</div><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div><div>0</div><div>0</div></td><td class="s"> &nb...
<tr><td class="h">448</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">449</td><td colspan="7"></td></tr><tr><td class="h">450</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # done</td></tr>
<tr><td class="h">451</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return;</td></tr>
<tr><td class="h">452</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">453</td><td colspan="7"></td></tr><tr><td class="h">454</td><td><div class="c3">6</div></td><td></td><td></td><td></td><td></td><td><div>418</div></td><td class="s"> $c->log->warn("$base_name.* --&g...
<tr><td class="h">455</td><td><div class="c3">6</div></td><td></td><td></td><td></td><td></td><td><div>401</div></td><td class="s"> return;</td></tr>
<tr><td class="h">456</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">457</td><td colspan="7"></td></tr><tr><td class="h">458 - 475</td><td colspan="6"></td><td class="s"><pre>=head1 GOTCHAS
Please do not use C<namespace::autoclean> if you intend to enable a minifier.
The black magic behind the scenes tries to determine your intention to minify
by searching for a sub called C<minify> inside the controller's package.
However, this sub is imported by eg C<JavaScript::Minifier::XS> and will be
kicked out of the controller by C<namespace::autoclean>.
=head1 AUTHOR
Wolfgang Kinkeldei, E<lt>wolfgang@kinkeldei.deE<gt>
=head1 LICENSE
This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut</pre></td></tr>
<tr><td class="h">476</td><td colspan="7"></td></tr><tr><td class="h">477</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">1;</td></tr>
</table>
</body>
</html>
( run in 0.762 second using v1.01-cache-2.11-cpan-39bf76dae61 )