-
-
Save wchristian/06c5eb5d3683394fe9b2 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!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.79 | |
Devel::Cover is copyright 2001-2011, 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: blib/lib/CPAN/Mini/Webserver/Templates.pm</title> | |
</head> | |
<body> | |
<h1>File Coverage</h1> | |
<table> | |
<tr><td class="h" align="right">File:</td><td align="left">blib/lib/CPAN/Mini/Webserver/Templates.pm</td></tr> | |
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c0">45.7%</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 CPAN::Mini::Webserver::Templates;</td></tr> | |
<tr><td class="h">2</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-CPAN-Mini-Webserver-Templates-pm--subroutine.html#L2">1</a></div></td><td></td><td><div>0</div><div>0</div><div>15625</div></td><td class="s">use strict;</td></tr> | |
<tr><td class="h">3</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-CPAN-Mini-Webserver-Templates-pm--subroutine.html#L3">1</a></div></td><td></td><td><div>0</div><div>0</div><div>0</div></td><td class="s">use warnings;</td></tr> | |
<tr><td class="h">4</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-CPAN-Mini-Webserver-Templates-pm--subroutine.html#L4">1</a></div></td><td></td><td><div>0</div><div>15625</div><div>0</div></td><td class="s">use Template::Declare::Tags;</td></tr> | |
<tr><td class="h">5</td><td><div class="c3">1</div><div class="c3">1</div><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="blib-lib-CPAN-Mini-Webserver-Templates-pm--subroutine.html#L5">1</a></div></td><td></td><td><div>0</div><div>0</div><div>15625</div></td><td class="s">use base 'Template::Declare';</td></tr> | |
<tr><td class="h">6</td><td colspan="7"></td></tr><tr><td class="h">7</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'header' => sub {</td></tr> | |
<tr><td class="h">8</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $title ) = @_;</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"> head {</td></tr> | |
<tr><td class="h">11</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> title { $title };</td></tr> | |
<tr><td class="h">12</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> link {</td></tr> | |
<tr><td class="h">13</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr {</td></tr> | |
<tr><td class="h">14</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> rel => 'stylesheet',</td></tr> | |
<tr><td class="h">15</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> href => '/static/css/screen.css',</td></tr> | |
<tr><td class="h">16</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> type => 'text/css',</td></tr> | |
<tr><td class="h">17</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> media => 'screen, projection'</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"> };</td></tr> | |
<tr><td class="h">20</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> link {</td></tr> | |
<tr><td class="h">21</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr {</td></tr> | |
<tr><td class="h">22</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> rel => 'stylesheet',</td></tr> | |
<tr><td class="h">23</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> href => '/static/css/print.css',</td></tr> | |
<tr><td class="h">24</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> type => 'text/css',</td></tr> | |
<tr><td class="h">25</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> media => 'print'</td></tr> | |
<tr><td class="h">26</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</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></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '<!--[if IE]><link rel="stylesheet" href="/static/css/ie.css" type="text/css" media="screen, projection"><![endif]-->';</td></tr> | |
<tr><td class="h">29</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> link {</td></tr> | |
<tr><td class="h">30</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr {</td></tr> | |
<tr><td class="h">31</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> rel => 'icon',</td></tr> | |
<tr><td class="h">32</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> href => '/static/images/favicon.png',</td></tr> | |
<tr><td class="h">33</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> type => 'image/png',</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></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">36</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> link {</td></tr> | |
<tr><td class="h">37</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr {</td></tr> | |
<tr><td class="h">38</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> rel => 'search',</td></tr> | |
<tr><td class="h">39</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> href => '/static/xml/opensearch.xml',</td></tr> | |
<tr><td class="h">40</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> type => 'application/opensearchdescription+xml',</td></tr> | |
<tr><td class="h">41</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> title => 'minicpan search',</td></tr> | |
<tr><td class="h">42</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</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 colspan="7"></td></tr><tr><td class="h">45</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> meta { attr { generator => 'CPAN::Mini::Webserver' } };</td></tr> | |
<tr><td class="h">46</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">47</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">48</td><td colspan="7"></td></tr><tr><td class="h">49</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'footer' => sub {</td></tr> | |
<tr><td class="h">50</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr> | |
<tr><td class="h">51</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $version = $CPAN::Mini::Webserver::VERSION;</td></tr> | |
<tr><td class="h">52</td><td colspan="7"></td></tr><tr><td class="h">53</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">54</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { id => "footer" };</td></tr> | |
<tr><td class="h">55</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> small {</td></tr> | |
<tr><td class="h">56</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "Generated by CPAN::Mini::Webserver $version";</td></tr> | |
<tr><td class="h">57</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">58</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">59</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">60</td><td colspan="7"></td></tr><tr><td class="h">61</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'author_link' => sub {</td></tr> | |
<tr><td class="h">62</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $author_desc, $arguments ) = @_;</td></tr> | |
<tr><td class="h">63</td><td colspan="7"></td></tr><tr><td class="h">64</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $author = $author_desc;</td></tr> | |
<tr><td class="h">65</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $author = $arguments->{parse_cpan_authors}->author( $author_desc ) if !$author_desc->isa( 'Parse::CPAN::Authors::Author' ) and !$author_desc->isa( 'Parse::CPAN::Whois::Author' );</td></tr> | |
<tr><td class="h">66</td><td colspan="7"></td></tr><tr><td class="h">67</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $name = my $pause_id = $author_desc;</td></tr> | |
<tr><td class="h">68</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $name = $author->name if $author;</td></tr> | |
<tr><td class="h">69</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $pause_id = $author->pauseid if $author;</td></tr> | |
<tr><td class="h">70</td><td colspan="7"></td></tr><tr><td class="h">71</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">72</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => '/~' . lc( $pause_id ) . '/' };</td></tr> | |
<tr><td class="h">73</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $name;</td></tr> | |
<tr><td class="h">74</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">75</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">76</td><td colspan="7"></td></tr><tr><td class="h">77</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'distribution_link' => sub {</td></tr> | |
<tr><td class="h">78</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $distribution ) = @_;</td></tr> | |
<tr><td class="h">79</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">80</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => '/~' . lc( $distribution->cpanid ) . '/' . $distribution->distvname . '/' };</td></tr> | |
<tr><td class="h">81</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $distribution->distvname;</td></tr> | |
<tr><td class="h">82</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">83</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">84</td><td colspan="7"></td></tr><tr><td class="h">85</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'package_link' => sub {</td></tr> | |
<tr><td class="h">86</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $package ) = @_;</td></tr> | |
<tr><td class="h">87</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distribution = $package->distribution;</td></tr> | |
<tr><td class="h">88</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">89</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => '/package/' . lc( $distribution->cpanid ) . '/' . $distribution->distvname . '/' . $package->package . '/' };</td></tr> | |
<tr><td class="h">90</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $package->package;</td></tr> | |
<tr><td class="h">91</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</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">private template distribution_file => sub {</td></tr> | |
<tr><td class="h">95</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $pauseid, $distvname, $filename ) = ( @_ );</td></tr> | |
<tr><td class="h">96</td><td colspan="7"></td></tr><tr><td class="h">97</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $display_filename =</td></tr> | |
<tr><td class="h">98</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ( $filename =~ /^$distvname\/(.*)$/ )</td></tr> | |
<tr><td class="h">99</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ? $1</td></tr> | |
<tr><td class="h">100</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> : $filename;</td></tr> | |
<tr><td class="h">101</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $href =</td></tr> | |
<tr><td class="h">102</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ( $filename =~ /\.(pm|pod)$/ )</td></tr> | |
<tr><td class="h">103</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ? "/~$pauseid/$distvname/$filename"</td></tr> | |
<tr><td class="h">104</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> : "/raw/~$pauseid/$distvname/$filename";</td></tr> | |
<tr><td class="h">105</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> row {</td></tr> | |
<tr><td class="h">106</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> cell {</td></tr> | |
<tr><td class="h">107</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">108</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => $href };</td></tr> | |
<tr><td class="h">109</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> span {</td></tr> | |
<tr><td class="h">110</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $display_filename;</td></tr> | |
<tr><td class="h">111</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">112</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">113</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">114</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">115</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">116</td><td colspan="7"></td></tr><tr><td class="h">117</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'searchbar' => sub {</td></tr> | |
<tr><td class="h">118</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr> | |
<tr><td class="h">119</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $q = shift;</td></tr> | |
<tr><td class="h">120</td><td colspan="7"></td></tr><tr><td class="h">121</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> table {</td></tr> | |
<tr><td class="h">122</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> row {</td></tr> | |
<tr><td class="h">123</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> form {</td></tr> | |
<tr><td class="h">124</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { name => 'f', method => 'get', action => '/search/' };</td></tr> | |
<tr><td class="h">125</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> cell {</td></tr> | |
<tr><td class="h">126</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'searchbar' };</td></tr> | |
<tr><td class="h">127</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw q|<a href="/"><img src="/static/images/logo.png"></a>|;</td></tr> | |
<tr><td class="h">128</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">129</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> cell {</td></tr> | |
<tr><td class="h">130</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'searchbar' };</td></tr> | |
<tr><td class="h">131</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> input {</td></tr> | |
<tr><td class="h">132</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> { attr { type => 'text', name => 'q', value => $q } };</td></tr> | |
<tr><td class="h">133</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">134</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> input {</td></tr> | |
<tr><td class="h">135</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> {</td></tr> | |
<tr><td class="h">136</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr {</td></tr> | |
<tr><td class="h">137</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> type => 'submit',</td></tr> | |
<tr><td class="h">138</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> value => 'Search Mini CPAN'</td></tr> | |
<tr><td class="h">139</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">140</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">141</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">142</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">143</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">144</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">145</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">146</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">147</td><td colspan="7"></td></tr><tr><td class="h">148</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'search_results' => sub {</td></tr> | |
<tr><td class="h">149</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $arguments ) = @_;</td></tr> | |
<tr><td class="h">150</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $q = $arguments->{q};</td></tr> | |
<tr><td class="h">151</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @authors = @{ $arguments->{authors} };</td></tr> | |
<tr><td class="h">152</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @distributions = @{ $arguments->{distributions} };</td></tr> | |
<tr><td class="h">153</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @packages = @{ $arguments->{packages} };</td></tr> | |
<tr><td class="h">154</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( @authors + @distributions + @packages ) {</td></tr> | |
<tr><td class="h">155</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '<table>';</td></tr> | |
<tr><td class="h">156</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach my $author ( @authors ) {</td></tr> | |
<tr><td class="h">157</td><td colspan="7"></td></tr><tr><td class="h">158</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> row {</td></tr> | |
<tr><td class="h">159</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> cell {</td></tr> | |
<tr><td class="h">160</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'author_link', $author );</td></tr> | |
<tr><td class="h">161</td><td colspan="7"></td></tr><tr><td class="h">162</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">163</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">164</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">165</td><td colspan="7"></td></tr><tr><td class="h">166</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach my $distribution ( @distributions ) {</td></tr> | |
<tr><td class="h">167</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> row {</td></tr> | |
<tr><td class="h">168</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> cell {</td></tr> | |
<tr><td class="h">169</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'distribution_link', $distribution );</td></tr> | |
<tr><td class="h">170</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ' by ';</td></tr> | |
<tr><td class="h">171</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'author_link', $distribution->cpanid, $arguments );</td></tr> | |
<tr><td class="h">172</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">173</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">174</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">175</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach my $package ( @packages ) {</td></tr> | |
<tr><td class="h">176</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> row {</td></tr> | |
<tr><td class="h">177</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> cell {</td></tr> | |
<tr><td class="h">178</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'package_link', $package );</td></tr> | |
<tr><td class="h">179</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ' by ';</td></tr> | |
<tr><td class="h">180</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'author_link', $package->distribution->cpanid, $arguments );</td></tr> | |
<tr><td class="h">181</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">182</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">183</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">184</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '</table>';</td></tr> | |
<tr><td class="h">185</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">186</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr> | |
<tr><td class="h">187</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> p { 'No results found.' };</td></tr> | |
<tr><td class="h">188</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">189</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">190</td><td colspan="7"></td></tr><tr><td class="h">191</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template 'index' => sub {</td></tr> | |
<tr><td class="h">192</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $arguments ) = @_;</td></tr> | |
<tr><td class="h">193</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $recents = $arguments->{recents};</td></tr> | |
<tr><td class="h">194</td><td colspan="7"></td></tr><tr><td class="h">195</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> html {</td></tr> | |
<tr><td class="h">196</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { xmlns => 'http://www.w3.org/1999/xhtml' };</td></tr> | |
<tr><td class="h">197</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">198</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'container' };</td></tr> | |
<tr><td class="h">199</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">200</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24' };</td></tr> | |
<tr><td class="h">201</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'header', 'Index' );</td></tr> | |
<tr><td class="h">202</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> body {</td></tr> | |
<tr><td class="h">203</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { onload => 'document.f.q.focus()' };</td></tr> | |
<tr><td class="h">204</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'searchbar' );</td></tr> | |
<tr><td class="h">205</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h1 { 'Index' };</td></tr> | |
<tr><td class="h">206</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> p { 'Welcome to CPAN::Mini::Webserver. Start searching!' };</td></tr> | |
<tr><td class="h">207</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( $recents->{count} ) {</td></tr> | |
<tr><td class="h">208</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 { 'Recent distributions' };</td></tr> | |
<tr><td class="h">209</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ul {</td></tr> | |
<tr><td class="h">210</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach my $recent ( @{ $recents->{display_list} } ) {</td></tr> | |
<tr><td class="h">211</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $cpanid = $recent->cpanid;</td></tr> | |
<tr><td class="h">212</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distvname = $recent->distvname;</td></tr> | |
<tr><td class="h">213</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> next unless $distvname;</td></tr> | |
<tr><td class="h">214</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">215</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">216</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => '/~' . lc( $cpanid ) . '/' . $distvname };</td></tr> | |
<tr><td class="h">217</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $distvname;</td></tr> | |
<tr><td class="h">218</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">219</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ' by ';</td></tr> | |
<tr><td class="h">220</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'author_link', $cpanid, $arguments );</td></tr> | |
<tr><td class="h">221</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">222</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">223</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">224</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> p {</td></tr> | |
<tr><td class="h">225</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'small' };</td></tr> | |
<tr><td class="h">226</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "(And " . ( $recents->{count} - @{ $recents->{display_list} } . " more.)" );</td></tr> | |
<tr><td class="h">227</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">228</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if $recents->{count} > 20;</td></tr> | |
<tr><td class="h">229</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">230</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">231</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'footer' );</td></tr> | |
<tr><td class="h">232</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">233</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">234</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">235</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">236</td><td colspan="7"></td></tr><tr><td class="h">237</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template '404' => sub {</td></tr> | |
<tr><td class="h">238</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $arguments ) = @_;</td></tr> | |
<tr><td class="h">239</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $q = $arguments->{q};</td></tr> | |
<tr><td class="h">240</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> html {</td></tr> | |
<tr><td class="h">241</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { xmlns => 'http://www.w3.org/1999/xhtml' };</td></tr> | |
<tr><td class="h">242</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">243</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'container' };</td></tr> | |
<tr><td class="h">244</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">245</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24' };</td></tr> | |
<tr><td class="h">246</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'header', 'File not found' );</td></tr> | |
<tr><td class="h">247</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> body {</td></tr> | |
<tr><td class="h">248</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'searchbar', $q );</td></tr> | |
<tr><td class="h">249</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h1 { 'Sorry. I couldn\'t find the page you wanted.' };</td></tr> | |
<tr><td class="h">250</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> p {</td></tr> | |
<tr><td class="h">251</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "Unfortunately, the page you were looking for doesn't exist. Perhaps a quick search for $q will turn up what you were looking for:";</td></tr> | |
<tr><td class="h">252</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">253</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">254</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 {</td></tr> | |
<tr><td class="h">255</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs "Search for ";</td></tr> | |
<tr><td class="h">256</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '&#147;';</td></tr> | |
<tr><td class="h">257</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs $q;</td></tr> | |
<tr><td class="h">258</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '&#148;';</td></tr> | |
<tr><td class="h">259</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">260</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'search_results', $arguments );</td></tr> | |
<tr><td class="h">261</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'footer' );</td></tr> | |
<tr><td class="h">262</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">263</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">264</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">265</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">266</td><td colspan="7"></td></tr><tr><td class="h">267</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template 'search' => sub {</td></tr> | |
<tr><td class="h">268</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $arguments ) = @_;</td></tr> | |
<tr><td class="h">269</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $q = $arguments->{q};</td></tr> | |
<tr><td class="h">270</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> html {</td></tr> | |
<tr><td class="h">271</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'header', "Search for `$q'" );</td></tr> | |
<tr><td class="h">272</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> body {</td></tr> | |
<tr><td class="h">273</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">274</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'container' };</td></tr> | |
<tr><td class="h">275</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">276</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24' };</td></tr> | |
<tr><td class="h">277</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'searchbar', $q );</td></tr> | |
<tr><td class="h">278</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h1 {</td></tr> | |
<tr><td class="h">279</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs "Search for ";</td></tr> | |
<tr><td class="h">280</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '&#147;';</td></tr> | |
<tr><td class="h">281</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs $q;</td></tr> | |
<tr><td class="h">282</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '&#148;';</td></tr> | |
<tr><td class="h">283</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">284</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'search_results', $arguments );</td></tr> | |
<tr><td class="h">285</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'footer' );</td></tr> | |
<tr><td class="h">286</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">287</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">288</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">289</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">290</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">291</td><td colspan="7"></td></tr><tr><td class="h">292</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'authorinfo' => sub {</td></tr> | |
<tr><td class="h">293</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $author ) = @_;</td></tr> | |
<tr><td class="h">294</td><td colspan="7"></td></tr><tr><td class="h">295</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $pauseid = $author->pauseid;</td></tr> | |
<tr><td class="h">296</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $email = $author->email;</td></tr> | |
<tr><td class="h">297</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $url = $author->can( 'homepage' ) ? $author->homepage : undef;</td></tr> | |
<tr><td class="h">298</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $prefix = 'id' . '/' . substr( $pauseid, 0, 1 ) . '/' . substr( $pauseid, 0, 2 ) . '/' . $pauseid;</td></tr> | |
<tr><td class="h">299</td><td colspan="7"></td></tr><tr><td class="h">300</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 { "Links" };</td></tr> | |
<tr><td class="h">301</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ul {</td></tr> | |
<tr><td class="h">302</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">303</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">304</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "http://backpan.perl.org/authors/$prefix" };</td></tr> | |
<tr><td class="h">305</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> 'BackPAN';</td></tr> | |
<tr><td class="h">306</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">307</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">308</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">309</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">310</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "mailto:$email" };</td></tr> | |
<tr><td class="h">311</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $email;</td></tr> | |
<tr><td class="h">312</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">313</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">314</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">315</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">316</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => $url };</td></tr> | |
<tr><td class="h">317</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $url;</td></tr> | |
<tr><td class="h">318</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">319</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">320</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">321</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">322</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "http://cpantesters.perl.org/author/$pauseid.html" };</td></tr> | |
<tr><td class="h">323</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> 'CPANTesters';</td></tr> | |
<tr><td class="h">324</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">325</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">326</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">327</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">328</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "http://bbbike.radzeit.de/~slaven/cpantestersmatrix.cgi?author=$pauseid" };</td></tr> | |
<tr><td class="h">329</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> 'Test Matrix';</td></tr> | |
<tr><td class="h">330</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">331</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">332</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">333</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">334</td><td colspan="7"></td></tr><tr><td class="h">335</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template 'author' => sub {</td></tr> | |
<tr><td class="h">336</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $arguments ) = @_;</td></tr> | |
<tr><td class="h">337</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $author = $arguments->{author};</td></tr> | |
<tr><td class="h">338</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $pauseid = $arguments->{pauseid};</td></tr> | |
<tr><td class="h">339</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distvname = $arguments->{distvname};</td></tr> | |
<tr><td class="h">340</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @distributions = @{ $arguments->{distributions} };</td></tr> | |
<tr><td class="h">341</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $dates = $arguments->{dates};</td></tr> | |
<tr><td class="h">342</td><td colspan="7"></td></tr><tr><td class="h">343</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> html {</td></tr> | |
<tr><td class="h">344</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'header', $author->name );</td></tr> | |
<tr><td class="h">345</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> body {</td></tr> | |
<tr><td class="h">346</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">347</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'container' };</td></tr> | |
<tr><td class="h">348</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">349</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24 last' };</td></tr> | |
<tr><td class="h">350</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'searchbar' );</td></tr> | |
<tr><td class="h">351</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h1 { show( 'author_link', $author ) };</td></tr> | |
<tr><td class="h">352</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">353</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">354</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-18 last' };</td></tr> | |
<tr><td class="h">355</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '<table>';</td></tr> | |
<tr><td class="h">356</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach my $distribution ( @distributions ) {</td></tr> | |
<tr><td class="h">357</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> row {</td></tr> | |
<tr><td class="h">358</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> cell {</td></tr> | |
<tr><td class="h">359</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'distribution_link', $distribution );</td></tr> | |
<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"> cell {</td></tr> | |
<tr><td class="h">363</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs $dates->{ $distribution->distvname };</td></tr> | |
<tr><td class="h">364</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">365</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">366</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">367</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '</table>';</td></tr> | |
<tr><td class="h">368</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">369</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">370</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-6 last' };</td></tr> | |
<tr><td class="h">371</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'authorinfo', $author );</td></tr> | |
<tr><td class="h">372</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">373</td><td colspan="7"></td></tr><tr><td class="h">374</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">375</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24 last' };</td></tr> | |
<tr><td class="h">376</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'footer' );</td></tr> | |
<tr><td class="h">377</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">378</td><td colspan="7"></td></tr><tr><td class="h">379</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">380</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">381</td><td colspan="7"></td></tr><tr><td class="h">382</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</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 colspan="7"></td></tr><tr><td class="h">385</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'dependencies' => sub {</td></tr> | |
<tr><td class="h">386</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $meta, $pcp ) = @_;</td></tr> | |
<tr><td class="h">387</td><td colspan="7"></td></tr><tr><td class="h">388</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @dep_types = qw(requires build_requires configure_requires);</td></tr> | |
<tr><td class="h">389</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> @dep_types = grep defined $meta->{$_}, @dep_types;</td></tr> | |
<tr><td class="h">390</td><td colspan="7"></td></tr><tr><td class="h">391</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">392</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'dependencies' };</td></tr> | |
<tr><td class="h">393</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 { 'Dependencies' };</td></tr> | |
<tr><td class="h">394</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> for my $deptype ( @dep_types ) {</td></tr> | |
<tr><td class="h">395</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $is_spec_req ) = $deptype =~ /(.*?)_/;</td></tr> | |
<tr><td class="h">396</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs "$is_spec_req requirements:" if $is_spec_req;</td></tr> | |
<tr><td class="h">397</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ul {</td></tr> | |
<tr><td class="h">398</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> for my $package ( sort keys %{ $meta->{$deptype} } ) {</td></tr> | |
<tr><td class="h">399</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> next if $package eq 'perl';</td></tr> | |
<tr><td class="h">400</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">401</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> dep_link( $pcp, $package );</td></tr> | |
<tr><td class="h">402</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">403</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">404</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">405</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</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">};</td></tr> | |
<tr><td class="h">408</td><td colspan="7"></td></tr><tr><td class="h">409</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub dep_link {</td></tr> | |
<tr><td class="h">410</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="blib-lib-CPAN-Mini-Webserver-Templates-pm--subroutine.html#L410">0</a></div></td><td><div class="c0">0</div></td><td></td><td class="s"> my ( $pcp, $package ) = @_;</td></tr> | |
<tr><td class="h">411</td><td colspan="7"></td></tr><tr><td class="h">412</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $p = $pcp->package( $package );</td></tr> | |
<tr><td class="h">413</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="blib-lib-CPAN-Mini-Webserver-Templates-pm--branch.html#L413">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> return outs $package if !$p;</td></tr> | |
<tr><td class="h">414</td><td colspan="7"></td></tr><tr><td class="h">415</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $d = $p->distribution;</td></tr> | |
<tr><td class="h">416</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="blib-lib-CPAN-Mini-Webserver-Templates-pm--branch.html#L416">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> return outs $package if !$d;</td></tr> | |
<tr><td class="h">417</td><td colspan="7"></td></tr><tr><td class="h">418</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distvname = $d->distvname;</td></tr> | |
<tr><td class="h">419</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $author = $d->cpanid;</td></tr> | |
<tr><td class="h">420</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">421</td><td><div class="c0">0</div><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="blib-lib-CPAN-Mini-Webserver-Templates-pm--subroutine.html#L421">0</a></div></td><td></td><td></td><td class="s"> attr { href => "/~$author/$distvname/" };</td></tr> | |
<tr><td class="h">422</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $package;</td></tr> | |
<tr><td class="h">423</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">424</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> return;</td></tr> | |
<tr><td class="h">425</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr> | |
<tr><td class="h">426</td><td colspan="7"></td></tr><tr><td class="h">427</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'metadata' => sub {</td></tr> | |
<tr><td class="h">428</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $meta ) = @_;</td></tr> | |
<tr><td class="h">429</td><td colspan="7"></td></tr><tr><td class="h">430</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 { 'Metadata' };</td></tr> | |
<tr><td class="h">431</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">432</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'metadata' };</td></tr> | |
<tr><td class="h">433</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> dl {</td></tr> | |
<tr><td class="h">434</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach my $key ( qw(abstract license repository), 'release date' ) {</td></tr> | |
<tr><td class="h">435</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( defined $meta->{$key} ) {</td></tr> | |
<tr><td class="h">436</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> dt { ucfirst $key; };</td></tr> | |
<tr><td class="h">437</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( defined $meta->{resources}->{$key} ) {</td></tr> | |
<tr><td class="h">438</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">439</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => delete $meta->{resources}->{$key} };</td></tr> | |
<tr><td class="h">440</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $meta->{$key};</td></tr> | |
<tr><td class="h">441</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">442</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">443</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr> | |
<tr><td class="h">444</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> dd { $meta->{$key} };</td></tr> | |
<tr><td class="h">445</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">446</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">447</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">448</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach my $datum ( keys %{ $meta->{resources} } ) {</td></tr> | |
<tr><td class="h">449</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> dt { ucfirst $datum; }</td></tr> | |
<tr><td class="h">450</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> dd {</td></tr> | |
<tr><td class="h">451</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">452</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => $meta->{resources}->{$datum}; };</td></tr> | |
<tr><td class="h">453</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $meta->{resources}->{$datum};</td></tr> | |
<tr><td class="h">454</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">455</td><td colspan="7"></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></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">458</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">459</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">460</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">461</td><td colspan="7"></td></tr><tr><td class="h">462</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'download' => sub {</td></tr> | |
<tr><td class="h">463</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $author, $distribution ) = @_;</td></tr> | |
<tr><td class="h">464</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distvname = $distribution->distvname;</td></tr> | |
<tr><td class="h">465</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 { 'Download' };</td></tr> | |
<tr><td class="h">466</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">467</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">468</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => '/download/~' . $author->pauseid . "/$distvname" };</td></tr> | |
<tr><td class="h">469</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $distribution->filename;</td></tr> | |
<tr><td class="h">470</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">471</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">472</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">473</td><td colspan="7"></td></tr><tr><td class="h">474</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'install' => sub {</td></tr> | |
<tr><td class="h">475</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $author, $distribution, $filenames ) = @_;</td></tr> | |
<tr><td class="h">476</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distvname = $distribution->distvname;</td></tr> | |
<tr><td class="h">477</td><td colspan="7"></td></tr><tr><td class="h">478</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Check whether we have the module/distribution installed</td></tr> | |
<tr><td class="h">479</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # And display the status</td></tr> | |
<tr><td class="h">480</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Just fudge:</td></tr> | |
<tr><td class="h">481</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # * If we have lib/*.pm, that's a contained module</td></tr> | |
<tr><td class="h">482</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @modules = map {</td></tr> | |
<tr><td class="h">483</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> m![^/]*/lib/(.*?)\.pm!;</td></tr> | |
<tr><td class="h">484</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $_ = $1;</td></tr> | |
<tr><td class="h">485</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> s!/!::!g;</td></tr> | |
<tr><td class="h">486</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $_</td></tr> | |
<tr><td class="h">487</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> } grep { m![^/]*/lib/.*?\.pm$! } @{$filenames};</td></tr> | |
<tr><td class="h">488</td><td colspan="7"></td></tr><tr><td class="h">489</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $installed_version = Module::InstalledVersion->new( $modules[0] );</td></tr> | |
<tr><td class="h">490</td><td colspan="7"></td></tr><tr><td class="h">491</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $msg = "Not installed on this Perl";</td></tr> | |
<tr><td class="h">492</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $action = 'Install';</td></tr> | |
<tr><td class="h">493</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( $installed_version->{version} ) {</td></tr> | |
<tr><td class="h">494</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $msg = sprintf 'You have version %s installed.', $installed_version->{version};</td></tr> | |
<tr><td class="h">495</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( $installed_version->{version} lt $distribution->version ) {</td></tr> | |
<tr><td class="h">496</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $action = 'Update';</td></tr> | |
<tr><td class="h">497</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">498</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif ( $installed_version->{version} eq $distribution->version ) {</td></tr> | |
<tr><td class="h">499</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $action = 'Reinstall';</td></tr> | |
<tr><td class="h">500</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">501</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr> | |
<tr><td class="h">502</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $action = 'Downgrade';</td></tr> | |
<tr><td class="h">503</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">504</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">505</td><td colspan="7"></td></tr><tr><td class="h">506</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 { 'Install' };</td></tr> | |
<tr><td class="h">507</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">508</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'install' };</td></tr> | |
<tr><td class="h">509</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div { attr { 'class' => "install-message" }; $msg };</td></tr> | |
<tr><td class="h">510</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> form {</td></tr> | |
<tr><td class="h">511</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'install-link' } attr { method => 'PUT' };</td></tr> | |
<tr><td class="h">512</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr {</td></tr> | |
<tr><td class="h">513</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> action => '/install/~' . lc( $distribution->cpanid ) . '/' . $distribution->distvname . '/' . $distribution->filename;</td></tr> | |
<tr><td class="h">514</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">515</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> button { $action } $action;</td></tr> | |
<tr><td class="h">516</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">517</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">518</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">519</td><td colspan="7"></td></tr><tr><td class="h">520</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">private template 'dist_links' => sub {</td></tr> | |
<tr><td class="h">521</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $distribution ) = @_;</td></tr> | |
<tr><td class="h">522</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distname = $distribution->dist;</td></tr> | |
<tr><td class="h">523</td><td colspan="7"></td></tr><tr><td class="h">524</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 { 'Links' };</td></tr> | |
<tr><td class="h">525</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ul {</td></tr> | |
<tr><td class="h">526</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">527</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs "Test ";</td></tr> | |
<tr><td class="h">528</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">529</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "http://bbbike.radzeit.de/~slaven/cpantestersmatrix.cgi?dist=$distname" };</td></tr> | |
<tr><td class="h">530</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "matrix";</td></tr> | |
<tr><td class="h">531</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">532</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs " and ";</td></tr> | |
<tr><td class="h">533</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">534</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "http://cpantesters.perl.org/show/$distname.html" };</td></tr> | |
<tr><td class="h">535</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "reports";</td></tr> | |
<tr><td class="h">536</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">537</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">538</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">539</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">540</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "http://rt.cpan.org/NoAuth/Bugs.html?Dist=$distname" };</td></tr> | |
<tr><td class="h">541</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "RT";</td></tr> | |
<tr><td class="h">542</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">543</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs " (or via ";</td></tr> | |
<tr><td class="h">544</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">545</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "mailto:bug-$distname\@rt.cpan.org" } "email";</td></tr> | |
<tr><td class="h">546</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">547</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ")";</td></tr> | |
<tr><td class="h">548</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">549</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">550</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">551</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "http://annocpan.org/dist/$distname" };</td></tr> | |
<tr><td class="h">552</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "AnnoCPAN";</td></tr> | |
<tr><td class="h">553</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">554</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">555</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> li {</td></tr> | |
<tr><td class="h">556</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">557</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "http://cpanratings.perl.org/d/$distname" };</td></tr> | |
<tr><td class="h">558</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "CPAN Ratings";</td></tr> | |
<tr><td class="h">559</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">560</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">561</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">562</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">563</td><td colspan="7"></td></tr><tr><td class="h">564</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template 'filelist' => sub {</td></tr> | |
<tr><td class="h">565</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $pauseid, $distvname, $label, $filenames ) = @_;</td></tr> | |
<tr><td class="h">566</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h2 { $label };</td></tr> | |
<tr><td class="h">567</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '<table>';</td></tr> | |
<tr><td class="h">568</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach my $filename ( @$filenames ) {</td></tr> | |
<tr><td class="h">569</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show(</td></tr> | |
<tr><td class="h">570</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> distribution_file => $pauseid,</td></tr> | |
<tr><td class="h">571</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $distvname, $filename</td></tr> | |
<tr><td class="h">572</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr> | |
<tr><td class="h">573</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">574</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw '</table>';</td></tr> | |
<tr><td class="h">575</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">576</td><td colspan="7"></td></tr><tr><td class="h">577</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template 'distribution' => sub {</td></tr> | |
<tr><td class="h">578</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $arguments ) = @_;</td></tr> | |
<tr><td class="h">579</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $author = $arguments->{author};</td></tr> | |
<tr><td class="h">580</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $pauseid = $arguments->{pauseid};</td></tr> | |
<tr><td class="h">581</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distvname = $arguments->{distvname};</td></tr> | |
<tr><td class="h">582</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distribution = $arguments->{distribution};</td></tr> | |
<tr><td class="h">583</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @filenames = @{ $arguments->{filenames} };</td></tr> | |
<tr><td class="h">584</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $meta = $arguments->{meta};</td></tr> | |
<tr><td class="h">585</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $pcp = $arguments->{pcp};</td></tr> | |
<tr><td class="h">586</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> html {</td></tr> | |
<tr><td class="h">587</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'header', $author->name . ' > ' . $distvname );</td></tr> | |
<tr><td class="h">588</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> body {</td></tr> | |
<tr><td class="h">589</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">590</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'container' };</td></tr> | |
<tr><td class="h">591</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">592</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24 last' };</td></tr> | |
<tr><td class="h">593</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'searchbar' );</td></tr> | |
<tr><td class="h">594</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h1 {</td></tr> | |
<tr><td class="h">595</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'author_link', $author );</td></tr> | |
<tr><td class="h">596</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ' > ';</td></tr> | |
<tr><td class="h">597</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'distribution_link', $distribution );</td></tr> | |
<tr><td class="h">598</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">599</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">600</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">601</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-18 last' };</td></tr> | |
<tr><td class="h">602</td><td colspan="7"></td></tr><tr><td class="h">603</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # outs_raw '<table>';</td></tr> | |
<tr><td class="h">604</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( @code, @test, @other, @doc );</td></tr> | |
<tr><td class="h">605</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> foreach ( @filenames ) {</td></tr> | |
<tr><td class="h">606</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( m{(?:/bin/|\.p(?:m|l)$)} and not m{/inc/} ) {</td></tr> | |
<tr><td class="h">607</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> push @code, $_;</td></tr> | |
<tr><td class="h">608</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">609</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif ( m{\.pod$} ) {</td></tr> | |
<tr><td class="h">610</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> push @doc, $_;</td></tr> | |
<tr><td class="h">611</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">612</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif ( /\.t$/ ) {</td></tr> | |
<tr><td class="h">613</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> push @test, $_;</td></tr> | |
<tr><td class="h">614</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">615</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr> | |
<tr><td class="h">616</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> push @other, $_;</td></tr> | |
<tr><td class="h">617</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">618</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">619</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'filelist', $pauseid, $distvname, 'Code', \@code )</td></tr> | |
<tr><td class="h">620</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if @code;</td></tr> | |
<tr><td class="h">621</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'filelist', $pauseid, $distvname, 'Documentation', \@doc )</td></tr> | |
<tr><td class="h">622</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if @doc;</td></tr> | |
<tr><td class="h">623</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'filelist', $pauseid, $distvname, 'Tests', \@test )</td></tr> | |
<tr><td class="h">624</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if @test;</td></tr> | |
<tr><td class="h">625</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'filelist', $pauseid, $distvname, 'Other', \@other )</td></tr> | |
<tr><td class="h">626</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if @other;</td></tr> | |
<tr><td class="h">627</td><td colspan="7"></td></tr><tr><td class="h">628</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # foreach my $filename (@filenames) {</td></tr> | |
<tr><td class="h">629</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # show(</td></tr> | |
<tr><td class="h">630</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # distribution_file => $pauseid,</td></tr> | |
<tr><td class="h">631</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # $distvname, $filename</td></tr> | |
<tr><td class="h">632</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # );</td></tr> | |
<tr><td class="h">633</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # }</td></tr> | |
<tr><td class="h">634</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # outs_raw '</table>';</td></tr> | |
<tr><td class="h">635</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">636</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">637</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-6 last' };</td></tr> | |
<tr><td class="h">638</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'metadata', $meta );</td></tr> | |
<tr><td class="h">639</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'dependencies', $meta, $pcp );</td></tr> | |
<tr><td class="h">640</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'download', $author, $distribution );</td></tr> | |
<tr><td class="h">641</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'install', $author, $distribution, \@filenames );</td></tr> | |
<tr><td class="h">642</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'dist_links', $distribution );</td></tr> | |
<tr><td class="h">643</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">644</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">645</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24 last' };</td></tr> | |
<tr><td class="h">646</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'footer' );</td></tr> | |
<tr><td class="h">647</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">648</td><td colspan="7"></td></tr><tr><td class="h">649</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">650</td><td colspan="7"></td></tr><tr><td class="h">651</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">652</td><td colspan="7"></td></tr><tr><td class="h">653</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">654</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">655</td><td colspan="7"></td></tr><tr><td class="h">656</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template 'file' => sub {</td></tr> | |
<tr><td class="h">657</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $arguments ) = @_;</td></tr> | |
<tr><td class="h">658</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $author = $arguments->{author};</td></tr> | |
<tr><td class="h">659</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distribution = $arguments->{distribution};</td></tr> | |
<tr><td class="h">660</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $filename = $arguments->{filename};</td></tr> | |
<tr><td class="h">661</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $pauseid = $arguments->{pauseid};</td></tr> | |
<tr><td class="h">662</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distvname = $arguments->{distvname};</td></tr> | |
<tr><td class="h">663</td><td colspan="7"></td></tr><tr><td class="h">664</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $file = $arguments->{filename};</td></tr> | |
<tr><td class="h">665</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $contents = $arguments->{contents};</td></tr> | |
<tr><td class="h">666</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $html = $arguments->{html};</td></tr> | |
<tr><td class="h">667</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> html {</td></tr> | |
<tr><td class="h">668</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'header', $author->name . ' > ' . $distvname . ' > ' . $filename );</td></tr> | |
<tr><td class="h">669</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> body {</td></tr> | |
<tr><td class="h">670</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">671</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'container' };</td></tr> | |
<tr><td class="h">672</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">673</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24' };</td></tr> | |
<tr><td class="h">674</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'searchbar' );</td></tr> | |
<tr><td class="h">675</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h1 {</td></tr> | |
<tr><td class="h">676</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'author_link', $author );</td></tr> | |
<tr><td class="h">677</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ' > ';</td></tr> | |
<tr><td class="h">678</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'distribution_link', $distribution );</td></tr> | |
<tr><td class="h">679</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ' > ';</td></tr> | |
<tr><td class="h">680</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs $filename;</td></tr> | |
<tr><td class="h">681</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">682</td><td colspan="7"></td></tr><tr><td class="h">683</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">684</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => "/raw/~$pauseid/$distvname/$filename" };</td></tr> | |
<tr><td class="h">685</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "See raw file";</td></tr> | |
<tr><td class="h">686</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">687</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( $html ) {</td></tr> | |
<tr><td class="h">688</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">689</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { id => "pod" };</td></tr> | |
<tr><td class="h">690</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw $html;</td></tr> | |
<tr><td class="h">691</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">692</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">693</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr> | |
<tr><td class="h">694</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> pre { $contents };</td></tr> | |
<tr><td class="h">695</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">696</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'footer' );</td></tr> | |
<tr><td class="h">697</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">698</td><td colspan="7"></td></tr><tr><td class="h">699</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">700</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">701</td><td colspan="7"></td></tr><tr><td class="h">702</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">703</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">704</td><td colspan="7"></td></tr><tr><td class="h">705</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template 'raw' => sub {</td></tr> | |
<tr><td class="h">706</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ( $self, $arguments ) = @_;</td></tr> | |
<tr><td class="h">707</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $author = $arguments->{author};</td></tr> | |
<tr><td class="h">708</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distribution = $arguments->{distribution};</td></tr> | |
<tr><td class="h">709</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $filename = $arguments->{filename};</td></tr> | |
<tr><td class="h">710</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $pauseid = $arguments->{pauseid};</td></tr> | |
<tr><td class="h">711</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $distvname = $arguments->{distvname};</td></tr> | |
<tr><td class="h">712</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $contents = $arguments->{contents};</td></tr> | |
<tr><td class="h">713</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $html = $arguments->{html};</td></tr> | |
<tr><td class="h">714</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> html {</td></tr> | |
<tr><td class="h">715</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'header', $author->name . ' > ' . $distvname . ' > ' . $filename );</td></tr> | |
<tr><td class="h">716</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> body {</td></tr> | |
<tr><td class="h">717</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">718</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'container' };</td></tr> | |
<tr><td class="h">719</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">720</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'span-24' };</td></tr> | |
<tr><td class="h">721</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'searchbar' );</td></tr> | |
<tr><td class="h">722</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> h1 {</td></tr> | |
<tr><td class="h">723</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'author_link', $author );</td></tr> | |
<tr><td class="h">724</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ' > ';</td></tr> | |
<tr><td class="h">725</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'distribution_link', $distribution );</td></tr> | |
<tr><td class="h">726</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs ' > ';</td></tr> | |
<tr><td class="h">727</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs $filename;</td></tr> | |
<tr><td class="h">728</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">729</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if ( $html ) {</td></tr> | |
<tr><td class="h">730</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">731</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { id => "code" };</td></tr> | |
<tr><td class="h">732</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> code {</td></tr> | |
<tr><td class="h">733</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw $html;</td></tr> | |
<tr><td class="h">734</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">735</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">736</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">737</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr> | |
<tr><td class="h">738</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> pre { $contents };</td></tr> | |
<tr><td class="h">739</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">740</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> div {</td></tr> | |
<tr><td class="h">741</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { class => 'download-link' };</td></tr> | |
<tr><td class="h">742</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> a {</td></tr> | |
<tr><td class="h">743</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> attr { href => '/download/~' . $author->pauseid . "/$distvname/$filename" };</td></tr> | |
<tr><td class="h">744</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> "Download as plain text";</td></tr> | |
<tr><td class="h">745</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">746</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">747</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> show( 'footer' );</td></tr> | |
<tr><td class="h">748</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">749</td><td colspan="7"></td></tr><tr><td class="h">750</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">751</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> };</td></tr> | |
<tr><td class="h">752</td><td colspan="7"></td></tr><tr><td class="h">753</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr> | |
<tr><td class="h">754</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">755</td><td colspan="7"></td></tr><tr><td class="h">756</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">template 'opensearch' => sub {</td></tr> | |
<tr><td class="h">757</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $self = shift;</td></tr> | |
<tr><td class="h">758</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> outs_raw q|<?xml version="1.0" encoding="UTF-8"?></td></tr> | |
<tr><td class="h">759</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"><OpenSearchDescription xmlns="http://a9.com/-/spec/opensearch/1.1/"></td></tr> | |
<tr><td class="h">760</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"><ShortName>minicpan_webserver</ShortName></td></tr> | |
<tr><td class="h">761</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"><Description>Search minicpan</Description></td></tr> | |
<tr><td class="h">762</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"><InputEncoding>UTF-8</InputEncoding></td></tr> | |
<tr><td class="h">763</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"><Image width="16" height="16">data:image/png,%89PNG%0D%0A%1A%0A%00%00%00%0DIHDR%00%00%00%10%00%00%00%10%08%03%00%00%00(-%0FS%00%00%00%01sRGB%00%AE%CE%1C%E9%00%00%003PLTE8%00%00%05%08%04%16%18%15%1E%1F%1D!%22%20%26(%26%2C-%2B130%3B%3D%3AFHELMKXZWegdxyw%84%86%83%9E%A0%9D%CC%CE%CBjq%F6r%00%00%00%01tRNS%00%40%E6%D8f%00%00%00lIDAT%18%D3u%8FY%0E%C20%0C%05%BD%AF)%ED%FDO%0B%85%10%15%04%EF%C7%1A%7B%2C%D9%00%7Fr%C4W%A3u%EB%2B%EFn%E3sAnr1%8E%E11%D4rq%1Bn%9E%CC%8B%15%C5%01%14u%B2%A0%3EmA9K1Z%BD%5C%C6%87%18%B4%18%8A0%A0Q%2B%C3%CC%232%9D%CE%19%E1%3B%3C%E6%E6%CA%BC%C4%A5%BB%C2%84%FC%D7%DBw%7BS%02%E3Ki%23G%00%00%00%00IEND%AEB%60%82</Image></td></tr> | |
<tr><td class="h">764</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"><Url type="text/html" method="get" template="http://localhost:2963/search/?q={searchTerms}"/></td></tr> | |
<tr><td class="h">765</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"></OpenSearchDescription></td></tr> | |
<tr><td class="h">766</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">|;</td></tr> | |
<tr><td class="h">767</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">};</td></tr> | |
<tr><td class="h">768</td><td colspan="7"></td></tr></table> | |
</body> | |
</html> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Microsoft Windows XP [Version 5.1.2600] | |
(C) Copyright 1985-2001 Microsoft Corp. | |
D:\cpan-mini-webserver>perl t/simple.t | |
1..51 | |
ok 1 - html page from '/' | |
ok 2 | |
ok 3 | |
ok 4 - html page from '/search/' | |
ok 5 | |
ok 6 - html page from '/search/' | |
ok 7 | |
ok 8 | |
ok 9 | |
ok 10 - html page from '~andk/' | |
ok 11 | |
ok 12 | |
ok 13 | |
ok 14 - html page from '~andk/CPAN-Test-Dummy-Perl5-Make-1.05/' | |
ok 15 | |
ok 16 | |
ok 17 | |
ok 18 - html page from '~andk/CPAN-Test-Dummy-Perl5-Make-1.05/CPAN-Test-Dummy-Perl5-Make-1.05/Changes' | |
ok 19 | |
ok 20 | |
ok 21 - html page from '~andk/CPAN-Test-Dummy-Perl5-Make-1.05/CPAN-Test-Dummy-Perl5-Make-1.05/lib/Bundle/CpanTestDummies.pm' | |
ok 22 | |
ok 23 | |
ok 24 | |
ok 25 - html page from '/raw/~andk/CPAN-Test-Dummy-Perl5-Make-1.05/CPAN-Test-Dummy-Perl5-Make-1.05/lib/Bundle/CpanTestDummies.pm' | |
ok 26 | |
ok 27 | |
ok 28 - redirect from '/package/andk/CPAN-Test-Dummy-Perl5-Make-1.05/Bundle::CpanTestDummies/' | |
ok 29 - css from '/static/css/screen.css' | |
ok 30 - css from '/static/css/print.css' | |
ok 31 - css from '/static/css/ie.css' | |
ok 32 - png from '/static/images/logo.png' | |
ok 33 - png from '/static/images/favicon.png' | |
ok 34 - png from 'favicon.ico' | |
ok 35 - opensearch from '/static/xml/opensearch.xml' | |
ok 36 - error 404 for '/this/doesnt/exist' | |
ok 37 - download for '/download/~ANDK/CPAN-Test-Dummy-Perl5-Make-1.05/CPAN-Test-Dummy-Perl5-Make-1.05/README' | |
ok 38 | |
ok 39 - redirect from '/download/~ANDK/CPAN-Test-Dummy-Perl5-Make-1.05' | |
ok 40 - download for '/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-1.05.tar.gz' | |
ok 41 - download for '/modules/02packages.details.txt.gz' | |
ok 42 | |
ok 43 - download for '/authors/01mailrc.txt.gz' | |
ok 44 | |
ok 45 - download for '/authors/id/A/AN/ANDK/CHECKSUMS' | |
ok 46 | |
ok 47 - error 404 for '/authors/id/A/AN/ANDK/CHECKSUMZ' | |
ok 48 - download for '/download/~MELEZHIK/AMZ_TEST-0.0.2/AMZ_TEST-v0.0.3/lib/AMZ/Test.pm' | |
ok 49 - utf8 text in file downloads survives undamaged | |
ok 50 - error 500 for '/download/~MELEZHIK/AMZ_TEST-v0.0.3/AMZ_TEST-v0.0.3/lib/AMZ/Test.pm' | |
ok 51 | |
D:\cpan-mini-webserver>perl -MDevel::Cover t/simple.t | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::_compiled_type_constraint of attribute compiled_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 27) for MD | |
5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::_compiled_type_constraint of attribute compiled_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 27)" | |
(accessor Moose::Meta::TypeConstraint::_compiled_type_constraint of attribute compiled_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::_has_compiled_type_constraint of attribute compiled_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 27) f | |
or MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::_has_compiled_type_constraint of attribute compiled_type_constraint (defined at C:/Perl/site/lib/Moose.pm line | |
27)" (predicate Moose::Meta::TypeConstraint::_has_compiled_type_constraint of attribute compiled_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeConstraint::parent (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeConstraint::parent (defined at C:/Perl/site/lib/Moose.pm line 27)" (reader Moose::Meta::TypeConstraint::parent (defined at C: | |
/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::has_parent of attribute parent (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::has_parent of attribute parent (defined at C:/Perl/site/lib/Moose.pm line 27)" (predicate Moose::Meta::TypeCon | |
straint::has_parent of attribute parent (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::_inline_environment of attribute inline_environment (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: In | |
valid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::_inline_environment of attribute inline_environment (defined at C:/Perl/site/lib/Moose.pm line 27)" (accessor M | |
oose::Meta::TypeConstraint::_inline_environment of attribute inline_environment (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::hand_optimized_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::hand_optimized_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 27)" (accessor Moose::Meta::TypeConst | |
raint::hand_optimized_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::has_hand_optimized_type_constraint of attribute hand_optimized_type_constraint (defined at C:/Perl/site/lib/Moose.pm | |
line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::has_hand_optimized_type_constraint of attribute hand_optimized_type_constraint (defined at C:/Perl/site/lib/Mo | |
ose.pm line 27)" (predicate Moose::Meta::TypeConstraint::has_hand_optimized_type_constraint of attribute hand_optimized_type_constraint (defined at C:/Perl/site/lib/Moose.pm line 2 | |
7)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::coercion (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::coercion (defined at C:/Perl/site/lib/Moose.pm line 27)" (accessor Moose::Meta::TypeConstraint::coercion (defin | |
ed at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::has_coercion of attribute coercion (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::has_coercion of attribute coercion (defined at C:/Perl/site/lib/Moose.pm line 27)" (predicate Moose::Meta::Typ | |
eConstraint::has_coercion of attribute coercion (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeConstraint::name (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeConstraint::name (defined at C:/Perl/site/lib/Moose.pm line 27)" (reader Moose::Meta::TypeConstraint::name (defined at C:/Per | |
l/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::_default_message (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::_default_message (defined at C:/Perl/site/lib/Moose.pm line 27)" (accessor Moose::Meta::TypeConstraint::_defaul | |
t_message (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::_package_defined_in of attribute package_defined_in (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: In | |
valid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::_package_defined_in of attribute package_defined_in (defined at C:/Perl/site/lib/Moose.pm line 27)" (accessor M | |
oose::Meta::TypeConstraint::_package_defined_in of attribute package_defined_in (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::message (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::message (defined at C:/Perl/site/lib/Moose.pm line 27)" (accessor Moose::Meta::TypeConstraint::message (defined | |
at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::has_message of attribute message (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::has_message of attribute message (defined at C:/Perl/site/lib/Moose.pm line 27)" (predicate Moose::Meta::TypeC | |
onstraint::has_message of attribute message (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeConstraint::constraint (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeConstraint::constraint (defined at C:/Perl/site/lib/Moose.pm line 27)" (reader Moose::Meta::TypeConstraint::constraint (defin | |
ed at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open writer Moose::Meta::TypeConstraint::_set_constraint of attribute constraint (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "writer Moose::Meta::TypeConstraint::_set_constraint of attribute constraint (defined at C:/Perl/site/lib/Moose.pm line 27)" (writer Moose::Meta::Type | |
Constraint::_set_constraint of attribute constraint (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::inlined (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::inlined (defined at C:/Perl/site/lib/Moose.pm line 27)" (accessor Moose::Meta::TypeConstraint::inlined (defined | |
at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::_has_inlined_type_constraint of attribute inlined (defined at C:/Perl/site/lib/Moose.pm line 27) for MD5 digest: Inv | |
alid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::_has_inlined_type_constraint of attribute inlined (defined at C:/Perl/site/lib/Moose.pm line 27)" (predicate M | |
oose::Meta::TypeConstraint::_has_inlined_type_constraint of attribute inlined (defined at C:/Perl/site/lib/Moose.pm line 27)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moose::Meta::TypeCon | |
straint::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::Union::type_constraints (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 33) for MD5 digest: Invalid a | |
rgument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::Union::type_constraints (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 33)" (accessor Moose::M | |
eta::TypeConstraint::Union::type_constraints (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 33)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::Union::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::Union::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moose::Meta:: | |
TypeConstraint::Union::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::Parameterized::type_parameter (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 34) for MD5 digest: Inv | |
alid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::Parameterized::type_parameter (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 34)" (accessor Mo | |
ose::Meta::TypeConstraint::Parameterized::type_parameter (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 34)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::Parameterized::has_type_parameter of attribute type_parameter (defined at C:/Perl/site/lib/Moose/Util/TypeConstraint | |
s.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::Parameterized::has_type_parameter of attribute type_parameter (defined at C:/Perl/site/lib/Moose/Util/TypeCons | |
traints.pm line 34)" (predicate Moose::Meta::TypeConstraint::Parameterized::has_type_parameter of attribute type_parameter (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.p | |
m line 34)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::Parameterized::parameterized_from (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 34) for MD5 digest: | |
Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::Parameterized::parameterized_from (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 34)" (accesso | |
r Moose::Meta::TypeConstraint::Parameterized::parameterized_from (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 34)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::Parameterized::has_parameterized_from of attribute parameterized_from (defined at C:/Perl/site/lib/Moose/Util/TypeCo | |
nstraints.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::Parameterized::has_parameterized_from of attribute parameterized_from (defined at C:/Perl/site/lib/Moose/Util/ | |
TypeConstraints.pm line 34)" (predicate Moose::Meta::TypeConstraint::Parameterized::has_parameterized_from of attribute parameterized_from (defined at C:/Perl/site/lib/Moose/Util/T | |
ypeConstraints.pm line 34)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::Parameterized::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid a | |
rgument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::Parameterized::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moose | |
::Meta::TypeConstraint::Parameterized::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::Parameterizable::constraint_generator (defined at C:/Perl/site/lib/Moose/Meta/TypeConstraint/Parameterized.pm line 15 | |
) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::Parameterizable::constraint_generator (defined at C:/Perl/site/lib/Moose/Meta/TypeConstraint/Parameterized.pm l | |
ine 15)" (accessor Moose::Meta::TypeConstraint::Parameterizable::constraint_generator (defined at C:/Perl/site/lib/Moose/Meta/TypeConstraint/Parameterized.pm line 15)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::Parameterizable::has_constraint_generator of attribute constraint_generator (defined at C:/Perl/site/lib/Moose/Meta/ | |
TypeConstraint/Parameterized.pm line 15) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::Parameterizable::has_constraint_generator of attribute constraint_generator (defined at C:/Perl/site/lib/Moose | |
/Meta/TypeConstraint/Parameterized.pm line 15)" (predicate Moose::Meta::TypeConstraint::Parameterizable::has_constraint_generator of attribute constraint_generator (defined at C:/P | |
erl/site/lib/Moose/Meta/TypeConstraint/Parameterized.pm line 15)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::Parameterizable::inline_generator (defined at C:/Perl/site/lib/Moose/Meta/TypeConstraint/Parameterized.pm line 15) fo | |
r MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::Parameterizable::inline_generator (defined at C:/Perl/site/lib/Moose/Meta/TypeConstraint/Parameterized.pm line | |
15)" (accessor Moose::Meta::TypeConstraint::Parameterizable::inline_generator (defined at C:/Perl/site/lib/Moose/Meta/TypeConstraint/Parameterized.pm line 15)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::Parameterizable::has_inline_generator of attribute inline_generator (defined at C:/Perl/site/lib/Moose/Meta/TypeCons | |
traint/Parameterized.pm line 15) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::Parameterizable::has_inline_generator of attribute inline_generator (defined at C:/Perl/site/lib/Moose/Meta/Ty | |
peConstraint/Parameterized.pm line 15)" (predicate Moose::Meta::TypeConstraint::Parameterizable::has_inline_generator of attribute inline_generator (defined at C:/Perl/site/lib/Moo | |
se/Meta/TypeConstraint/Parameterized.pm line 15)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::Parameterizable::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid | |
argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::Parameterizable::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moo | |
se::Meta::TypeConstraint::Parameterizable::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeConstraint::Class::class (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 36) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeConstraint::Class::class (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 36)" (reader Moose::Meta::TypeConstr | |
aint::Class::class (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 36)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::Class::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::Class::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moose::Meta:: | |
TypeConstraint::Class::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeConstraint::Role::role (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 37) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeConstraint::Role::role (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 37)" (reader Moose::Meta::TypeConstrai | |
nt::Role::role (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 37)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::Role::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::Role::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moose::Meta::T | |
ypeConstraint::Role::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::Enum::_inline_var_name (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 38) for MD5 digest: Invalid ar | |
gument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::Enum::_inline_var_name (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 38)" (accessor Moose::Me | |
ta::TypeConstraint::Enum::_inline_var_name (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 38)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::Enum::values (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 38) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::Enum::values (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 38)" (accessor Moose::Meta::TypeCo | |
nstraint::Enum::values (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 38)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::Enum::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::Enum::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moose::Meta::T | |
ypeConstraint::Enum::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeConstraint::DuckType::methods (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 39) for MD5 digest: Invalid argumen | |
t | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeConstraint::DuckType::methods (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 39)" (accessor Moose::Meta::T | |
ypeConstraint::DuckType::methods (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 39)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::DuckType::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid argume | |
nt | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::DuckType::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moose::Met | |
a::TypeConstraint::DuckType::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeConstraint::Registry::type_constraints (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 42) for MD5 digest: Invalid | |
argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeConstraint::Registry::type_constraints (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 42)" (reader Moose::Me | |
ta::TypeConstraint::Registry::type_constraints (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 42)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeConstraint::Registry::get_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm l | |
ine 42) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeConstraint::Registry::get_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstraint | |
s.pm line 42)" (reader Moose::Meta::TypeConstraint::Registry::get_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 42)): | |
ignored. | |
Devel::Cover: Can't open writer Moose::Meta::TypeConstraint::Registry::set_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm l | |
ine 42) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "writer Moose::Meta::TypeConstraint::Registry::set_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstraint | |
s.pm line 42)" (writer Moose::Meta::TypeConstraint::Registry::set_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 42)): | |
ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::TypeConstraint::Registry::has_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.p | |
m line 42) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::TypeConstraint::Registry::has_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstra | |
ints.pm line 42)" (predicate Moose::Meta::TypeConstraint::Registry::has_parent_registry of attribute parent_registry (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line | |
42)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeConstraint::Registry::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686) for MD5 digest: Invalid argume | |
nt | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeConstraint::Registry::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)" (constructor Moose::Met | |
a::TypeConstraint::Registry::_new (defined at C:/Perl/site/lib/Moose/Util/TypeConstraints.pm line 686)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeCoercion::type_constraint (defined at C:/Perl/site/lib/Moose.pm line 28) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeCoercion::type_constraint (defined at C:/Perl/site/lib/Moose.pm line 28)" (reader Moose::Meta::TypeCoercion::type_constraint | |
(defined at C:/Perl/site/lib/Moose.pm line 28)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Attribute::applied_traits of attribute traits (defined at C:/Perl/site/lib/Moose/Meta/TypeCoercion.pm line 14) for MD5 digest: Invalid | |
argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Attribute::applied_traits of attribute traits (defined at C:/Perl/site/lib/Moose/Meta/TypeCoercion.pm line 14)" (reader Moose::Me | |
ta::Attribute::applied_traits of attribute traits (defined at C:/Perl/site/lib/Moose/Meta/TypeCoercion.pm line 14)): ignored. | |
Devel::Cover: Can't open predicate Moose::Meta::Attribute::has_applied_traits of attribute traits (defined at C:/Perl/site/lib/Moose/Meta/TypeCoercion.pm line 14) for MD5 digest: I | |
nvalid argument | |
Devel::Cover: Can't find file "predicate Moose::Meta::Attribute::has_applied_traits of attribute traits (defined at C:/Perl/site/lib/Moose/Meta/TypeCoercion.pm line 14)" (predicate | |
Moose::Meta::Attribute::has_applied_traits of attribute traits (defined at C:/Perl/site/lib/Moose/Meta/TypeCoercion.pm line 14)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Attribute::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Attribute::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Attribute::_new (defined at C:/Pe | |
rl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::Class::error_class (defined at C:/Perl/site/lib/Moose.pm line 26) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::Class::error_class (defined at C:/Perl/site/lib/Moose.pm line 26)" (accessor Moose::Meta::Class::error_class (defined at C:/Per | |
l/site/lib/Moose.pm line 26)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Class::roles (defined at C:/Perl/site/lib/Moose.pm line 26) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Class::roles (defined at C:/Perl/site/lib/Moose.pm line 26)" (reader Moose::Meta::Class::roles (defined at C:/Perl/site/lib/Moose | |
.pm line 26)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::Class::immutable_trait (defined at C:/Perl/site/lib/Moose.pm line 26) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::Class::immutable_trait (defined at C:/Perl/site/lib/Moose.pm line 26)" (accessor Moose::Meta::Class::immutable_trait (defined a | |
t C:/Perl/site/lib/Moose.pm line 26)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::Class::constructor_class (defined at C:/Perl/site/lib/Moose.pm line 26) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::Class::constructor_class (defined at C:/Perl/site/lib/Moose.pm line 26)" (accessor Moose::Meta::Class::constructor_class (defin | |
ed at C:/Perl/site/lib/Moose.pm line 26)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::Class::destructor_class (defined at C:/Perl/site/lib/Moose.pm line 26) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::Class::destructor_class (defined at C:/Perl/site/lib/Moose.pm line 26)" (accessor Moose::Meta::Class::destructor_class (defined | |
at C:/Perl/site/lib/Moose.pm line 26)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Class::_get_role_applications of attribute role_applications (defined at C:/Perl/site/lib/Moose.pm line 26) for MD5 digest: Invalid arg | |
ument | |
Devel::Cover: Can't find file "reader Moose::Meta::Class::_get_role_applications of attribute role_applications (defined at C:/Perl/site/lib/Moose.pm line 26)" (reader Moose::Meta: | |
:Class::_get_role_applications of attribute role_applications (defined at C:/Perl/site/lib/Moose.pm line 26)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Class::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Class::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Class::_new (defined at C:/Perl/site/ | |
lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Instance::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Instance::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Instance::_new (defined at C:/Perl | |
/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::TypeCoercion::_compiled_type_coercion of attribute compiled_type_coercion (defined at C:/Perl/site/lib/Moose.pm line 28) for MD5 dige | |
st: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::TypeCoercion::_compiled_type_coercion of attribute compiled_type_coercion (defined at C:/Perl/site/lib/Moose.pm line 28)" (acce | |
ssor Moose::Meta::TypeCoercion::_compiled_type_coercion of attribute compiled_type_coercion (defined at C:/Perl/site/lib/Moose.pm line 28)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::TypeCoercion::type_coercion_map (defined at C:/Perl/site/lib/Moose.pm line 28) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::TypeCoercion::type_coercion_map (defined at C:/Perl/site/lib/Moose.pm line 28)" (reader Moose::Meta::TypeCoercion::type_coercion_ | |
map (defined at C:/Perl/site/lib/Moose.pm line 28)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeCoercion::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeCoercion::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::TypeCoercion::_new (defined at | |
C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::TypeCoercion::Union::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::TypeCoercion::Union::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::TypeCoercion::Union::_n | |
ew (defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Method::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Method::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Method::_new (defined at C:/Perl/sit | |
e/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Method::Constructor::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Method::Constructor::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Method::Constructor::_n | |
ew (defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Method::Destructor::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Method::Destructor::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Method::Destructor::_new | |
(defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Method::Overridden::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Method::Overridden::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Method::Overridden::_new | |
(defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Method::Augmented::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Method::Augmented::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Method::Augmented::_new ( | |
defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::get_roles of attribute roles (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::get_roles of attribute roles (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta::Role::get_roles of attrib | |
ute roles (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::get_required_methods_map of attribute required_methods (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid arg | |
ument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::get_required_methods_map of attribute required_methods (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta: | |
:Role::get_required_methods_map of attribute required_methods (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::required_method_metaclass (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::required_method_metaclass (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta::Role::required_method_metacl | |
ass (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::method_metaclass (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::method_metaclass (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta::Role::method_metaclass (defined at C: | |
/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::get_after_method_modifiers_map of attribute after_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: | |
Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::get_after_method_modifiers_map of attribute after_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader | |
Moose::Meta::Role::get_after_method_modifiers_map of attribute after_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::get_around_method_modifiers_map of attribute around_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 diges | |
t: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::get_around_method_modifiers_map of attribute around_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34)" (reade | |
r Moose::Meta::Role::get_around_method_modifiers_map of attribute around_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::application_to_instance_class (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::application_to_instance_class (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta::Role::application_to_ins | |
tance_class (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::get_override_method_modifiers_map of attribute override_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 d | |
igest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::get_override_method_modifiers_map of attribute override_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34)" (r | |
eader Moose::Meta::Role::get_override_method_modifiers_map of attribute override_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::get_before_method_modifiers_map of attribute before_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 diges | |
t: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::get_before_method_modifiers_map of attribute before_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34)" (reade | |
r Moose::Meta::Role::get_before_method_modifiers_map of attribute before_method_modifiers (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::applied_attribute_metaclass (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::applied_attribute_metaclass (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta::Role::applied_attribute_me | |
taclass (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::application_to_class_class (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::application_to_class_class (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta::Role::application_to_class_ | |
class (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::application_to_role_class (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::application_to_role_class (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta::Role::application_to_role_cl | |
ass (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::get_excluded_roles_map of attribute excluded_roles_map (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid arg | |
ument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::get_excluded_roles_map of attribute excluded_roles_map (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta: | |
:Role::get_excluded_roles_map of attribute excluded_roles_map (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::conflicting_method_metaclass (defined at C:/Perl/site/lib/Moose.pm line 34) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::conflicting_method_metaclass (defined at C:/Perl/site/lib/Moose.pm line 34)" (reader Moose::Meta::Role::conflicting_method_ | |
metaclass (defined at C:/Perl/site/lib/Moose.pm line 34)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::_new (defined at C:/Perl/site/li | |
b/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Attribute::metaclass (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Attribute::metaclass (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)" (reader Moose::Meta::Role::Attribute::metacl | |
ass (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Attribute::original_options (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Attribute::original_options (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)" (reader Moose::Meta::Role::Attribute: | |
:original_options (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Attribute::_original_role (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Attribute::_original_role (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)" (reader Moose::Meta::Role::Attribute::_ | |
original_role (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Attribute::is (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Attribute::is (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)" (reader Moose::Meta::Role::Attribute::is (defined a | |
t C:/Perl/site/lib/Moose/Meta/Role.pm line 19)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Attribute::associated_role (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Attribute::associated_role (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)" (reader Moose::Meta::Role::Attribute:: | |
associated_role (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 19)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Attribute::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Attribute::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Attribute::_new (defi | |
ned at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Method::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Method::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Method::_new (defined at | |
C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Method::Required::name (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 21) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Method::Required::name (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 21)" (reader Moose::Meta::Role::Method::Require | |
d::name (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 21)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Method::Required::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Method::Required::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Method::Requir | |
ed::_new (defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Method::Conflicting::roles (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 22) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Method::Conflicting::roles (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 22)" (reader Moose::Meta::Role::Method::Con | |
flicting::roles (defined at C:/Perl/site/lib/Moose/Meta/Role.pm line 22)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Method::Conflicting::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Method::Conflicting::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Method::Con | |
flicting::_new (defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Composite::_method_map of attribute _methods (defined at C:/Perl/site/lib/Moose.pm line 35) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Composite::_method_map of attribute _methods (defined at C:/Perl/site/lib/Moose.pm line 35)" (reader Moose::Meta::Role::Com | |
posite::_method_map of attribute _methods (defined at C:/Perl/site/lib/Moose.pm line 35)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Composite::application_role_summation_class (defined at C:/Perl/site/lib/Moose.pm line 35) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Composite::application_role_summation_class (defined at C:/Perl/site/lib/Moose.pm line 35)" (reader Moose::Meta::Role::Comp | |
osite::application_role_summation_class (defined at C:/Perl/site/lib/Moose.pm line 35)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Composite::name (defined at C:/Perl/site/lib/Moose.pm line 35) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Composite::name (defined at C:/Perl/site/lib/Moose.pm line 35)" (reader Moose::Meta::Role::Composite::name (defined at C:/P | |
erl/site/lib/Moose.pm line 35)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Composite::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Composite::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Composite::_new (defi | |
ned at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Application::get_method_aliases of attribute method_aliases (defined at C:/Perl/site/lib/Moose.pm line 36) for MD5 digest: Invali | |
d argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Application::get_method_aliases of attribute method_aliases (defined at C:/Perl/site/lib/Moose.pm line 36)" (reader Moose:: | |
Meta::Role::Application::get_method_aliases of attribute method_aliases (defined at C:/Perl/site/lib/Moose.pm line 36)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Application::get_method_exclusions of attribute method_exclusions (defined at C:/Perl/site/lib/Moose.pm line 36) for MD5 digest: | |
Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Application::get_method_exclusions of attribute method_exclusions (defined at C:/Perl/site/lib/Moose.pm line 36)" (reader M | |
oose::Meta::Role::Application::get_method_exclusions of attribute method_exclusions (defined at C:/Perl/site/lib/Moose.pm line 36)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Application::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Application::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Application::_new ( | |
defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Application::RoleSummation::role_params (defined at C:/Perl/site/lib/Moose.pm line 37) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Application::RoleSummation::role_params (defined at C:/Perl/site/lib/Moose.pm line 37)" (reader Moose::Meta::Role::Applicat | |
ion::RoleSummation::role_params (defined at C:/Perl/site/lib/Moose.pm line 37)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Application::RoleSummation::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Application::RoleSummation::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Appl | |
ication::RoleSummation::_new (defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open accessor Moose::Meta::Role::Application::ToClass::class (defined at C:/Perl/site/lib/Moose.pm line 38) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Moose::Meta::Role::Application::ToClass::class (defined at C:/Perl/site/lib/Moose.pm line 38)" (accessor Moose::Meta::Role::Application::ToC | |
lass::class (defined at C:/Perl/site/lib/Moose.pm line 38)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Application::ToClass::role (defined at C:/Perl/site/lib/Moose.pm line 38) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Application::ToClass::role (defined at C:/Perl/site/lib/Moose.pm line 38)" (reader Moose::Meta::Role::Application::ToClass: | |
:role (defined at C:/Perl/site/lib/Moose.pm line 38)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Application::ToClass::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Application::ToClass::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Applicatio | |
n::ToClass::_new (defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Application::ToRole::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Application::ToRole::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Application | |
::ToRole::_new (defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Moose::Meta::Role::Application::ToInstance::rebless_params (defined at C:/Perl/site/lib/Moose.pm line 40) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Moose::Meta::Role::Application::ToInstance::rebless_params (defined at C:/Perl/site/lib/Moose.pm line 40)" (reader Moose::Meta::Role::Applicat | |
ion::ToInstance::rebless_params (defined at C:/Perl/site/lib/Moose.pm line 40)): ignored. | |
Devel::Cover: Can't open constructor Moose::Meta::Role::Application::ToInstance::_new (defined at C:/Perl/site/lib/Moose.pm line 231) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Moose::Meta::Role::Application::ToInstance::_new (defined at C:/Perl/site/lib/Moose.pm line 231)" (constructor Moose::Meta::Role::Applica | |
tion::ToInstance::_new (defined at C:/Perl/site/lib/Moose.pm line 231)): ignored. | |
Devel::Cover: Can't open reader Archive::Peek::filename (defined at C:/Perl/site/lib/Archive/Peek.pm line 8) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "reader Archive::Peek::filename (defined at C:/Perl/site/lib/Archive/Peek.pm line 8)" (reader Archive::Peek::filename (defined at C:/Perl/site/lib/Arc | |
hive/Peek.pm line 8)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::Index::index (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver/Index.pm line 8) for MD5 digest: Invalid argum | |
ent | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::Index::index (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver/Index.pm line 8)" (accessor CPAN::Mini:: | |
Webserver::Index::index (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver/Index.pm line 8)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Distribution::prefix (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 4) for MD5 digest: Invalid argum | |
ent | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Distribution::prefix (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 4)" (accessor Parse::CPAN: | |
:Packages::Distribution::prefix (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 4)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Distribution::dist (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 5) for MD5 digest: Invalid argumen | |
t | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Distribution::dist (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 5)" (accessor Parse::CPAN::P | |
ackages::Distribution::dist (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 5)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Distribution::version (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 6) for MD5 digest: Invalid argu | |
ment | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Distribution::version (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 6)" (accessor Parse::CPAN | |
::Packages::Distribution::version (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 6)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Distribution::maturity (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 7) for MD5 digest: Invalid arg | |
ument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Distribution::maturity (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 7)" (accessor Parse::CPA | |
N::Packages::Distribution::maturity (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 7)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Distribution::filename (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 8) for MD5 digest: Invalid arg | |
ument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Distribution::filename (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 8)" (accessor Parse::CPA | |
N::Packages::Distribution::filename (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 8)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Distribution::cpanid (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 9) for MD5 digest: Invalid argum | |
ent | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Distribution::cpanid (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 9)" (accessor Parse::CPAN: | |
:Packages::Distribution::cpanid (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 9)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Distribution::distvname (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 10) for MD5 digest: Invalid a | |
rgument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Distribution::distvname (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 10)" (accessor Parse::C | |
PAN::Packages::Distribution::distvname (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 10)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Distribution::packages (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 11) for MD5 digest: Invalid ar | |
gument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Distribution::packages (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 11)" (accessor Parse::CP | |
AN::Packages::Distribution::packages (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 11)): ignored. | |
Devel::Cover: Can't open constructor Parse::CPAN::Packages::Distribution::new (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 13) for MD5 digest: Invalid argu | |
ment | |
Devel::Cover: Can't find file "constructor Parse::CPAN::Packages::Distribution::new (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 13)" (constructor Parse::C | |
PAN::Packages::Distribution::new (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 13)): ignored. | |
Devel::Cover: Can't open destructor Parse::CPAN::Packages::Distribution::DESTROY (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 13) for MD5 digest: Invalid a | |
rgument | |
Devel::Cover: Can't find file "destructor Parse::CPAN::Packages::Distribution::DESTROY (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 13)" (destructor Parse: | |
:CPAN::Packages::Distribution::DESTROY (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Distribution.pm line 13)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Package::package (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 4) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Package::package (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 4)" (accessor Parse::CPAN::Packages | |
::Package::package (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 4)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Package::version (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 5) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Package::version (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 5)" (accessor Parse::CPAN::Packages | |
::Package::version (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 5)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Package::prefix (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 6) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Package::prefix (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 6)" (accessor Parse::CPAN::Packages: | |
:Package::prefix (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 6)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::Package::distribution (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 7) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::Package::distribution (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 7)" (accessor Parse::CPAN::Pac | |
kages::Package::distribution (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 7)): ignored. | |
Devel::Cover: Can't open constructor Parse::CPAN::Packages::Package::new (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 10) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Parse::CPAN::Packages::Package::new (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 10)" (constructor Parse::CPAN::Packa | |
ges::Package::new (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 10)): ignored. | |
Devel::Cover: Can't open destructor Parse::CPAN::Packages::Package::DESTROY (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 10) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "destructor Parse::CPAN::Packages::Package::DESTROY (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 10)" (destructor Parse::CPAN::Pac | |
kages::Package::DESTROY (defined at C:/Perl/site/lib/Parse/CPAN/Packages/Package.pm line 10)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::filename (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 10) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::filename (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 10)" (accessor Parse::CPAN::Packages::filename (def | |
ined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 10)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::details (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 11) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::details (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 11)" (accessor Parse::CPAN::Packages::details (defin | |
ed at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 11)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::data (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 12) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::data (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 12)" (accessor Parse::CPAN::Packages::data (defined at | |
C:/Perl/site/lib/Parse/CPAN/Packages.pm line 12)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::dists (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 13) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::dists (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 13)" (accessor Parse::CPAN::Packages::dists (defined a | |
t C:/Perl/site/lib/Parse/CPAN/Packages.pm line 13)): ignored. | |
Devel::Cover: Can't open accessor Parse::CPAN::Packages::latestdists (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 14) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor Parse::CPAN::Packages::latestdists (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 14)" (accessor Parse::CPAN::Packages::latestdist | |
s (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 14)): ignored. | |
Devel::Cover: Can't open constructor Parse::CPAN::Packages::new (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 16) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "constructor Parse::CPAN::Packages::new (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 16)" (constructor Parse::CPAN::Packages::new (defined | |
at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 16)): ignored. | |
Devel::Cover: Can't open destructor Parse::CPAN::Packages::DESTROY (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 16) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "destructor Parse::CPAN::Packages::DESTROY (defined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 16)" (destructor Parse::CPAN::Packages::DESTROY (d | |
efined at C:/Perl/site/lib/Parse/CPAN/Packages.pm line 16)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::hostname (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 36) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::hostname (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 36)" (accessor CPAN::Mini::Webserver | |
::hostname (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 36)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::cgi (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 37) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::cgi (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 37)" (accessor CPAN::Mini::Webserver::cgi | |
(defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 37)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::directory (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 38) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::directory (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 38)" (accessor CPAN::Mini::Webserve | |
r::directory (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 38)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::scratch (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 39) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::scratch (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 39)" (accessor CPAN::Mini::Webserver: | |
:scratch (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 39)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::author_type (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 40) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::author_type (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 40)" (accessor CPAN::Mini::Webser | |
ver::author_type (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 40)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::parse_cpan_authors (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 41) for MD5 digest: Invalid argu | |
ment | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::parse_cpan_authors (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 41)" (accessor CPAN::Mini: | |
:Webserver::parse_cpan_authors (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 41)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::parse_cpan_packages (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 42) for MD5 digest: Invalid arg | |
ument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::parse_cpan_packages (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 42)" (accessor CPAN::Mini | |
::Webserver::parse_cpan_packages (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 42)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::pauseid (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 43) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::pauseid (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 43)" (accessor CPAN::Mini::Webserver: | |
:pauseid (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 43)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::distvname (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 44) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::distvname (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 44)" (accessor CPAN::Mini::Webserve | |
r::distvname (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 44)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::filename (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 45) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::filename (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 45)" (accessor CPAN::Mini::Webserver | |
::filename (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 45)): ignored. | |
Devel::Cover: Can't open accessor CPAN::Mini::Webserver::index (defined at D:/cpan-mini-webserver/blib/lib/CPAN/Mini/Webserver.pm line 46) for MD5 digest: Invalid argument | |
Devel::Cover: Can't find file "accessor CPAN::Mini::Webserver::index (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 46)" (accessor CPAN::Mini::Webserver::i | |
ndex (defined at D:\cpan-mini-webserver\blib\lib/CPAN/Mini/Webserver.pm line 46)): ignored. | |
Devel::Cover 0.79: Collecting coverage data for branch, condition, pod, statement, subroutine and time. | |
Selecting packages matching: | |
Ignoring packages matching: | |
/Devel/Cover[./] | |
^t/ | |
\.t$ | |
^test\.pl$ | |
Ignoring packages in: | |
. | |
C:/DOKUME~1/ADMINI~1/LOKALE~1/Temp/CPAN-Reporter-lib-oUTX | |
C:/Perl/lib | |
C:/Perl/site/lib | |
1..51 | |
ok 1 - html page from '/' | |
ok 2 | |
ok 3 | |
ok 4 - html page from '/search/' | |
ok 5 | |
ok 6 - html page from '/search/' | |
ok 7 | |
ok 8 | |
ok 9 | |
ok 10 - html page from '~andk/' | |
ok 11 | |
ok 12 | |
ok 13 | |
ok 14 - html page from '~andk/CPAN-Test-Dummy-Perl5-Make-1.05/' | |
ok 15 | |
ok 16 | |
ok 17 | |
ok 18 - html page from '~andk/CPAN-Test-Dummy-Perl5-Make-1.05/CPAN-Test-Dummy-Perl5-Make-1.05/Changes' | |
ok 19 | |
ok 20 | |
ok 21 - html page from '~andk/CPAN-Test-Dummy-Perl5-Make-1.05/CPAN-Test-Dummy-Perl5-Make-1.05/lib/Bundle/CpanTestDummies.pm' | |
ok 22 | |
ok 23 | |
ok 24 | |
ok 25 - html page from '/raw/~andk/CPAN-Test-Dummy-Perl5-Make-1.05/CPAN-Test-Dummy-Perl5-Make-1.05/lib/Bundle/CpanTestDummies.pm' | |
ok 26 | |
ok 27 | |
ok 28 - redirect from '/package/andk/CPAN-Test-Dummy-Perl5-Make-1.05/Bundle::CpanTestDummies/' | |
ok 29 - css from '/static/css/screen.css' | |
ok 30 - css from '/static/css/print.css' | |
ok 31 - css from '/static/css/ie.css' | |
ok 32 - png from '/static/images/logo.png' | |
ok 33 - png from '/static/images/favicon.png' | |
ok 34 - png from 'favicon.ico' | |
ok 35 - opensearch from '/static/xml/opensearch.xml' | |
ok 36 - error 404 for '/this/doesnt/exist' | |
ok 37 - download for '/download/~ANDK/CPAN-Test-Dummy-Perl5-Make-1.05/CPAN-Test-Dummy-Perl5-Make-1.05/README' | |
ok 38 | |
ok 39 - redirect from '/download/~ANDK/CPAN-Test-Dummy-Perl5-Make-1.05' | |
ok 40 - download for '/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-1.05.tar.gz' | |
ok 41 - download for '/modules/02packages.details.txt.gz' | |
ok 42 | |
ok 43 - download for '/authors/01mailrc.txt.gz' | |
ok 44 | |
ok 45 - download for '/authors/id/A/AN/ANDK/CHECKSUMS' | |
ok 46 | |
ok 47 - error 404 for '/authors/id/A/AN/ANDK/CHECKSUMZ' | |
ok 48 - download for '/download/~MELEZHIK/AMZ_TEST-0.0.2/AMZ_TEST-v0.0.3/lib/AMZ/Test.pm' | |
ok 49 - utf8 text in file downloads survives undamaged | |
ok 50 - error 500 for '/download/~MELEZHIK/AMZ_TEST-v0.0.3/AMZ_TEST-v0.0.3/lib/AMZ/Test.pm' | |
ok 51 | |
Devel::Cover: Writing coverage database to D:/cpan-mini-webserver/cover_db/runs/1313434817.7940.32438 | |
---------------------------- ------ ------ ------ ------ ------ ------ ------ | |
File stmt bran cond sub pod time total | |
---------------------------- ------ ------ ------ ------ ------ ------ ------ | |
...ib/CPAN/Mini/Webserver.pm 89.9 59.8 48.3 91.5 7.4 96.6 78.9 | |
...N/Mini/Webserver/Index.pm 74.1 62.5 n/a 88.9 0.0 0.6 71.6 | |
...ni/Webserver/Templates.pm 50.0 0.0 n/a 66.7 0.0 1.7 45.7 | |
...ebserver/Templates/CSS.pm 100.0 n/a n/a 100.0 n/a 0.6 100.0 | |
...erver/Templates/Images.pm 100.0 n/a n/a 100.0 n/a 0.6 100.0 | |
Total 86.1 58.1 48.3 90.4 6.3 100.0 77.5 | |
---------------------------- ------ ------ ------ ------ ------ ------ ------ | |
D:\cpan-mini-webserver> |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment