コールバックを、あるクラスのメソッドとして実行する

以下のようにすればできることを知った。

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;