File Coverage

blib/lib/App/FindCallers.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	17	19	89.4

package App::FindCallers;
# ABSTRACT: Find the callers of a given function in a directory tree

our $VERSION = '0.02';

use 5.010;
use strict;
use warnings;

use File::Find;
use PPI;

sub report {
    my ($filename, $f, $nestlevel) = @_;
    my $indent = "  " x $nestlevel;
    my $message = "Called from";
    if ($nestlevel) {
        $message = "Defined in"
    }
    my $location = $filename . ":" . $f->line_number;

    printf "%s%s %s() in %s\n", $indent, $message, $f->name, $location;
}

sub find_in_file {
    my ($function, $filename, $cb) = @_;
    $cb ||= \&report;
    my $document = PPI::Document->new($filename);
    unless ($document) {
        say "Failed to parse $filename " . PPI::Document->errstr;
        return;
    }
    $document->index_locations;
    my $references = $document->find(sub {
        $_[1]->isa('PPI::Token::Word') and $_[1]->content eq $function
    });
    return unless $references;
    for my $f (@$references) {
        my $nestlevel = 0;
        while ($f = $f->parent) {
            # XXX this makes skip the declaration of said sub,
            # but also makes it not detect recursive calls
            if ($f->isa('PPI::Statement::Sub') and $f->name ne $function) {
                $cb->($filename, $f, $nestlevel);
                $nestlevel++;
            }
        };
    }
}

sub main {
    my ($funcname, $directory, $cb) = @_;
    $directory ||= '.';
    find({ wanted => sub {
        if (/\.p[lm]$/) {
            find_in_file $funcname, $_;
        }
    }, follow => 1, no_chdir => 1 }, $directory);
}

1;

__END__