以下のようにすればできることを知った。
use strict; use warnings; package HogeHoge; sub fugafuga { print "fugafuga\n"; } package main; my $cb; $cb = sub { my $self = shift; print "hogehoge\n"; $self->fugafuga(); }; HogeHoge->$cb;
以下のようにすればできることを知った。
use strict; use warnings; package HogeHoge; sub fugafuga { print "fugafuga\n"; } package main; my $cb; $cb = sub { my $self = shift; print "hogehoge\n"; $self->fugafuga(); }; HogeHoge->$cb;