sub callback()

in license_helper.pl [98:132]

• 32 lines of code
• 16 McCabe index (conditional complexity)

sub callback {
  unless (-d) {
    my $dir = $File::Find::dir;
    my $path = $File::Find::name;
    my $name = $_;
    if ($dir =~ /\.git/ ||
        $dir =~ /node_modules/ ||
        $dir =~ /.build/ ||
        $dir =~ /.gradle/ ||
        $dir =~ /.vscode/ ||
        $dir =~ /.idea/ ||
        $dir =~ /resources/ ||
        $name eq '.gitignore' ||
        $name eq 'auto-imports.d.ts' ||
        $name eq 'components.d.ts') {
      return;
    }

    if ($name =~ /\.java\z/ || $name =~ /\.gradle\z/ || $name =~ /\.ts\z/ || $name =~ /\.ts\z/) {
      prepend_licence($name, $license_1, 1);
    } elsif ($name =~ /\.xml\z/) {
      # skip first line
      prepend_licence($name, $license_3, 2);
    } elsif ($name =~ /\.sh\z/) {
      # skip first line
      prepend_licence($name, $license_2, 2);
    } elsif ($name =~ /\.yml\z/ || $name =~ /.yaml\z/) {
      prepend_licence($name, $license_2, 1);
    } elsif ($name =~ /\.vue\z/) {
      prepend_licence($name, $license_3, 1);
    } else {
      print "Skip $path\n"
    }
  };
}