[hack] ¢ؿβλ
Perl 4 εǽַ֡פȤäơ ܥơ֥̾ȴؿбޤ
㤨Сϥեʬ˲ɽɲä뤿ʤɤˡ ϥեɽؿꤹˤϡ ץ饰ǡΤ褦ʥɤޤ
package wifky::myplugin; (*::print_form , *wifky::myplugin::org_print_form ) = (*wifky::myplugin::my_print_form , *::print_form ) ; sub my_print_form{ my @argv=@_; # ɲäν # # ꥸʥϥեʬɽ &wifky::myplugin::org_print_form(@argv); }
뤳Ȥˤꡢ桼δؿ(&wifky::myplugin::my_print_form) ꥸʥϥեؿ(&::print_form)Ⱥؤ뤳ȤǤޤ ΰǡεؿΤϡ &wifky::myplugin::org_print_form Ȥ̾ǥХååפƤޤ ˤꡢؿɬǾ¤ʽ¹Ԥ ϡؿǤȤȤǽˤʤäƤޤ
ʤߤˡ֤ϡؿ̾ǤʤƱ̾ѿ̾ 碌ƺäƤޤޤΤǡĤƤ (äȤ⡢ХѿƱ̾δؿϤޤʤȻפޤ)
|