use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
use Moose::Autobox;
use List::MoreUtils qw/any zip/;
- use Gitalist::Util qw(to_utf8);
our $SHA1RE = qr/[0-9a-fA-F]{40}/;
has '+type' => ( default => 'commit' );
return \@difftree, [$self->_parse_diff(@out)];
}
-method snapshot ( NonEmptySimpleStr $format ) {
- # TODO - only valid formats are 'tar' and 'zip'
- my $formats = { tgz => 'tar', zip => 'zip' };
- unless ($formats->exists($format)) {
- die("No such format: $format");
- }
- $format = $formats->{$format};
- my $name = $self->project->name;
- $name =~ s,([^/])/*\.git$,$1,;
- my $filename = to_utf8($name);
- $filename .= "-$self->sha1.$format";
- $name =~ s/\047/\047\\\047\047/g;
-
-
- my @cmd = ('archive', "--format=$format", "--prefix=$name/", $self->sha1);
- return $self->_run_cmd_fh(@cmd);
- # TODO - support compressed archives
-}
+# method snapshot ( NonEmptySimpleStr $format ) {
+# # TODO - only valid formats are 'tar' and 'zip'
+# my $formats = { tgz => 'tar', zip => 'zip' };
+# unless ($formats->exists($format)) {
+# die("No such format: $format");
+# }
+# $format = $formats->{$format};
+# my $name = $self->project->name;
+# $name =~ s,([^/])/*\.git$,$1,;
+# my $filename = to_utf8($name);
+# $filename .= "-$self->sha1.$format";
+# $name =~ s/\047/\047\\\047\047/g;
+
+
+# my @cmd = ('archive', "--format=$format", "--prefix=$name/", $self->sha1);
+# return $self->_run_cmd_fh(@cmd);
+# # TODO - support compressed archives
+# }
## Private methods
# gitweb uses the following sort of command for diffing merges: