<!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/Model/Repository.pm</title>
</head>
<body>
<h1>File Coverage</h1>
<table>
<tr><td class="h" align="right">File:</td><td align="left">lib/Yukki/Model/Repository.pm</td></tr>
<tr><td class="h" align="right">Coverage:</td><td align="left" class="c0">29.6%</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::Model::Repository;</td></tr>
<tr><td class="h">2</td><td colspan="7"></td></tr><tr><td class="h">3</td><td><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L3">2</a></div></td><td></td><td><div>937</div><div>7</div></td><td class="s">use v5.24;</td></tr>
<tr><td class="h">4</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L4">2</a></div></td><td></td><td><div>7</div><div>4</div><div>13</div></td><td class="s">use utf8;</td></tr>
<tr><td class="h">5</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L5">2</a></div></td><td></td><td><div>23</div><div>2</div><div>15</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></td><td></td><td></td><td></td><td></td><td></td><td class="s">extends 'Yukki::Model';</td></tr>
<tr><td class="h">8</td><td colspan="7"></td></tr><tr><td class="h">9</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L9">2</a></div></td><td></td><td><div>467</div><div>4</div><div>18</div></td><td class="s">use Yukki::Error qw( http_throw );</td></tr>
<tr><td class="h">10</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L10">2</a></div></td><td></td><td><div>874</div><div>3</div><div>34</div></td><td class="s">use Yukki::Model::File;</td></tr>
<tr><td class="h">11</td><td colspan="7"></td></tr><tr><td class="h">12</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L12">2</a></div></td><td></td><td><div>688</div><div>612031</div><div>45</div></td><td class="s">use DateTime::Format::Mail;</td></tr>
<tr><td class="h">13</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L13">2</a></div></td><td></td><td><div>510</div><div>14526</div><div>8</div></td><td class="s">use Git::Repository v1.18;</td></tr>
<tr><td class="h">14</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L14">2</a></div></td><td></td><td><div>40</div><div>4</div><div>13</div></td><td class="s">use Type::Utils;</td></tr>
<tr><td class="h">15</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L15">2</a></div></td><td></td><td><div>1942</div><div>3</div><div>22</div></td><td class="s">use Types::Path::Tiny qw( Path );</td></tr>
<tr><td class="h">16</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L16">2</a></div></td><td></td><td><div>497</div><div>4</div><div>7</div></td><td class="s">use Types::Standard qw( Str );</td></tr>
<tr><td class="h">17</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L17">2</a></div></td><td></td><td><div>846</div><div>2</div><div>55</div></td><td class="s">use Try::Tiny;</td></tr>
<tr><td class="h">18</td><td colspan="7"></td></tr><tr><td class="h">19</td><td><div class="c3">2</div><div class="c3">2</div><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L19">2</a></div></td><td></td><td><div>6</div><div>2</div><div>6</div></td><td class="s">use namespace::clean;</td></tr>
<tr><td class="h">20</td><td colspan="7"></td></tr><tr><td class="h">21</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># ABSTRACT: model for accessing objects in a git repository</td></tr>
<tr><td class="h">22</td><td colspan="7"></td></tr><tr><td class="h">23 - 46</td><td colspan="6"></td><td class="s"><pre>=head1 SYNOPSIS
my $repository = $app->model('Repository', { name => 'main' });
my $file = $repository->file({ path => 'foo.yukki' });
=head1 DESCRIPTION
This model contains methods for performing all the individual operations
required to store files into and fetch files from the git repository. It
includes tools for building trees, commiting, creating blobs, fetching file
lists, etc.
=head1 EXTENDS
L<Yukki::Model>
=head1 ATTRIBUTES
=head2 name
This is the name of the repository. This is used to lookup the configuration for
the repository from the F<yukki.conf>.
=cut</pre></td></tr>
<tr><td class="h">47</td><td colspan="7"></td></tr><tr><td class="h">48</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">has name => (</td></tr>
<tr><td class="h">49</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> is => 'ro',</td></tr>
<tr><td class="h">50</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> isa => Str,</td></tr>
<tr><td class="h">51</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> required => 1,</td></tr>
<tr><td class="h">52</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">);</td></tr>
<tr><td class="h">53</td><td colspan="7"></td></tr><tr><td class="h">54 - 60</td><td colspan="6"></td><td class="s"><pre>=head2 repository_settings
These are the settings telling this model where to find the git repository and
how to access it. It is loaded automatically using the L</name> to look up
information in the F<yukki.conf>.
=cut</pre></td></tr>
<tr><td class="h">61</td><td colspan="7"></td></tr><tr><td class="h">62</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">has repository_settings => (</td></tr>
<tr><td class="h">63</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> is => 'ro',</td></tr>
<tr><td class="h">64</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> isa => class_type('Yukki::Settings::Repository'),</td></tr>
<tr><td class="h">65</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> required => 1,</td></tr>
<tr><td class="h">66</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> lazy => 1,</td></tr>
<tr><td class="h">67</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> default => sub {</td></tr>
<tr><td class="h">68</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">69</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $repo_config = $self->app->settings->repositories->{$self->name};</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"> if (!$repo_config) {</td></tr>
<tr><td class="h">72</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $file = $self->app->locate('repo_path', $self->name);</td></tr>
<tr><td class="h">73</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $repo_config = Yukki::Settings::Repository->load_yaml(</td></tr>
<tr><td class="h">74</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $file->slurp_utf8</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></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">77</td><td colspan="7"></td></tr><tr><td class="h">78</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> return $repo_config;</td></tr>
<tr><td class="h">79</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> },</td></tr>
<tr><td class="h">80</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> handles => {</td></tr>
<tr><td class="h">81</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> 'title' => 'name',</td></tr>
<tr><td class="h">82</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> 'branch' => 'site_branch',</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></td><td></td><td></td><td></td><td></td><td></td><td class="s">);</td></tr>
<tr><td class="h">85</td><td colspan="7"></td></tr><tr><td class="h">86 - 91</td><td colspan="6"></td><td class="s"><pre>=head2 repository_path
This is the path to the repository. It is located using the C<repository_path>
and C<repository> keys in the configuration.
=cut</pre></td></tr>
<tr><td class="h">92</td><td colspan="7"></td></tr><tr><td class="h">93</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">has repository_path => (</td></tr>
<tr><td class="h">94</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> is => 'ro',</td></tr>
<tr><td class="h">95</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> isa => Path,</td></tr>
<tr><td class="h">96</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> coerce => 1,</td></tr>
<tr><td class="h">97</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> required => 1,</td></tr>
<tr><td class="h">98</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> lazy => 1,</td></tr>
<tr><td class="h">99</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> builder => '_build_repository_path',</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 _build_repository_path {</td></tr>
<tr><td class="h">103</td><td><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L103">2</a></div></td><td></td><td><div>29</div></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">104</td><td colspan="7"></td></tr><tr><td class="h">105</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td></td><td><div>26</div></td><td class="s"> my $repo_settings = $self->repository_settings;</td></tr>
<tr><td class="h">106</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td></td><td><div>44</div></td><td class="s"> return $self->locate_dir('repository_path', $repo_settings->repository);</td></tr>
<tr><td class="h">107</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">108</td><td colspan="7"></td></tr><tr><td class="h">109 - 113</td><td colspan="6"></td><td class="s"><pre>=head2 git
This is a L<Git::Repository> object which helps us do the real work.
=cut</pre></td></tr>
<tr><td class="h">114</td><td colspan="7"></td></tr><tr><td class="h">115</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">has git => (</td></tr>
<tr><td class="h">116</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> is => 'ro',</td></tr>
<tr><td class="h">117</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> isa => class_type('Git::Repository'),</td></tr>
<tr><td class="h">118</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> required => 1,</td></tr>
<tr><td class="h">119</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> lazy => 1,</td></tr>
<tr><td class="h">120</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> builder => '_build_git',</td></tr>
<tr><td class="h">121</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">);</td></tr>
<tr><td class="h">122</td><td colspan="7"></td></tr><tr><td class="h">123</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub _build_git {</td></tr>
<tr><td class="h">124</td><td><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L124">2</a></div></td><td></td><td><div>15</div></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">125</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td></td><td><div>25</div></td><td class="s"> return Git::Repository->new( git_dir => $self->repository_path );</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 - 137</td><td colspan="6"></td><td class="s"><pre>=head1 METHODS
=head2 author_name
This is the author name to use when making changes to the repository.
This is taken from the C<author_name> of the C<anonymous> key in the
configuration or defaults to "Anonymous".
=cut</pre></td></tr>
<tr><td class="h">138</td><td colspan="7"></td></tr><tr><td class="h">139</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L139">1</a></div></td><td><div class="c3">1</div></td><td><div>54</div></td><td class="s">sub author_name { shift->app->settings->anonymous->author_name }</td></tr>
<tr><td class="h">140</td><td colspan="7"></td></tr><tr><td class="h">141 - 148</td><td colspan="6"></td><td class="s"><pre>=head2 author_email
This is the author email to use when making changes to the repository.
This is taken from teh C<author_email> of the C<anonymous> key in the
configuration or defaults to "anonymous@localhost".
=cut</pre></td></tr>
<tr><td class="h">149</td><td colspan="7"></td></tr><tr><td class="h">150</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L150">1</a></div></td><td><div class="c3">1</div></td><td><div>49</div></td><td class="s">sub author_email { shift->app->settings->anonymous->author_email }</td></tr>
<tr><td class="h">151</td><td colspan="7"></td></tr><tr><td class="h">152 - 189</td><td colspan="6"></td><td class="s"><pre>=head2 make_tree
my $tree_id = $repository->make_tree($old_tree_id, \@parts, $object_id);
my $tree_id = $repository->make_tree($old_tree_id, \@parts);
my $tree_id = $repository->make_tree(
$old_tree_id, \@old_parts, \@new_parts, $object_id);
In any case described here, the method returns the object ID of the top level
tree created.
=head3 Insert/Update
When C<$object_id> is given, this will construct one or more trees in the git
repository to place the C<$object_id> into the deepest tree. This starts by
reading the tree found using the object ID in C<$old_tree_id>. The first path
part in C<@parts> is shifted off. If an existing path is found there, that
path will be replaced. If not, a new path will be added. A tree object will be
constructed for all byt he final path part in C<@parts>.
When the final part is reached, that path will be placed into the final tree
as a blob using the given C<$object_id>.
This method will fail if it runs into a situation where a blob would be
replaced by a tree or a tree would be replaced by a blob.
=head3 Remove
When C<$object_id> is not passed or C<undef>, this will cause the final tree or blob found to be removed. This works essentially the same as the case for storing a blob, but when it gets to the last tree or blob found, it will elide that name from the final tree constructed.
This method will fail if you attempt to remove something that does not exist.
=head3 Rename
When a second array reference is passed with the C<$object_id>, this method will perform a rename. In this case, the method will remove the path named in the L<@old_parts> and add the path named in <@new_parts> using the given C<$object_id> at that new location.
This method will fail if a failure condition that would occur during either the insert/update or remove operation that is being performed simultaneously.
=cut</pre></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">sub make_tree {</td></tr>
<tr><td class="h">192</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L192">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">193</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $base = shift;</td></tr>
<tr><td class="h">194</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $path = shift;</td></tr>
<tr><td class="h">195</td><td colspan="7"></td></tr><tr><td class="h">196</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my (@new_path, @old_path, $blob);</td></tr>
<tr><td class="h">197</td><td colspan="7"></td></tr><tr><td class="h">198</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # This is a rename</td></tr>
<tr><td class="h">199</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L199">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if (ref $_[0]) {</td></tr>
<tr><td class="h">200</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $new_path = shift;</td></tr>
<tr><td class="h">201</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $blob = shift;</td></tr>
<tr><td class="h">202</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> @new_path = @$new_path;</td></tr>
<tr><td class="h">203</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> @old_path = @$path;</td></tr>
<tr><td class="h">204</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">205</td><td colspan="7"></td></tr><tr><td class="h">206</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Otherwise it's a store or delete</td></tr>
<tr><td class="h">207</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">208</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $blob = shift;</td></tr>
<tr><td class="h">209</td><td colspan="7"></td></tr><tr><td class="h">210</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Defined $blob -> Store</td></tr>
<tr><td class="h">211</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L211">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if (defined $blob) {</td></tr>
<tr><td class="h">212</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> @new_path = @$path;</td></tr>
<tr><td class="h">213</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">214</td><td colspan="7"></td></tr><tr><td class="h">215</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Undefined $blob -> delete</td></tr>
<tr><td class="h">216</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">217</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> @old_path = @$path;</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"> }</td></tr>
<tr><td class="h">220</td><td colspan="7"></td></tr><tr><td class="h">221</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my ($new_mode, $new_type, $new_name, $old_name, $remove_here);</td></tr>
<tr><td class="h">222</td><td colspan="7"></td></tr><tr><td class="h">223</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Parts to add or update</td></tr>
<tr><td class="h">224</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L224">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if (@new_path) {</td></tr>
<tr><td class="h">225</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $new_name = shift @new_path;</td></tr>
<tr><td class="h">226</td><td colspan="7"></td></tr><tr><td class="h">227</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Create the file here?</td></tr>
<tr><td class="h">228</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L228">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if (@new_path == 0) {</td></tr>
<tr><td class="h">229</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $new_mode = '100644';</td></tr>
<tr><td class="h">230</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $new_type = 'blob';</td></tr>
<tr><td class="h">231</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">232</td><td colspan="7"></td></tr><tr><td class="h">233</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Or we're still hunting down the tree</td></tr>
<tr><td class="h">234</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">235</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $new_mode = '040000';</td></tr>
<tr><td class="h">236</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $new_type = 'tree';</td></tr>
<tr><td class="h">237</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">238</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">239</td><td colspan="7"></td></tr><tr><td class="h">240</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Parts to remove</td></tr>
<tr><td class="h">241</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L241">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if (@old_path) {</td></tr>
<tr><td class="h">242</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $old_name = shift @old_path;</td></tr>
<tr><td class="h">243</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $remove_here = (@old_path == 0);</td></tr>
<tr><td class="h">244</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">245</td><td colspan="7"></td></tr><tr><td class="h">246</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $git = $self->git;</td></tr>
<tr><td class="h">247</td><td colspan="7"></td></tr><tr><td class="h">248</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $overwrite;</td></tr>
<tr><td class="h">249</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @new_tree;</td></tr>
<tr><td class="h">250</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L250">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if (defined $base) {</td></tr>
<tr><td class="h">251</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my @old_tree = $git->run('ls-tree', $base);</td></tr>
<tr><td class="h">252</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> for my $line (@old_tree) {</td></tr>
<tr><td class="h">253</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my ($old_mode, $old_type, $old_object_id, $old_file) = split /\s+/, $line, 4;</td></tr>
<tr><td class="h">254</td><td colspan="7"></td></tr><tr><td class="h">255</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L255">0</a></div><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L255">0</a></div></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--condition.html#L255">0</a></div><div class="c0"><a href="lib-Yukki-Model-Repository-pm--condition.html#L255">0</a></div></td><td></td><td></td><td><div>0</div></td><td class="s"> if (defined $new_name and $old_file eq $new_name) {</td></tr>
<tr><td class="h">256</td><td colspan="7"></td></tr><tr><td class="h">257</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # The file already exists, we are doing an update</td></tr>
<tr><td class="h">258</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $overwrite++;</td></tr>
<tr><td class="h">259</td><td colspan="7"></td></tr><tr><td class="h">260</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Cannot overwrite a file with a dir or a dir with a file</td></tr>
<tr><td class="h">261</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L261">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> http_throw("cannot replace $old_type $new_name with $new_type")</td></tr>
<tr><td class="h">262</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> if $old_type ne $new_type;</td></tr>
<tr><td class="h">263</td><td colspan="7"></td></tr><tr><td class="h">264</td><td colspan="7"></td></tr><tr><td class="h">265</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Add the updated file to the tree</td></tr>
<tr><td class="h">266</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L266">0</a></div><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L266">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if ($new_type eq 'blob') {</td></tr>
<tr><td class="h">267</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> push @new_tree, "$new_mode $new_type $blob\t$new_name";</td></tr>
<tr><td class="h">268</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">269</td><td colspan="7"></td></tr><tr><td class="h">270</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # The child tree contains both sides of the rename</td></tr>
<tr><td class="h">271</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif ($old_name eq $new_name) {</td></tr>
<tr><td class="h">272</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $tree_id = $self->make_tree($old_object_id, \@old_path, \@new_path, $blob);</td></tr>
<tr><td class="h">273</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> push @new_tree, "$new_mode $new_type $tree_id\t$new_name";</td></tr>
<tr><td class="h">274</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">275</td><td colspan="7"></td></tr><tr><td class="h">276</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Add the updated tree contains only the rename/add</td></tr>
<tr><td class="h">277</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">278</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $tree_id = $self->make_tree($old_object_id, \@new_path, $blob);</td></tr>
<tr><td class="h">279</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> push @new_tree, "$new_mode $new_type $tree_id\t$new_name";</td></tr>
<tr><td class="h">280</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">281</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">282</td><td colspan="7"></td></tr><tr><td class="h">283</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # If $old_name != $new_name and it matches this file</td></tr>
<tr><td class="h">284</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif (defined $old_name and $old_file eq $old_name) {</td></tr>
<tr><td class="h">285</td><td colspan="7"></td></tr><tr><td class="h">286</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # if ($remove_here) { ... do nothing ... }. The file will be</td></tr>
<tr><td class="h">287</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # omitted. \o/</td></tr>
<tr><td class="h">288</td><td colspan="7"></td></tr><tr><td class="h">289</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Not yet removed, but we need to hunt it down and remove it</td></tr>
<tr><td class="h">290</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L290">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> unless ($remove_here) {</td></tr>
<tr><td class="h">291</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $tree_id = $self->make_tree($old_object_id, \@old_path);</td></tr>
<tr><td class="h">292</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> push @new_tree, "040000 tree $tree_id\t$old_name";</td></tr>
<tr><td class="h">293</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">294</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">295</td><td colspan="7"></td></tr><tr><td class="h">296</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # It's something else, leave it be.</td></tr>
<tr><td class="h">297</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">298</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> push @new_tree, $line;</td></tr>
<tr><td class="h">299</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">300</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">301</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">302</td><td colspan="7"></td></tr><tr><td class="h">303</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # If the file or tree we want to create was never encountered, add it</td></tr>
<tr><td class="h">304</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L304">0</a></div></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--condition.html#L304">0</a></div></td><td></td><td></td><td><div>0</div></td><td class="s"> if ($new_name and not $overwrite) {</td></tr>
<tr><td class="h">305</td><td colspan="7"></td></tr><tr><td class="h">306</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # ...as a file</td></tr>
<tr><td class="h">307</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L307">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if ($new_type eq 'blob') {</td></tr>
<tr><td class="h">308</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> push @new_tree, "$new_mode $new_type $blob\t$new_name";</td></tr>
<tr><td class="h">309</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">310</td><td colspan="7"></td></tr><tr><td class="h">311</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # ...as a tree</td></tr>
<tr><td class="h">312</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">313</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $tree_id = $self->make_tree(undef, \@new_path, $blob);</td></tr>
<tr><td class="h">314</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> push @new_tree, "$new_mode $new_type $tree_id\t$new_name";</td></tr>
<tr><td class="h">315</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">316</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">317</td><td colspan="7"></td></tr><tr><td class="h">318</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Now, build this new tree from the input we've generated</td></tr>
<tr><td class="h">319</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return $git->run('mktree', { input => join "\n", @new_tree });</td></tr>
<tr><td class="h">320</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">321</td><td colspan="7"></td></tr><tr><td class="h">322 - 329</td><td colspan="6"></td><td class="s"><pre>=head2 make_blob
my $object_id = $repository->make_blob($name, $content);
This creates a new file blob in the git repository with the given name and the
file contents.
=cut</pre></td></tr>
<tr><td class="h">330</td><td colspan="7"></td></tr><tr><td class="h">331</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub make_blob {</td></tr>
<tr><td class="h">332</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L332">0</a></div></td><td><div class="c3">1</div></td><td><div>0</div></td><td class="s"> my ($self, $name, $content) = @_;</td></tr>
<tr><td class="h">333</td><td colspan="7"></td></tr><tr><td class="h">334</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return $self->git->run('hash-object', '-t', 'blob', '-w', '--stdin', '--path', $name,</td></tr>
<tr><td class="h">335</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> { input => $content });</td></tr>
<tr><td class="h">336</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">337</td><td colspan="7"></td></tr><tr><td class="h">338 - 345</td><td colspan="6"></td><td class="s"><pre>=head2 make_blob_from_file
my $object_id = $repository->make_blob_from_file($name, $filename);
This is identical to L</make_blob>, except that the contents are read from the
given filename on the local disk.
=cut</pre></td></tr>
<tr><td class="h">346</td><td colspan="7"></td></tr><tr><td class="h">347</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub make_blob_from_file {</td></tr>
<tr><td class="h">348</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L348">0</a></div></td><td><div class="c3">1</div></td><td><div>0</div></td><td class="s"> my ($self, $name, $filename) = @_;</td></tr>
<tr><td class="h">349</td><td colspan="7"></td></tr><tr><td class="h">350</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return $self->git->run('hash-object', '-t', 'blob', '-w', '--path', $name, $filename);</td></tr>
<tr><td class="h">351</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">352</td><td colspan="7"></td></tr><tr><td class="h">353 - 359</td><td colspan="6"></td><td class="s"><pre>=head2 find_root
my $tree_id = $repository->find_root;
This returns the object ID for the tree at the root of the L</branch>.
=cut</pre></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">sub find_root {</td></tr>
<tr><td class="h">362</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L362">0</a></div></td><td><div class="c3">1</div></td><td><div>0</div></td><td class="s"> my ($self) = @_;</td></tr>
<tr><td class="h">363</td><td colspan="7"></td></tr><tr><td class="h">364</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $old_tree_id;</td></tr>
<tr><td class="h">365</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my @ref_info = $self->git->run('show-ref', $self->branch);</td></tr>
<tr><td class="h">366</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> REF: for my $line (@ref_info) {</td></tr>
<tr><td class="h">367</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my ($object_id, $name) = split /\s+/, $line, 2;</td></tr>
<tr><td class="h">368</td><td colspan="7"></td></tr><tr><td class="h">369</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L369">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if ($name eq $self->branch) {</td></tr>
<tr><td class="h">370</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $old_tree_id = $object_id;</td></tr>
<tr><td class="h">371</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> last REF;</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></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">374</td><td colspan="7"></td></tr><tr><td class="h">375</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return $old_tree_id;</td></tr>
<tr><td class="h">376</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">377</td><td colspan="7"></td></tr><tr><td class="h">378 - 388</td><td colspan="6"></td><td class="s"><pre>=head2 commit_tree
my $commit_id = $self->commit_tree($old_tree_id, $new_tree_id, $comment);
This takes an existing tree commit (generally found with L</find_root>), a new
tree to replace it (generally constructed by L</make_tree>) and creates a
commit using the given comment.
The object ID of the committed ID is returned.
=cut</pre></td></tr>
<tr><td class="h">389</td><td colspan="7"></td></tr><tr><td class="h">390</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub commit_tree {</td></tr>
<tr><td class="h">391</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L391">0</a></div></td><td><div class="c3">1</div></td><td><div>0</div></td><td class="s"> my ($self, $old_tree_id, $new_tree_id, $comment) = @_;</td></tr>
<tr><td class="h">392</td><td colspan="7"></td></tr><tr><td class="h">393</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return $self->git->run(</td></tr>
<tr><td class="h">394</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> 'commit-tree', $new_tree_id, '-p', $old_tree_id, {</td></tr>
<tr><td class="h">395</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> input => $comment,</td></tr>
<tr><td class="h">396</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> env => {</td></tr>
<tr><td class="h">397</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> GIT_AUTHOR_NAME => $self->author_name,</td></tr>
<tr><td class="h">398</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> GIT_AUTHOR_EMAIL => $self->author_email,</td></tr>
<tr><td class="h">399</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> },</td></tr>
<tr><td class="h">400</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> },</td></tr>
<tr><td class="h">401</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h">402</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">403</td><td colspan="7"></td></tr><tr><td class="h">404 - 412</td><td colspan="6"></td><td class="s"><pre>=head2 update_root
$self->update_root($old_tree_id, $new_tree_id);
Given an old commit ID and a new commit ID, this moves the HEAD of the
L</branch> so that it points to the new commit. This is called after
L</commit_tree> has setup the commit.
=cut</pre></td></tr>
<tr><td class="h">413</td><td colspan="7"></td></tr><tr><td class="h">414</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub update_root {</td></tr>
<tr><td class="h">415</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L415">0</a></div></td><td><div class="c3">1</div></td><td><div>0</div></td><td class="s"> my ($self, $old_commit_id, $new_commit_id) = @_;</td></tr>
<tr><td class="h">416</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $self->git->command('update-ref', $self->branch, $new_commit_id, $old_commit_id);</td></tr>
<tr><td class="h">417</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">418</td><td colspan="7"></td></tr><tr><td class="h">419 - 426</td><td colspan="6"></td><td class="s"><pre>=head2 find_path
my $object_id = $self->find_path($path);
Given a path within the repository, this will find the object ID of that tree or
blob at that path for the L</branch>.
=cut</pre></td></tr>
<tr><td class="h">427</td><td colspan="7"></td></tr><tr><td class="h">428</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub find_path {</td></tr>
<tr><td class="h">429</td><td><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L429">3</a></div></td><td><div class="c3">1</div></td><td><div>65</div></td><td class="s"> my ($self, $path) = @_;</td></tr>
<tr><td class="h">430</td><td colspan="7"></td></tr><tr><td class="h">431</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>4</div></td><td class="s"> my $object_id;</td></tr>
<tr><td class="h">432</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @files;</td></tr>
<tr><td class="h">433</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> try {</td></tr>
<tr><td class="h">434</td><td><div class="c3">3</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L434">3</a></div></td><td></td><td><div>157</div></td><td class="s"> @files = $self->git->run('ls-tree', $self->branch, $path);</td></tr>
<tr><td class="h">435</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">436</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> catch {</td></tr>
<tr><td class="h">437</td><td colspan="7"></td></tr><tr><td class="h">438</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Looks like an empty repo, try initializing it</td></tr>
<tr><td class="h">439</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L439">0</a></div></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L439">0</a></div></td><td></td><td><div>0</div></td><td class="s"> if ($_ =~ /Not a valid object name/) {</td></tr>
<tr><td class="h">440</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $self->initialize_repository;</td></tr>
<tr><td class="h">441</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> @files = $self->git->run('ls-tree', $self->branch, $path);</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 colspan="7"></td></tr><tr><td class="h">444</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # I don't know what this is, die die die!</td></tr>
<tr><td class="h">445</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">446</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> die $_;</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><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>22</div></td><td class="s"> };</td></tr>
<tr><td class="h">449</td><td colspan="7"></td></tr><tr><td class="h">450</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>87972</div></td><td class="s"> FILE: for my $line (@files) {</td></tr>
<tr><td class="h">451</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>34</div></td><td class="s"> my ($mode, $type, $id, $name) = split /\s+/, $line, 4;</td></tr>
<tr><td class="h">452</td><td colspan="7"></td></tr><tr><td class="h">453</td><td><div class="c3">3</div></td><td><div class="c0" title="T/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L453">50</a></div></td><td></td><td></td><td></td><td><div>21</div></td><td class="s"> if ($name eq $path) {</td></tr>
<tr><td class="h">454</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>9</div></td><td class="s"> $object_id = $id;</td></tr>
<tr><td class="h">455</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>9</div></td><td class="s"> last FILE;</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 colspan="7"></td></tr><tr><td class="h">459</td><td><div class="c3">3</div></td><td></td><td></td><td></td><td></td><td><div>41</div></td><td class="s"> return $object_id;</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 - 468</td><td colspan="6"></td><td class="s"><pre>=head2 show
my $content = $repository->show($object_id);
Returns the contents of the blob for the given object ID.
=cut</pre></td></tr>
<tr><td class="h">469</td><td colspan="7"></td></tr><tr><td class="h">470</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub show {</td></tr>
<tr><td class="h">471</td><td><div class="c3">2</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L471">2</a></div></td><td><div class="c3">1</div></td><td><div>62</div></td><td class="s"> my ($self, $object_id) = @_;</td></tr>
<tr><td class="h">472</td><td><div class="c3">2</div></td><td></td><td></td><td></td><td></td><td><div>40</div></td><td class="s"> return $self->git->run('show', $object_id);</td></tr>
<tr><td class="h">473</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">474</td><td colspan="7"></td></tr><tr><td class="h">475 - 481</td><td colspan="6"></td><td class="s"><pre>=head2 fetch_size
my $bytes = $repository->fetch_size($path);
Returns the size, in bites, of the blob at the given path.
=cut</pre></td></tr>
<tr><td class="h">482</td><td colspan="7"></td></tr><tr><td class="h">483</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub fetch_size {</td></tr>
<tr><td class="h">484</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L484">0</a></div></td><td><div class="c3">1</div></td><td><div>0</div></td><td class="s"> my ($self, $path) = @_;</td></tr>
<tr><td class="h">485</td><td colspan="7"></td></tr><tr><td class="h">486</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my @files = $self->git->run('ls-tree', '-l', $self->branch, $path);</td></tr>
<tr><td class="h">487</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> FILE: for my $line (@files) {</td></tr>
<tr><td class="h">488</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my ($mode, $type, $id, $size, $name) = split /\s+/, $line, 5;</td></tr>
<tr><td class="h">489</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L489">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return $size if $name eq $path;</td></tr>
<tr><td class="h">490</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">491</td><td colspan="7"></td></tr><tr><td class="h">492</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return;</td></tr>
<tr><td class="h">493</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">494</td><td colspan="7"></td></tr><tr><td class="h">495 - 502</td><td colspan="6"></td><td class="s"><pre>=head2 list_files
my @files = $repository->list_files($path);
Returns a list of L<Yukki::Model::File> objects for all the files found at
C<$path> in the repository.
=cut</pre></td></tr>
<tr><td class="h">503</td><td colspan="7"></td></tr><tr><td class="h">504</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub list_files {</td></tr>
<tr><td class="h">505</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L505">0</a></div></td><td><div class="c3">1</div></td><td><div>0</div></td><td class="s"> my ($self, $path) = @_;</td></tr>
<tr><td class="h">506</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my @files;</td></tr>
<tr><td class="h">507</td><td colspan="7"></td></tr><tr><td class="h">508</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my @tree_files = $self->git->run('ls-tree', $self->branch, $path . '/');</td></tr>
<tr><td class="h">509</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> FILE: for my $line (@tree_files) {</td></tr>
<tr><td class="h">510</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my ($mode, $type, $id, $name) = split /\s+/, $line, 4;</td></tr>
<tr><td class="h">511</td><td colspan="7"></td></tr><tr><td class="h">512</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L512">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> next unless $type eq 'blob';</td></tr>
<tr><td class="h">513</td><td colspan="7"></td></tr><tr><td class="h">514</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> my $filetype;</td></tr>
<tr><td class="h">515</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L515">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> if ($name =~ s/\.(?<filetype>[a-z0-9]+)$//) {</td></tr>
<tr><td class="h">516</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> $filetype = $+{filetype};</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 colspan="7"></td></tr><tr><td class="h">519</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> push @files, $self->file({ path => $name, filetype => $filetype });</td></tr>
<tr><td class="h">520</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">521</td><td colspan="7"></td></tr><tr><td class="h">522</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div></td><td class="s"> return @files;</td></tr>
<tr><td class="h">523</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">524</td><td colspan="7"></td></tr><tr><td class="h">525 - 531</td><td colspan="6"></td><td class="s"><pre>=head2 file
my $file = $repository->file({ path => 'foo', filetype => 'yukki' });
Returns a single L<Yukki::Model::File> object for the given path and filetype.
=cut</pre></td></tr>
<tr><td class="h">532</td><td colspan="7"></td></tr><tr><td class="h">533</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub file {</td></tr>
<tr><td class="h">534</td><td><div class="c3">1</div></td><td></td><td></td><td><div class="c3"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L534">1</a></div></td><td><div class="c3">1</div></td><td><div>2</div></td><td class="s"> my ($self, $params) = @_;</td></tr>
<tr><td class="h">535</td><td colspan="7"></td></tr><tr><td class="h">536</td><td><div class="c3">1</div></td><td></td><td></td><td></td><td></td><td><div>9</div></td><td class="s"> Yukki::Model::File->new(</td></tr>
<tr><td class="h">537</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> %$params,</td></tr>
<tr><td class="h">538</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> app => $self->app,</td></tr>
<tr><td class="h">539</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> repository => $self,</td></tr>
<tr><td class="h">540</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h">541</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">542</td><td colspan="7"></td></tr><tr><td class="h">543 - 549</td><td colspan="6"></td><td class="s"><pre>=head2 default_file
my $file = $repository->default_file;
Return the default L<Yukki::Model::File> configured for this repository.
=cut</pre></td></tr>
<tr><td class="h">550</td><td colspan="7"></td></tr><tr><td class="h">551</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub default_file {</td></tr>
<tr><td class="h">552</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L552">0</a></div></td><td><div class="c3">1</div></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">553</td><td colspan="7"></td></tr><tr><td class="h">554</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> return Yukki::Model::File->new(</td></tr>
<tr><td class="h">555</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> full_path => $self->repository_settings->default_page,</td></tr>
<tr><td class="h">556</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> app => $self->app,</td></tr>
<tr><td class="h">557</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> repository => $self,</td></tr>
<tr><td class="h">558</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> );</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 colspan="7"></td></tr><tr><td class="h">561 - 599</td><td colspan="6"></td><td class="s"><pre>=head2 log
my @log = $repository->log( full_path => 'foo.yukk' );
Returns a list of revisions. Each revision is a hash with the following keys:
=over
=item object_id
The object ID of the commit.
=item author_name
The name of the commti author.
=item date
The date the commit was made.
=item time_ago
A string showing how long ago the edit took place.
=item comment
The comment the author made about the comment.
=item lines_added
Number of lines added.
=item lines_removed
Number of lines removed.
=back
=cut</pre></td></tr>
<tr><td class="h">600</td><td colspan="7"></td></tr><tr><td class="h">601</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub log {</td></tr>
<tr><td class="h">602</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L602">0</a></div></td><td><div class="c3">1</div></td><td></td><td class="s"> my ($self, $full_path) = @_;</td></tr>
<tr><td class="h">603</td><td colspan="7"></td></tr><tr><td class="h">604</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @lines = $self->git->run(</td></tr>
<tr><td class="h">605</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> 'log', $self->branch, '--pretty=format:%H~%an~%aD~%ar~%s', '--numstat',</td></tr>
<tr><td class="h">606</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> '--', $full_path</td></tr>
<tr><td class="h">607</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h">608</td><td colspan="7"></td></tr><tr><td class="h">609</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @revisions;</td></tr>
<tr><td class="h">610</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $current_revision;</td></tr>
<tr><td class="h">611</td><td colspan="7"></td></tr><tr><td class="h">612</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $mode = 'log';</td></tr>
<tr><td class="h">613</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> for my $line (@lines) {</td></tr>
<tr><td class="h">614</td><td colspan="7"></td></tr><tr><td class="h">615</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # First line is the log line</td></tr>
<tr><td class="h">616</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L616">0</a></div><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L616">0</a></div><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L616">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> if ($mode eq 'log') {</td></tr>
<tr><td class="h">617</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $current_revision = {};</td></tr>
<tr><td class="h">618</td><td colspan="7"></td></tr><tr><td class="h">619</td><td><div class="c0">0</div><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> @{ $current_revision }{qw( object_id author_name date time_ago comment )}</td></tr>
<tr><td class="h">620</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> = split /~/, $line, 5;</td></tr>
<tr><td class="h">621</td><td colspan="7"></td></tr><tr><td class="h">622</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $current_revision->{date} = DateTime::Format::Mail->parse_datetime(</td></tr>
<tr><td class="h">623</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $current_revision->{date}</td></tr>
<tr><td class="h">624</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">625</td><td colspan="7"></td></tr><tr><td class="h">626</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $mode = 'stat';</td></tr>
<tr><td class="h">627</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">628</td><td colspan="7"></td></tr><tr><td class="h">629</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Remaining lines are the numstat</td></tr>
<tr><td class="h">630</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif ($mode eq 'stat') {</td></tr>
<tr><td class="h">631</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ($added, $removed, $path) = split /\s+/, $line, 3;</td></tr>
<tr><td class="h">632</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L632">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> if ($path eq $full_path) {</td></tr>
<tr><td class="h">633</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $current_revision->{lines_added} = $added;</td></tr>
<tr><td class="h">634</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $current_revision->{lines_removed} = $removed;</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 colspan="7"></td></tr><tr><td class="h">637</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $mode = 'skip';</td></tr>
<tr><td class="h">638</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">639</td><td colspan="7"></td></tr><tr><td class="h">640</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # Once we know the numstat, search for the blank and start over</td></tr>
<tr><td class="h">641</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif ($mode eq 'skip') {</td></tr>
<tr><td class="h">642</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> push @revisions, $current_revision;</td></tr>
<tr><td class="h">643</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L643">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> $mode = 'log' if $line !~ /\S/;</td></tr>
<tr><td class="h">644</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">645</td><td colspan="7"></td></tr><tr><td class="h">646</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">647</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> http_throw("invalid parse mode '$mode'");</td></tr>
<tr><td class="h">648</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</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><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> return @revisions;</td></tr>
<tr><td class="h">652</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">653</td><td colspan="7"></td></tr><tr><td class="h">654 - 666</td><td colspan="6"></td><td class="s"><pre>=head2 diff_blobs
my @chunks = $self->diff_blobs('file.yukki', 'a939fe...', 'b7763d...');
Given a file path and two object IDs, returns a list of chunks showing the difference between to revisions of that path. Each chunk is a two element array. The first element is the type of chunk and the second is any detail for that chunk.
The types are:
"+" This chunk was added to the second revision.
"-" This chunk was removed in the second revision.
" " This chunk is the same in both revisions.
=cut</pre></td></tr>
<tr><td class="h">667</td><td colspan="7"></td></tr><tr><td class="h">668</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub diff_blobs {</td></tr>
<tr><td class="h">669</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L669">0</a></div></td><td><div class="c3">1</div></td><td></td><td class="s"> my ($self, $path, $object_id_1, $object_id_2) = @_;</td></tr>
<tr><td class="h">670</td><td colspan="7"></td></tr><tr><td class="h">671</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @lines = $self->git->run(</td></tr>
<tr><td class="h">672</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> 'diff', '--word-diff=porcelain', '--unified=10000000', '--patience',</td></tr>
<tr><td class="h">673</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $object_id_1, $object_id_2, '--', $path,</td></tr>
<tr><td class="h">674</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> );</td></tr>
<tr><td class="h">675</td><td colspan="7"></td></tr><tr><td class="h">676</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my @chunks;</td></tr>
<tr><td class="h">677</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $last_chunk_type = '';</td></tr>
<tr><td class="h">678</td><td colspan="7"></td></tr><tr><td class="h">679</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $i = 0;</td></tr>
<tr><td class="h">680</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> LINE: for my $line (@lines) {</td></tr>
<tr><td class="h">681</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L681">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> next if $i++ < 5;</td></tr>
<tr><td class="h">682</td><td colspan="7"></td></tr><tr><td class="h">683</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my ($type, $detail) = $line =~ /^(.)(.*)$/;</td></tr>
<tr><td class="h">684</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L684">0</a></div><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L684">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> if ($type =~ /^(?:~| |\+|-)$/) {</td></tr>
<tr><td class="h">685</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L685">0</a></div><div class="c0" title="-/-"><a href="lib-Yukki-Model-Repository-pm--branch.html#L685">0</a></div></td><td></td><td></td><td></td><td></td><td class="s"> if ($last_chunk_type eq $type) {</td></tr>
<tr><td class="h">686</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $chunks[-1][1] .= $detail;</td></tr>
<tr><td class="h">687</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">688</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> elsif ($type eq '~') {</td></tr>
<tr><td class="h">689</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $chunks[-1][1] .= "\n";</td></tr>
<tr><td class="h">690</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">691</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else {</td></tr>
<tr><td class="h">692</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> push @chunks, [ $type, $detail ];</td></tr>
<tr><td class="h">693</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $last_chunk_type = $type;</td></tr>
<tr><td class="h">694</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</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"> elsif ($type eq '\\') { }</td></tr>
<tr><td class="h">697</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> else { warn "unknown diff line type $type" }</td></tr>
<tr><td class="h">698</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> }</td></tr>
<tr><td class="h">699</td><td colspan="7"></td></tr><tr><td class="h">700</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> return @chunks;</td></tr>
<tr><td class="h">701</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">702</td><td colspan="7"></td></tr><tr><td class="h">703 - 709</td><td colspan="6"></td><td class="s"><pre>=head2 initialize_repository
$self->initialize_repository;
Run on an empty repository to create an empty one.
=cut</pre></td></tr>
<tr><td class="h">710</td><td colspan="7"></td></tr><tr><td class="h">711</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">sub initialize_repository {</td></tr>
<tr><td class="h">712</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L712">0</a></div></td><td><div class="c3">1</div></td><td></td><td class="s"> my $self = shift;</td></tr>
<tr><td class="h">713</td><td colspan="7"></td></tr><tr><td class="h">714</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $repository_path = ''.$self->repository_path;</td></tr>
<tr><td class="h">715</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> Git::Repository->run('init', '--bare', $repository_path);</td></tr>
<tr><td class="h">716</td><td colspan="7"></td></tr><tr><td class="h">717</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> # TODO This would be nice to have as a config.</td></tr>
<tr><td class="h">718</td><td><div class="c0">0</div></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--condition.html#L718">0</a></div></td><td></td><td></td><td></td><td class="s"> my $title = $self->repository_settings->name // 'Untitled';</td></tr>
<tr><td class="h">719</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $stub_main = <<END_OF_STUB_MAIN;</td></tr>
<tr><td class="h">720</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"># $title</td></tr>
<tr><td class="h">721</td><td colspan="7"></td></tr><tr><td class="h">722</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">Welcome to your new wiki repository. The first thing you will probably</td></tr>
<tr><td class="h">723</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">want to do is edit this page.</td></tr>
<tr><td class="h">724</td><td colspan="7"></td></tr><tr><td class="h">725</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">Cheers.</td></tr>
<tr><td class="h">726</td><td colspan="7"></td></tr><tr><td class="h">727</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">END_OF_STUB_MAIN</td></tr>
<tr><td class="h">728</td><td colspan="7"></td></tr><tr><td class="h">729</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $page = $self->repository_settings->default_page;</td></tr>
<tr><td class="h">730</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $object_id = $self->git->run('hash-object', '-t', 'blob', '-w', '--stdin', "--path=$page", { input => $stub_main });</td></tr>
<tr><td class="h">731</td><td colspan="7"></td></tr><tr><td class="h">732</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $stub_tree = "100655 blob $object_id\t$page\n";</td></tr>
<tr><td class="h">733</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $tree_id = $self->git->run('mktree', { input => $stub_tree });</td></tr>
<tr><td class="h">734</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $commit_id = $self->git->run('commit-tree', $tree_id, {</td></tr>
<tr><td class="h">735</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> input => 'Initializing empty Yukki repository.',</td></tr>
<tr><td class="h">736</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> env => {</td></tr>
<tr><td class="h">737</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> GIT_AUTHOR_NAME => 'Yukki::Model::Repository',</td></tr>
<tr><td class="h">738</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s"> GIT_AUTHOR_EMAIL => 'hanenkamp@cpan.org',</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"> });</td></tr>
<tr><td class="h">741</td><td colspan="7"></td></tr><tr><td class="h">742</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $branch = $self->branch;</td></tr>
<tr><td class="h">743</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> $self->git->run('update-ref', $branch, $commit_id, '0' x 40);</td></tr>
<tr><td class="h">744</td><td colspan="7"></td></tr><tr><td class="h">745</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">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 colspan="7"></td></tr><tr><td class="h">748 - 754</td><td colspan="6"></td><td class="s"><pre>=head2 clone_repository
$self->clone_repository($origin);
Given a remote repository URI to clone from in C<$origin>, initialize the local repository from a clone of the remote one.
=cut</pre></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">sub clone_repository {</td></tr>
<tr><td class="h">757</td><td><div class="c0">0</div></td><td></td><td></td><td><div class="c0"><a href="lib-Yukki-Model-Repository-pm--subroutine.html#L757">0</a></div></td><td><div class="c3">1</div></td><td></td><td class="s"> my ($self, $origin) = @_;</td></tr>
<tr><td class="h">758</td><td colspan="7"></td></tr><tr><td class="h">759</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> my $repository_path = ''.$self->repository_path;</td></tr>
<tr><td class="h">760</td><td><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td></td><td class="s"> Git::Repository->run('clone', '--bare', $origin, $repository_path);</td></tr>
<tr><td class="h">761</td><td colspan="7"></td></tr><tr><td class="h">762</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">763</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
<tr><td class="h">764</td><td colspan="7"></td></tr><tr><td class="h">765</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">1;</td></tr>
</table>
</body>
</html>