<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--
This file was generated by Devel::Cover Version 0.64
Devel::Cover is copyright 2001-2006, Paul Johnson (pjcj@cpan.org)
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>File Coverage: lib/Railsish/ViewHelpers.pm</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/Railsish/ViewHelpers.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c0">48.8%</td></tr>
</table>
<div><br/></div>
<table>
<tr><th>line</th><th>stmt</th><th>bran</th><th>cond</th><th>sub</th><th>pod</th><th>time</th><th>code</th></tr>
<tr><td class="h">1</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">package Railsish::ViewHelpers;</td></tr>
<tr><td class="h">2</td><td><div class="c3">11</div><div class="c3">11</div><div class="c3">11</div></td><td></td><td></td><td><div class="c3"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L2">11</a></div></td><td></td><td><div>93</div><div>31</div><div>118</div></td><td class="s">use strict;</td></tr>
<tr><td class="h">3</td><td><div class="c3">11</div><div class="c3">11</div><div class="c3">11</div></td><td></td><td></td><td><div class="c3"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L3">11</a></div></td><td></td><td><div>111</div><div>48</div><div>100</div></td><td class="s">use warnings;</td></tr>
<tr><td class="h">4</td><td><div class="c3">11</div><div class="c3">11</div><div class="c3">11</div></td><td></td><td></td><td><div class="c3"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L4">11</a></div></td><td></td><td><div>2319</div><div>32</div><div>88</div></td><td class="s">use Railsish::CoreHelpers;</td></tr>
<tr><td class="h">5</td><td><div class="c3">11</div><div class="c3">11</div><div class="c3">11</div></td><td></td><td></td><td><div class="c3"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L5">11</a></div></td><td></td><td><div>892</div><div>51</div><div>220</div></td><td class="s">use HTML::Entities;</td></tr>
<tr><td class="h">6</td><td colspan="7"></td></tr><tr><td class="h">7</td><td><div class="c3">11</div><div class="c3">11</div><div class="c3">11</div></td><td></td><td></td><td><div class="c3"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L7">11</a></div></td><td></td><td><div>133</div><div>33</div><div>131</div></td><td class="s">use Exporter::Lite;</td></tr>
<tr><td class="h">8</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">our @EXPORT = qw(render_stickies stylesheet_link_tag javascript_include_tag link_to);</td></tr>
<tr><td class="h">9</td><td colspan="7"></td></tr><tr><td class="h">10</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub stylesheet_link_tag {</td></tr>
<tr><td class="h">11</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L11">0</a></div></td><td><div class="c0">0</div></td><td><div>0</div></td><td class="s"> my (@css) = @_;</td></tr>
<tr><td class="h">12</td><td colspan="7"></td></tr><tr><td class="h">13</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 $out = "";</td></tr>
<tr><td class="h">14</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> for my $css (@css) {</td></tr>
<tr><td class="h">15</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 $uri;</td></tr>
<tr><td class="h">16</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L16">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if ($css =~ /^http:/) {</td></tr>
<tr><td class="h">17</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $uri = $css;</td></tr>
<tr><td class="h">18</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">19</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">20</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 $dir = app_root("/public/stylesheets");</td></tr>
<tr><td class="h">21</td><td colspan="7"></td></tr><tr><td class="h">22</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 $file = "${dir}/${css}.css";</td></tr>
<tr><td class="h">23</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L23">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $file = "${dir}/${css}" unless -f $file;</td></tr>
<tr><td class="h">24</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $file .= "?" . (stat($file))[9];</td></tr>
<tr><td class="h">25</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $uri = $file;</td></tr>
<tr><td class="h">26</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $uri =~ s/^\Q$dir\E/\/stylesheets/;</td></tr>
<tr><td class="h">27</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">28</td><td colspan="7"></td></tr><tr><td class="h">29</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L29">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if ($uri) {</td></tr>
<tr><td class="h">30</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $out .= qq{<link href="$uri" media="all" rel="stylesheet" type="text/css">\n}</td></tr>
<tr><td class="h">31</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">32</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">33</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 $out;</td></tr>
<tr><td class="h">34</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr>
<tr><td class="h">35</td><td colspan="7"></td></tr><tr><td class="h">36</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub javascript_include_tag {</td></tr>
<tr><td class="h">37</td><td><div class="c3">6</div></td><td></td><td></td><td><div class="c3"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L37">6</a></div></td><td><div class="c0">0</div></td><td><div>66</div></td><td class="s"> my @sources = @_;</td></tr>
<tr><td class="h">38</td><td><div class="c3">6</div></td><td></td><td></td><td></td><td></td><td><div>48</div></td><td class="s"> my $out = "";</td></tr>
<tr><td class="h">39</td><td><div class="c3">6</div></td><td></td><td></td><td></td><td></td><td><div>46</div></td><td class="s"> for my $source (@sources) {</td></tr>
<tr><td class="h">40</td><td><div class="c3">6</div></td><td></td><td></td><td></td><td></td><td><div>36</div></td><td class="s"> my $uri;</td></tr>
<tr><td class="h">41</td><td><div class="c3">6</div></td><td><div class="c3" title="T/F"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L41">100</a></div></td><td></td><td></td><td></td><td><div>68</div></td><td class="s"> if ($source =~ /^\w+:\/\//) {</td></tr>
<tr><td class="h">42</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td></td><td><div>14</div></td><td class="s"> $uri = $source;</td></tr>
<tr><td class="h">43</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">44</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">45</td><td><div class="c3">4</div></td><td></td><td></td><td></td><td></td><td><div>30</div></td><td class="s"> $uri = $source;</td></tr>
<tr><td class="h">46</td><td><div class="c3">4</div></td><td><div class="c3" title="T/F"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L46">100</a></div></td><td></td><td></td><td></td><td><div>48</div></td><td class="s"> $uri .= ".js" if $source !~ /\./;</td></tr>
<tr><td class="h">47</td><td><div class="c3">4</div></td><td><div class="c3" title="T/F"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L47">100</a></div></td><td></td><td></td><td></td><td><div>48</div></td><td class="s"> $uri = "/javascripts/$uri" if $source !~ /\//;</td></tr>
<tr><td class="h">48</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">49</td><td colspan="7"></td></tr><tr><td class="h">50</td><td><div class="c3">6</div></td><td></td><td></td><td></td><td></td><td><div>72</div></td><td class="s"> $out .= qq{<script type="text/javascript" src="$uri"></script>\n};</td></tr>
<tr><td class="h">51</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">52</td><td><div class="c3">6</div></td><td></td><td></td><td></td><td></td><td><div>130</div></td><td class="s"> return $out;</td></tr>
<tr><td class="h">53</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">54</td><td colspan="7"></td></tr><tr><td class="h">55</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub link_to {</td></tr>
<tr><td class="h">56</td><td><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L56">3</a></div></td><td><div class="c0">0</div></td><td><div>32</div></td><td class="s"> my ($label, $url, @attr) = @_;</td></tr>
<tr><td class="h">57</td><td colspan="7"></td></tr><tr><td class="h">58</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>15</div></td><td class="s"> my $attr = "";</td></tr>
<tr><td class="h">59</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>11</div></td><td class="s"> my %attr = ();</td></tr>
<tr><td class="h">60</td><td><div class="c3">3</div></td><td><div class="c0" title="-/F"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L60">50</a></div><div class="c0" title="T/-"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L60">50</a></div></td><td><div class="c0"><a href="lib-Railsish-ViewHelpers-pm--condition.html#L60">33</a></div></td><td></td><td></td><td><div>34</div></td><td class="s"> if (@attr == 1 && ref($attr[0]) eq 'HASH') {</td></tr>
<tr><td class="h">61</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"> %attr = %{$attr[0]};</td></tr>
<tr><td class="h">62</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">63</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif (@attr % 2 == 0) {</td></tr>
<tr><td class="h">64</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>15</div></td><td class="s"> %attr = (@attr);</td></tr>
<tr><td class="h">65</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">66</td><td colspan="7"></td></tr><tr><td class="h">67</td><td><div class="c3">3</div></td><td><div class="c0" title="T/-"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L67">50</a></div></td><td></td><td></td><td></td><td><div>33</div></td><td class="s"> if (%attr) {</td></tr>
<tr><td class="h">68</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>7</div></td><td class="s"> my $js;</td></tr>
<tr><td class="h">69</td><td><div class="c3">3</div></td><td><div class="c0" title="-/F"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L69">50</a></div></td><td><div class="c0"><a href="lib-Railsish-ViewHelpers-pm--condition.html#L69">33</a></div></td><td></td><td></td><td><div>21</div></td><td class="s"> if ($attr{method} && $attr{method} eq 'delete') {</td></tr>
<tr><td class="h">70</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $js = <<JS;</td></tr>
<tr><td class="h">71</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">var f = document.createElement('form');</td></tr>
<tr><td class="h">72</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">f.style.display = 'none'; this.parentNode.appendChild(f);</td></tr>
<tr><td class="h">73</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">f.method = 'POST'; f.action = this.href;</td></tr>
<tr><td class="h">74</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">var m = document.createElement('input');</td></tr>
<tr><td class="h">75</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">m.setAttribute('type', 'hidden'); m.setAttribute('name', '_method');</td></tr>
<tr><td class="h">76</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">m.setAttribute('value', 'delete'); f.appendChild(m);f.submit();</td></tr>
<tr><td class="h">77</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">JS</td></tr>
<tr><td class="h">78</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">79</td><td colspan="7"></td></tr><tr><td class="h">80</td><td><div class="c3">3</div></td><td><div class="c0" title="-/F"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L80">50</a></div><div class="c0" title="-/F"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L80">50</a></div></td><td></td><td></td><td></td><td><div>33</div></td><td class="s"> if (my $confirm = delete $attr{confirm}) {</td></tr>
<tr><td class="h">81</td><td><div class="c0">0</div></td><td></td><td><div class="c0"><a href="lib-Railsish-ViewHelpers-pm--condition.html#L81">0</a></div></td><td></td><td></td><td><div>0</div></td><td class="s"> $js ||= "return true;";</td></tr>
<tr><td class="h">82</td><td><div class="c0">0</div></td><td></td><td><div class="c0"><a href="lib-Railsish-ViewHelpers-pm--condition.html#L82">0</a></div></td><td></td><td></td><td><div>0</div></td><td class="s"> $attr{onclick} ||= "";</td></tr>
<tr><td class="h">83</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $attr{onclick} .= ";if(confirm(\"$confirm\")) { $js }; return false;";</td></tr>
<tr><td class="h">84</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> } elsif ($js) {</td></tr>
<tr><td class="h">85</td><td><div class="c0">0</div></td><td></td><td><div class="c0"><a href="lib-Railsish-ViewHelpers-pm--condition.html#L85">0</a></div></td><td></td><td></td><td><div>0</div></td><td class="s"> $attr{onclick} ||= "";</td></tr>
<tr><td class="h">86</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $attr{onclick} .= "$js";</td></tr>
<tr><td class="h">87</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">88</td><td colspan="7"></td></tr><tr><td class="h">89</td><td><div class="c3">3</div><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>6</div><div>27</div><div>22</div></td><td class="s"> $attr .= qq{ $_="@{[ encode_entities($attr{$_}, '<>&"') ]}"} for keys %attr;</td></tr>
<tr><td class="h">90</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">91</td><td><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>80</div><div>15</div></td><td class="s"> qq{<a href="$url"$attr>@{[ encode_entities($label, '<>&') ]}</a>};</td></tr>
<tr><td class="h">92</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">93</td><td colspan="7"></td></tr><tr><td class="h">94</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub render_stickies {</td></tr>
<tr><td class="h">95</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Railsish-ViewHelpers-pm--subroutine.html#L95">0</a></div></td><td><div class="c0">0</div></td><td></td><td class="s"> my $session = &Railsish::Controller::session;</td></tr>
<tr><td class="h">96</td><td colspan="7"></td></tr><tr><td class="h">97</td><td><div class="c0">0</div><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L97">0</a></div><div class="c0" title="-/-"><a href="lib-Railsish-ViewHelpers-pm--branch.html#L97">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> return "" unless @{$session->{notice_stickies}||[]} > 0;</td></tr>
<tr><td class="h">98</td><td colspan="7"></td></tr><tr><td class="h">99</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $out = '<div id="notice_stickies" class="message notice">';</td></tr>
<tr><td class="h">100</td><td><div class="c0">0</div><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> while(my $stickie = pop @{$session->{notice_stickies}}) {</td></tr>
<tr><td class="h">101</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $out .= "<p>" . $stickie->{text} . "</p>";</td></tr>
<tr><td class="h">102</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">103</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $out .= "</div>";</td></tr>
<tr><td class="h">104</td><td colspan="7"></td></tr><tr><td class="h">105</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> return $out;</td></tr>
<tr><td class="h">106</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">107</td><td colspan="7"></td></tr><tr><td class="h">108</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">1;</td></tr>
</table>
</body>
</html>