use strict;
use parent qw/CGI/;
+my $isTextOutput = 0;
sub textOutput {{
no warnings 'redefine';
no warnings 'once';
#return unless $Opt{html};
+ $isTextOutput = 1;
*CGI::_tag_func = sub {
my $tagname = shift;
my ($q,$a,@rest) = CGI::self_or_default(@_);
};
}}
+
+sub start_html {
+ local $_ = &CGI::start_html(@_);
+ s/<!DOCTYPE .*?>/<!DOCTYPE html>/s;
+ return $_;
+}
+
+sub _tag_func {
+ shift if ref($_[0]) eq __PACKAGE__; # for case: $cgi->_tag_func
+ return &CGI::_tag_func(@_);
+}
+
+sub tag {
+ return &_tag_func(@_);
+}
+
+sub text {
+ return $isTextOutput;
+}
1;
projects / nb.git / commitdiff