File Coverage

blib/lib/App/Tak.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch			n/a
condition			n/a
subroutine	1	3	33.3
pod	0	2	0.0
total	4	18	22.2

package App::Tak;

use Moo;

has env => (is => 'ro', required => 1);

sub new_from_environment {
  my $class = shift;
  my %env = (
    env => { %ENV }, argv => [ @ARGV ],
    stdin => \*STDIN, stdout => \*STDOUT, stderr => \*STDERR
  );
  $class->new(env => \%env);
}

sub run {
  my ($self) = @_;
  my @argv = @{$self->env->{argv}};
  require Tak::MyScript;
  my $opt = Tak::MyScript->_parse_options(
    'config|c=s;host|h=s@;local|l!;verbose|v+;quiet|q+', \@argv
  );
  Tak::MyScript->new(
    options => $opt,
    env => { %{$self->env}, argv => \@argv }
  )->run;
}

1;