view release on metacpan or  search on metacpan

lib/Dist/Dzpl.pm  view on Meta::CPAN

    my $do = shift @arguments;

    if ( $do eq 'dzil' ) {
        require Dist::Zilla::App;
        my $app = Dist::Zilla::App->new;
        $app->{__chrome__} = $zilla->chrome;
        $app->{__PACKAGE__}{zilla} = $zilla; # Cover case 1...
        $app->{'Dist::Zilla::App'}{zilla} = $zilla; # ...and case 2
        {
            local @ARGV = @arguments;
            $app->run;
        }
    }
    else {
        die "Dist::Zilla cannot do \"$do\"" unless $zilla->can( $do );
        warn "Dropping arguments [@arguments]" if @arguments;
        return $zilla->$do;
    }
}

lib/Dzpl.pm  view on Meta::CPAN

#    my $default = sub {
#        my @arguments = @_;
#        return unless @arguments;
#        my $command = shift @arguments;
#        if ( $command eq 'dzil' ) {
#            require Dist::Zilla::App;
#            my $app = Dist::Zilla::App->new;
#            $app->{__chrome__} = $dzpl->zilla->chrome;
#            $app->{__PACKAGE__}{zilla} = $dzpl->zilla; # Cover case 1...
#            $app->{'Dist::Zilla::App'}{zilla} = $dzpl->zilla; # ...and case 2
#            local @ARGV = @arguments;
#            $app->run;
#        }
#        else {
#            $dzpl->zilla->$command;
#        }
#    };

#    if ( my $run = shift ) {
#        $run->( $default, $dzpl );
#    }