show-method (Ruby: pry) on Perl

show-method.pl

#!/usr/bin/env perl
# Usage: $ show-method.pl Module::Name::method
use strict;
use warnings;
use Sub::Inspector;
use Class::Load qw(load_class);

my ($module, $method) = shift =~ /^(.+)::(.+)$/
    or die "Usage:\n\tshow-method.pl Module::Name::method\n";

load_class($module);

my $code = $module->can($method)
    or die qq|"$module" don't has method "$method"|;

my $ins = Sub::Inspector->new($code);
my $file =  $ins->file;
my $line =  $ins->line;

exec("vim +$line $file") if $file && $line;