Re: How to get code of the calling function or object

[Khen1950fx]

Using Sub::Information:

#!perl

use Modern::Perl;
use Data::Dump::Streamer;
use Sub::Information as => 'peek';

my $info = peek(\&fred);
say "Name: ",        $info->name;
say "Package: ",     $info->package;
say "Filename: ",    $info->file;
say "Address: ",     $info->address;       
say "Starts at line: ", $info->line;      
say "Variables: ",   Dump($info->variables);
say $info->code;
say $info->dump;

sub fred {
    my(@x) = @_;
    foreach (@x) {
        s/a/A/g if /a/;
   }
};