File Coverage

blib/lib/App/Sybil.pm

Criterion	Covered	Total	%
statement	23	89	25.8
branch	0	22	0.0
condition	0	9	0.0
subroutine	8	25	32.0
pod	0	9	0.0
total	31	154	20.1

package App::Sybil;

use strict;
use warnings;
use v5.12;

our $VERSION = '0.4';

use App::Cmd::Setup -app;

use Capture::Tiny ':all';
use File::Copy;
use File::Slurp;
use File::Spec;

sub _build {
  my ($self, $target, @opts) = @_;

  system 'bazel', 'build', '-c', 'opt', ":$target", @opts;

  if ($? == -1) {
    say STDERR 'Build failed';
    return undef;
  }

  return 1;
}

sub _build_linux {
  my ($self, $project, $version) = @_;

  # TODO autodetect build rule
  my $target = "$project-linux";
  $self->_build($target) or return undef;

  # TODO improve result name detection
  my $file = "$project-$version-linux.tgz";
  unless (copy("bazel-bin/$target.tgz", $file)) {
    say STDERR "Copy bazel-bin/$target.tgz to $file failed: $!";
    return undef;
  }

  say STDERR 'Build complete';
  return 1;
}

sub _build_windows {
  my ($self, $project, $version) = @_;

  my @options =
    ('--crosstool_top', '@mxebzl//tools/windows:toolchain', '--cpu', 'win64');

  # TODO autodetect build rule
  my $target = "$project-windows";
  $self->_build($target, @options) or return undef;

  # TODO improve result name detection
  my $file = "$project-$version-windows.zip";
  unless (copy("bazel-bin/$target.zip", $file)) {
    say STDERR "Copy bazel-bin/$target.zip to $file failed: $!";
    return undef;
  }

  say STDERR 'Build complete';
  return 1;
}

sub build_all_targets {
  my ($self, $project, $version) = @_;

  $self->_build_linux($project, $version) or return undef;
  $self->_build_windows($project, $version) or return undef;
  return 1;
}

sub _get_project_from_path {
  my ($self) = @_;

  my @dirs = File::Spec->splitdir(File::Spec->rel2abs(File::Spec->curdir));
  return $dirs[-1];
}

sub project {
  my ($self) = @_;

  $self->{project} ||= $self->_get_project_from_path();
  return $self->{project};
}

sub _get_version_from_git {
  my ($self) = @_;

  my $version = capture_stdout {
    system 'git', 'describe', '--dirty', '--tags';
  };
  chomp $version;

  return $version;
}

sub version {
  my ($self) = @_;

  $self->{version} ||= $self->_get_version_from_git();
  return $self->{version};
}

sub targets {
  my ($self) = @_;

  return qw(linux windows);
}

sub output_file {
  my ($self, $version, $target) = @_;

  return $self->project . "-$version-$target." . ($target =~ /^win/ ? 'zip' : 'tgz');
}

sub has_build {
  my ($self, $version) = @_;

  foreach my $target ($self->targets) {
    my $file = $self->output_file($version, $target);
    unless (-e $file) {
      say STDERR "Missing build artifact $file";
      return undef;
    }
  }

  return 1;
}

sub local_config { return '.sybilrc'; }
sub global_config { return File::Spec->catfile($ENV{HOME}, '.sybilrc'); }

sub _write_token {
  my ($self, $token) = @_;

  write_file($self->global_config, $token);
}

sub _read_token {
  my ($self) = @_;

  if (-f $self->local_config) {
    return read_file($self->local_config);
  } elsif (-f $self->global_config) {
    return read_file($self->global_config);
  }

  return undef;
}

sub github_token {
  my ($self) = @_;

  $self->{token} ||= $self->_read_token();
  return $self->{token};
}

1;

__END__