view release on metacpan or  search on metacpan

bin/func  view on Meta::CPAN

  for my $file(sort { $func{$b} cmp $func{$a} } (keys(%func))) {
    if($func{$file} ne $module) {
      $module = $func{$file};

      my $mod_name;
      if( ($module =~ m;.+lib/(.+)\.pm$;)) {
        $mod_name = $1;
        $mod_name =~ s;/;::;g;
        $mod_name =~ s;\.pm;;;
        print "\n";
        print fg('bold', fg('yellow18', $mod_name)), "\n";
      }
    }
    my ($basename) = $func{$file} =~ m;.+/(.+)$;;
    my ($two_lvl)  = $func{$file} =~ m;.+/(.+/.+)$;;

    my $sep_counter = 0;
    for(split(//, $func{$file})) {
      if($_ eq '/') {
        $sep_counter++;
      }

bin/func  view on Meta::CPAN

      printf("%67.90s -> %s\n",
        $two_lvl, $file);
    }
    else {
      printf("%37.90s -> %s\n",
        fg('gray10', $basename), $file);
    }
  }
  printf("\n%s functions defined in %s\n",
   fg('bold',  scalar(keys(%func))), $dir)
    unless(scalar(keys(%func)) < 1);
}