File Coverage

blib/lib/App/fbx.pm

Criterion	Covered	Total	%
statement	17	40	42.5
branch	0	20	0.0
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	23	68	33.8

package App::fbx;

use strict;
use warnings;
use 5.008001;
use FFI::Build::MM;
use Cwd qw( getcwd );
use File::Basename qw( basename dirname );

# ABSTRACT: Command line interface to FFI::Build
our $VERSION = '0.12'; # VERSION


sub main
{
  my(undef, @ARGV) = @_;

  unless(-f 'fbx.json')
  {
    my $mm = FFI::Build::MM->new;
    $mm->mm_args( DISTNAME => basename getcwd() );
    $mm->sharedir('share');
    $mm->archdir(0);
  }

  my $mm = FFI::Build::MM->new;

  my $command = shift @ARGV;

  if(defined $command)
  {
    if($command eq 'build')
    {
      my $build = $mm->build;
      $build->build if $build;
    }
    elsif($command eq 'test')
    {
      my $build = $mm->test;
      $build->build if $build;
    }
    elsif($command eq 'clean')
    {
      $mm->clean;
    }
    elsif($command eq 'all')
    {
      my $build = $mm->build;
      $build->build if $build;
      undef $mm;
      $mm = FFI::Build::MM->new;
      $build = $mm->test;
      $build->build if $build;
    }
    else
    {
      die "unknown command: $command";
    }
  }

  0;
}

1;

__END__