lib/Gitalist/Git/Object.pm

   1 use MooseX::Declare;
   2
   3 class Gitalist::Git::Object {
   4     use File::Stat::ModeString qw/mode_to_string/;
   5
   6     has sha1 => ( isa => 'Str',
   7                   is => 'ro' );
   8     has type => ( isa => 'Str',
   9                   is => 'ro' );
  10     has file => ( isa => 'Str',
  11                   is => 'ro' );
  12     has mode => ( isa => 'Int',
  13                   is => 'ro' );
  14     has modestr => ( isa => 'Str',
  15                      is => 'ro',
  16                      lazy_build => 1,
  17                  );
  18
  19     method _build_modestr {
  20         my $modestr = mode_to_string($self->{mode});
  21         return $modestr;
  22     }
  23
  24
  25
  26 } # end class