2014年9月14日日曜日

コードリファレンスから名前取得


このエントリーをはてなブックマークに追加
#!/usr/bin/env perl
use strict;
use warnings;
use B;


sub print_hoge {
    print "hoge\n";
};

my $coderef = \&print_hoge;

warn B::svref_2object($coderef)->GV->NAME; #print_hoge

0 件のコメント:

コメントを投稿