view release on metacpan or  search on metacpan

lib/App/Dest.pm  view on Meta::CPAN

347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
    unless ($dry_run) {
        $self->_execute_action($_) for (@$execute_stack);
    }
    else {
        _dry_run_report($execute_stack);
    }
 
    return 0;
}
 
sub update {
    my $self = _new(shift);
    my ( $dry_run, @incs ) = _dry_check(@_);
 
    my $seen_action = {};
    my $execute_stack;
 
    for (
        sort {
            ( $b->{modified} || 0 ) <=> ( $a->{modified} || 0 ) ||
            $a->{action} cmp $b->{action}