Help for this page

Select Code to Download

Select or download this

use CGI::Carp qw[ confess ];
my $old_font = \&CGI::font;
*CGI::font = sub { confess "font here!"; $old_font(@_) };