$ ./des.pl search_term

##</code><code>##

business-isp/lib/Business/ISP/Ledger.pm:
	invoice_number
	_gledger_write_legacy

business-isp/lib/Business/ISP/User.pm:
	add_notes

business-isp/lib/Business/ISP/Conversion.pm:
	plans_inf_to_db

business-isp/lib/Business/ISP/Reports.pm:
	renewal_notices

business-isp/lib/Business/ISP/GUI/Accounting.pm:
	home
	process_purchase
	perform_find
	show_plan
	setup
	confirm_purchase

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use 5.18.0;

use Devel::Examine::Subs;
use File::Find;

my $des = Devel::Examine::Subs->new();

my $search = $ARGV[0];

find({ wanted => \&check_subs, no_chdir => 1 }, 
       'business-isp/lib/Business/ISP'
);

sub check_subs {

    if (! -f or ! /(?:\.pm|\.pl)$/){
        return;
    } 
    
    my $file = "$File::Find::name";
    
    my @has = $des->has({file => $file, search => $search});

    return if ! @has;

    say "\n$file:" ;
    say "\t$_" for @has;
}