Код: Выделить всё
print %{ &Bla::blas('to-to') }->{bl}
Код: Выделить всё
CODE(0x84db624)
Код: Выделить всё
sub { "DUMMY" }
...ради интереса, интересно...
Код: Выделить всё
print %{ &Bla::blas('to-to') }->{bl}
Код: Выделить всё
CODE(0x84db624)
Код: Выделить всё
sub { "DUMMY" }
Код: Выделить всё
perl -e '$a = sub { print "ololo\n" }; print "$a\n"; $a->();'
Код: Выделить всё
%{ &Bla::blas('to-to') }->{bl}->()