my $exclude;
$exclude .= sprintf q{ --exclude='%s'}, $_ foreach @{$self->{patterns}};