The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Git::Status::Tackle::UntrackedFiles;
use strict;
use warnings;
use parent 'Git::Status::Tackle::Plugin';

sub synopsis { "Lists files not tracked or ignored by git" }

sub list {
    my $untracked_files = `git ls-files -z --exclude-standard --directory --others --full-name`;
    return [ map { " $_\n" } split "\0", $untracked_files ];
}

1;