local-lib5/lib/perl5/Git/PurePerl/DirectoryEntry.pm

   1 package Git::PurePerl::DirectoryEntry;
   2 use Moose;
   3 use MooseX::StrictConstructor;
   4 use Moose::Util::TypeConstraints;
   5 use namespace::autoclean;
   6
   7 has 'mode'     => ( is => 'ro', isa => 'Str',           required => 1 );
   8 has 'filename' => ( is => 'ro', isa => 'Str',           required => 1 );
   9 has 'sha1'     => ( is => 'ro', isa => 'Str',           required => 1 );
  10 has 'git'      => ( is => 'ro', isa => 'Git::PurePerl', required => 1, weak_ref => 1 );
  11
  12 sub object {
  13     my $self = shift;
  14     return $self->git->get_object( $self->sha1 );
  15 }
  16
  17 __PACKAGE__->meta->make_immutable;
  18