Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Git / PurePerl / NewObject / Commit.pm

diff --git a/local-lib5/lib/perl5/Git/PurePerl/NewObject/Commit.pm b/local-lib5/lib/perl5/Git/PurePerl/NewObject/Commit.pm
new file mode 100644 (file)
index 0000000..0ff91e7
--- /dev/null
+++ b/local-lib5/lib/perl5/Git/PurePerl/NewObject/Commit.pm
@@ -0,0 +1,51 @@
+package Git::PurePerl::NewObject::Commit;
+use Moose;
+use MooseX::StrictConstructor;
+use Moose::Util::TypeConstraints;
+use DateTime;
+use namespace::autoclean;
+
+extends 'Git::PurePerl::NewObject';
+
+has 'kind' =>
+    ( is => 'ro', isa => 'ObjectKind', required => 1, default => 'commit' );
+has 'tree'   => ( is => 'rw', isa => 'Str',                  required => 1 );
+has 'parent' => ( is => 'rw', isa => 'Str',                  required => 0 );
+has 'author' => ( is => 'rw', isa => 'Git::PurePerl::Actor', required => 1 );
+has 'authored_time' => ( is => 'rw', isa => 'DateTime', required => 1 );
+has 'committer' =>
+    ( is => 'rw', isa => 'Git::PurePerl::Actor', required => 1 );
+has 'committed_time' => ( is => 'rw', isa => 'DateTime', required => 1 );
+has 'comment'        => ( is => 'rw', isa => 'Str',      required => 1 );
+
+sub _build_content {
+    my $self = shift;
+    my $content;
+
+    $content .= 'tree ' . $self->tree . "\n";
+    $content .= 'parent ' . $self->parent . "\n" if $self->parent;
+    $content
+        .= "author "
+        . $self->author->name . ' <'
+        . $self->author->email . "> "
+        . $self->authored_time->epoch . " "
+        . DateTime::TimeZone->offset_as_string( $self->authored_time->offset )
+        . "\n";
+    $content
+        .= "committer "
+        . $self->committer->name . ' <'
+        . $self->author->email . "> "
+        . $self->committed_time->epoch . " "
+        . DateTime::TimeZone->offset_as_string(
+        $self->committed_time->offset )
+        . "\n";
+    $content .= "\n";
+    my $comment = $self->comment;
+    chomp $comment;
+    $content .= "$comment\n";
+
+    $self->content($content);
+}
+
+__PACKAGE__->meta->make_immutable;
+