5 has env => (is => 'ro', required => 1);
7 sub new_from_environment {
10 env => { %ENV }, argv => [ @ARGV ],
11 stdin => \*STDIN, stdout => \*STDOUT, stderr => \*STDERR
13 $class->new(env => \%env);
18 my @argv = @{$self->env->{argv}};
19 require Tak::MyScript;
20 my $opt = Tak::MyScript->_parse_options(
21 'config|c=s;host|h=s@;local|l!;verbose|v+;quiet|q+', \@argv
25 env => { %{$self->env}, argv => \@argv }