<!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 1.26
Devel::Cover is copyright 2001-2012, Paul Johnson (paul@pjcj.net)
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
http://www.pjcj.net
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<meta http-equiv="Content-Language" content="en-us"></meta>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<link rel="stylesheet" type="text/css" href="cover.css"></link>
<title>File Coverage: lib/Yukki/Web/Response.pm</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/Yukki/Web/Response.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c2">93.2%</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 Yukki::Web::Response;</td></tr>
<tr><td class="h">2</td><td colspan="7"></td></tr><tr><td class="h">3</td><td><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L3">3</a></div></td><td></td><td><div>21</div><div>6</div></td><td class="s">use v5.24;</td></tr>
<tr><td class="h">4</td><td><div class="c3">3</div><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L4">3</a></div></td><td></td><td><div>23</div><div>4</div><div>14</div></td><td class="s">use utf8;</td></tr>
<tr><td class="h">5</td><td><div class="c3">3</div><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L5">3</a></div></td><td></td><td><div>37</div><div>3</div><div>12</div></td><td class="s">use Moo;</td></tr>
<tr><td class="h">6</td><td colspan="7"></td></tr><tr><td class="h">7</td><td><div class="c3">3</div><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L7">3</a></div></td><td></td><td><div>626</div><div>4</div><div>15</div></td><td class="s">use Type::Utils;</td></tr>
<tr><td class="h">8</td><td><div class="c3">3</div><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L8">3</a></div></td><td></td><td><div>2895</div><div>5</div><div>11</div></td><td class="s">use Types::Standard qw( Str );</td></tr>
<tr><td class="h">9</td><td><div class="c3">3</div><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L9">3</a></div></td><td></td><td><div>1295</div><div>5</div><div>12</div></td><td class="s">use Yukki::Types qw( BreadcrumbLinks NavigationMenuMap );</td></tr>
<tr><td class="h">10</td><td colspan="7"></td></tr><tr><td class="h">11</td><td><div class="c3">3</div><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L11">3</a></div></td><td></td><td><div>1715</div><div>3961</div><div>44</div></td><td class="s">use Plack::Response;</td></tr>
<tr><td class="h">12</td><td colspan="7"></td></tr><tr><td class="h">13</td><td><div class="c3">3</div><div class="c3">3</div><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L13">3</a></div></td><td></td><td><div>11</div><div>3</div><div>13</div></td><td class="s">use namespace::clean;</td></tr>
<tr><td class="h">14</td><td colspan="7"></td></tr><tr><td class="h">15</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># ABSTRACT: the response to the client</td></tr>
<tr><td class="h">16</td><td colspan="7"></td></tr><tr><td class="h">17 - 32</td><td colspan="6"></td><td class="s"><pre>=head1 DESCRIPTION
An abstraction around the HTTP response that is astonishingly similar to L<Plack::Response>. Call C<finalize> to get the final PSGI response.
=head1 ATTRIBUTES
=head2 response
This is the internal L<Plack::Response> object. Do not use.
Use the delegated methods instead:
status headers body header content_type content_length content_encoding
redirect location cookies finalize
=cut</pre></td></tr>
<tr><td class="h">33</td><td colspan="7"></td></tr><tr><td class="h">34</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">has response => (</td></tr>
<tr><td class="h">35</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> is => 'ro',</td></tr>
<tr><td class="h">36</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> isa => class_type('Plack::Response'),</td></tr>
<tr><td class="h">37</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> required => 1,</td></tr>
<tr><td class="h">38</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> lazy => 1,</td></tr>
<tr><td class="h">39</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> builder => '_build_response',</td></tr>
<tr><td class="h">40</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> handles => [ qw(</td></tr>
<tr><td class="h">41</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> status headers body header content_type content_length content_encoding</td></tr>
<tr><td class="h">42</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> redirect location cookies finalize</td></tr>
<tr><td class="h">43</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> ) ],</td></tr>
<tr><td class="h">44</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">);</td></tr>
<tr><td class="h">45</td><td colspan="7"></td></tr><tr><td class="h">46</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _build_response {</td></tr>
<tr><td class="h">47</td><td><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L47">3</a></div></td><td></td><td><div>551</div></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">48</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>29</div></td><td class="s"> return Plack::Response->new(200, [ 'Content-type' => 'text/html; charset=utf-8' ]);</td></tr>
<tr><td class="h">49</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">50</td><td colspan="7"></td></tr><tr><td class="h">51 - 55</td><td colspan="6"></td><td class="s"><pre>=head2 page_title
This is the title to give the page in the HTML.
=cut</pre></td></tr>
<tr><td class="h">56</td><td colspan="7"></td></tr><tr><td class="h">57</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">has page_title => (</td></tr>
<tr><td class="h">58</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> is => 'rw',</td></tr>
<tr><td class="h">59</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> isa => Str,</td></tr>
<tr><td class="h">60</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> predicate => 'has_page_title',</td></tr>
<tr><td class="h">61</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">);</td></tr>
<tr><td class="h">62</td><td colspan="7"></td></tr><tr><td class="h">63 - 75</td><td colspan="6"></td><td class="s"><pre>=head2 navigation
This is the navigation menu to place in the page. This is an array of hashes. Each entry should look like:
{
label => 'Label',
href => '/link/to/somewhere',
sort => 50,
}
A sorted list of items is retrieved using L</navigation_menu>. New items can be added with the L</add_navigation_item> and L</add_navigation_items> methods.
=cut</pre></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">has navigation => (</td></tr>
<tr><td class="h">78</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> is => 'rw',</td></tr>
<tr><td class="h">79</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> isa => NavigationMenuMap,</td></tr>
<tr><td class="h">80</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> required => 1,</td></tr>
<tr><td class="h">81</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> default => sub { +{} },</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 colspan="7"></td></tr><tr><td class="h">84</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub navigation_menu_names {</td></tr>
<tr><td class="h">85</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L85">0</a></div></td><td><div class="c3">1</div></td><td><div>0</div></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">86</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> keys $self->navigation->%*;</td></tr>
<tr><td class="h">87</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">88</td><td colspan="7"></td></tr><tr><td class="h">89 - 93</td><td colspan="6"></td><td class="s"><pre>=head2 breadcrumb
This is the breadcrumb to display. It is an empty array by default (meaning no breadcrumb). Each element of the breadcrumb is formatted like navigation, except that C<sort> is not used here.
=cut</pre></td></tr>
<tr><td class="h">94</td><td colspan="7"></td></tr><tr><td class="h">95</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">has breadcrumb => (</td></tr>
<tr><td class="h">96</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> is => 'rw',</td></tr>
<tr><td class="h">97</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> isa => BreadcrumbLinks,</td></tr>
<tr><td class="h">98</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> required => 1,</td></tr>
<tr><td class="h">99</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> default => sub { [] },</td></tr>
<tr><td class="h">100</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">);</td></tr>
<tr><td class="h">101</td><td colspan="7"></td></tr><tr><td class="h">102</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub breadcrumb_links {</td></tr>
<tr><td class="h">103</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L103">1</a></div></td><td><div class="c3">1</div></td><td><div>23</div></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">104</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>11</div></td><td class="s"> $self->breadcrumb->@*;</td></tr>
<tr><td class="h">105</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">106</td><td colspan="7"></td></tr><tr><td class="h">107</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub has_breadcrumb {</td></tr>
<tr><td class="h">108</td><td><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L108">2</a></div></td><td><div class="c3">1</div></td><td><div>386</div></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">109</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td></td><td><div>29</div></td><td class="s"> scalar $self->breadcrumb->@*;</td></tr>
<tr><td class="h">110</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">111</td><td colspan="7"></td></tr><tr><td class="h">112 - 120</td><td colspan="6"></td><td class="s"><pre>=head1 METHODS
=head2 navigation_menu
my @items = $response->navigation_menu('repository');
Returns a sorted list of navigation items for the named menu.
=cut</pre></td></tr>
<tr><td class="h">121</td><td colspan="7"></td></tr><tr><td class="h">122</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub navigation_menu {</td></tr>
<tr><td class="h">123</td><td><div class="c3">8</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L123">8</a></div></td><td><div class="c3">1</div></td><td><div>65</div></td><td class="s"> my ($self, $name) = @_;</td></tr>
<tr><td class="h">124</td><td><div class="c3">15</div></td><td></td><td><div class="c0"><a href="lib-Yukki-Web-Response-pm--condition.html#L124">50</a></div><div class="c0"><a href="lib-Yukki-Web-Response-pm--condition.html#L124">50</a></div></td><td></td><td></td><td><div>69</div></td><td class="s"> return sort { ($a->{sort}//50) <=> ($b->{sort}//50) }</td></tr>
<tr><td class="h">125</td><td><div class="c3">8</div><div class="c3">8</div></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--condition.html#L125">100</a></div></td><td></td><td></td><td><div>14</div><div>135</div></td><td class="s"> @{ $self->navigation->{$name} // [] };</td></tr>
<tr><td class="h">126</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">127</td><td colspan="7"></td></tr><tr><td class="h">128 - 142</td><td colspan="6"></td><td class="s"><pre>=head2 add_navigation_item
=head2 add_navigation_items
$response->add_navigation_item(menu_name => {
label => 'Link Title',
url => '/path/to/some/place',
sort => 50,
});
Add one or more items to the named menu. The first argument is always the name or names of the menu. Mutliple names may be given in an array reference. If multiple names are given, the menu items given will be added to each menu named. The remaining arguments are hash references that must have a C<label> and a C<url>. The C<sort> is optional.
L</add_navigation_item> is a synonym for L</add_navigation_items>.
=cut</pre></td></tr>
<tr><td class="h">143</td><td colspan="7"></td></tr><tr><td class="h">144</td><td><div class="c3">15</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L144">15</a></div></td><td><div class="c3">1</div></td><td><div>266</div></td><td class="s">sub add_navigation_item { shift->add_navigation_items(@_) }</td></tr>
<tr><td class="h">145</td><td colspan="7"></td></tr><tr><td class="h">146</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub add_navigation_items {</td></tr>
<tr><td class="h">147</td><td><div class="c3">15</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--subroutine.html#L147">15</a></div></td><td><div class="c3">1</div></td><td><div>19</div></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">148</td><td><div class="c3">15</div></td><td></td><td></td><td></td><td></td><td><div>18</div></td><td class="s"> my $name_or_names = shift;</td></tr>
<tr><td class="h">149</td><td colspan="7"></td></tr><tr><td class="h">150</td><td><div class="c3">15</div></td><td><div class="c3" title="T/F"><a href="lib-Yukki-Web-Response-pm--branch.html#L150">100</a></div></td><td></td><td></td><td></td><td><div>29</div></td><td class="s"> my @names = ref $name_or_names ? @$name_or_names : ($name_or_names);</td></tr>
<tr><td class="h">151</td><td colspan="7"></td></tr><tr><td class="h">152</td><td><div class="c3">15</div></td><td></td><td></td><td></td><td></td><td><div>21</div></td><td class="s"> for my $name (@names) {</td></tr>
<tr><td class="h">153</td><td><div class="c3">21</div></td><td></td><td><div class="c3"><a href="lib-Yukki-Web-Response-pm--condition.html#L153">100</a></div></td><td></td><td></td><td><div>252</div></td><td class="s"> $self->navigation->{$name} //= [];</td></tr>
<tr><td class="h">154</td><td><div class="c3">21</div><div class="c3">21</div></td><td></td><td></td><td></td><td></td><td><div>104</div><div>230</div></td><td class="s"> push @{ $self->navigation->{$name} }, @_;</td></tr>
<tr><td class="h">155</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">156</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">157</td><td colspan="7"></td></tr><tr><td class="h">158 - 174</td><td colspan="6"></td><td class="s"><pre>=head2 breadcrumb_links
Convenience accessor that returns C<breadcrumbs> as a list.
=head2 has_breadcrumb
Returns a true value if C<breadcrumbs> has any items in it.
=head2 has_page_title
Returns a true value if C<page_title> is set.
=head2 navigation_menu_names
Convenience accessor that returns C<navigation> as a list.
=cut</pre></td></tr>
<tr><td class="h">175</td><td colspan="7"></td></tr><tr><td class="h">176</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">1;</td></tr>
</table>
</body>
</html>