File Coverage

blib/lib/Devel/DidYouMean.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

use 5.008;
use strict;
use warnings;
package Devel::DidYouMean;
$Devel::DidYouMean::VERSION = '0.05';
use Text::Levenshtein;
use Perl::Builtins;

# ABSTRACT: Intercepts failed function and method calls, suggesting the nearest matching alternative.


our $DYM_MATCHING_SUBS = [];

$SIG{__DIE__} = sub {

    no strict qw/refs/;
    my ($error, $package, $sub_name, $new_error) = @_;

    my $undef_sub = qr/^Undefined subroutine &(.+?) called (at .+?\.)/;
    my $missing_method = qr/^Can't locate object method "(.+?)" via package "(.+?)" (at .+?\.)/;

    if ($error =~ /$undef_sub/)
    {
        my @sub_path = split /::/, $1;
        $sub_name = pop @sub_path;
        $package = join '::', @sub_path;
        $new_error = $2;
    }
    elsif ($error =~ /$missing_method/)
    {
        $sub_name = $1;
        $package = $2;
        $new_error = $3;
    }
    else
    {
        print "No match\n";
        return undef;
    }

    my $package_namespace = $package . '::';
    my %valid_subs = ();

    for (keys %$package_namespace)
    {
        my $absolute_name = $package_namespace . $_;
        if (defined &{$absolute_name})
        {
            $valid_subs{$_} = Text::Levenshtein::fastdistance($sub_name, $_);
        }
    }

    # if package is main, add in builtin functions
    if ($package eq 'main')
    {
        for (Perl::Builtins::list)
        {
            $valid_subs{$_} = Text::Levenshtein::fastdistance($sub_name, $_);
        }
    }

    $DYM_MATCHING_SUBS = [];
    my $match_score;

    # return similarly named functions
    for (sort { $valid_subs{$a} <=> $valid_subs{$b} } keys %valid_subs)
    {
        $match_score = $valid_subs{$_} unless $match_score;

        if ($match_score < $valid_subs{$_})
        {
            die $error . "Did you mean " . join(', ', @$DYM_MATCHING_SUBS) . "?\n";
        }
        push @$DYM_MATCHING_SUBS, $_;
    }
};

1;

__END__