That's what happens, and that's what's supposed to happen (every time you construct a new CGI::Application object, sub new calls setup).
Try this from the commandline (or just run perldoc on it)
TRACE: CGI::Application::new( 'CGI::Application::Loop' )
TRACE: +-CGI::Application::header_type( bless( {}, 'CGI::Application::
+Loop' ), 'header' )
TRACE: +-CGI::Application::mode_param( bless( {
: | | __HEADER_TYPE => 'header'
: | | }, 'CGI::Application::Loop' ), 'rm' )
TRACE: +-CGI::Application::start_mode( bless( {
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ), 'start' )
TRACE: +-CGI::Application::_cap_hash( bless( {
: | | __START_MODE => 'start',
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ), {} )
TRACE: +-CGI::Application::cgiapp_init( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::setup( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::start_mode( bless( {
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __HEADER_TYPE => 'header',
: | ! | __MODE_PARAM => 'rm'
: | ! | }, 'CGI::Application::Loop' ), 'start' )
TRACE: | +-CGI::Application::run_modes( bless( {
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __HEADER_TYPE => 'header',
: | ! | __MODE_PARAM => 'rm'
: | ! | }, 'CGI::Application::Loop' ), 'start', 'dump_html' )
TRACE: CONSTRUCTED**(
TRACE: CGI::Application::run( bless( {
: | __START_MODE => 'start',
: | __PRERUN_MODE_LOCKED => 1,
: | __RUN_MODES => {
: | start => 'dump_html'
: | },
: | __HEADER_TYPE => 'header',
: | __MODE_PARAM => 'rm'
: | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::query( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::cgiapp_get_query( bless( {
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_TYPE => 'header',
: | ! | __MODE_PARAM => 'rm'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::mode_param( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::start_mode( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::cgiapp_prerun( bless( {
: | | __START_MODE => 'start',
: | | __QUERY_OBJ => bless( {
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ), 'start' )
TRACE: +-CGI::Application::prerun_mode( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::run_modes( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::dump_html( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::get_current_runmode( bless( {
: | ! | __PRERUN_MODE => '',
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __QUERY_OBJ => bless( {
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_TYPE => 'header',
: | ! | __CURRENT_RUNMODE => 'start',
: | ! | __MODE_PARAM => 'rm'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::query( bless( {
: | ! | __PRERUN_MODE => '',
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __QUERY_OBJ => bless( {
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_TYPE => 'header',
: | ! | __CURRENT_RUNMODE => 'start',
: | ! | __MODE_PARAM => 'rm'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::cgiapp_postrun( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ), \'<P>
: | | Current Run-mode: \'<B>start</B>\'<BR>
: | | <P>
: | | Query Parameters:<BR>
: | | <OL>
: | | </OL>
: | | <P>
: | | Query Environment:<BR>
: | | <OL>
: | | <LI> HOMEDRIVE => \'<B>C:</B>\'
: | | <LI> HOMEPATH => \'<B>\\</B>\'
: | | <LI> TEMP => \'<B>C:\\DOCUME~1\\_\\LOCALS~1\\Temp</B>\'
: | | <LI> TMP => \'<B>C:\\DOCUME~1\\_\\LOCALS~1\\Temp</B>\'
: | | </OL>
: | | ' )
TRACE: +-CGI::Application::_send_headers( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::query( bless( {
: | ! | __PRERUN_MODE => '',
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __QUERY_OBJ => bless( {
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_TYPE => 'header',
: | ! | __CURRENT_RUNMODE => 'start',
: | ! | __MODE_PARAM => 'rm'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::header_type( bless( {
: | ! | __PRERUN_MODE => '',
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __QUERY_OBJ => bless( {
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_TYPE => 'header',
: | ! | __CURRENT_RUNMODE => 'start',
: | ! | __MODE_PARAM => 'rm'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::header_props( bless( {
: | ! | __PRERUN_MODE => '',
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __QUERY_OBJ => bless( {
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_TYPE => 'header',
: | ! | __CURRENT_RUNMODE => 'start',
: | ! | __MODE_PARAM => 'rm'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::teardown( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: RUNNED**(
TRACE: CGI::Application::run( bless( {
: | __PRERUN_MODE => '',
: | __START_MODE => 'start',
: | __PRERUN_MODE_LOCKED => 1,
: | __QUERY_OBJ => bless( {
: | '.header_printed' => '1',
: | '.charset' => 'ISO-8859-1',
: | '.parameters' => [],
: | '.fieldnames' => {},
: | escape => 1
: | }, 'CGI' ),
: | __RUN_MODES => {
: | start => 'dump_html'
: | },
: | __HEADER_PROPS => {},
: | __HEADER_TYPE => 'header',
: | __CURRENT_RUNMODE => 'start',
: | __MODE_PARAM => 'rm'
: | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::query( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::mode_param( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::start_mode( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::cgiapp_prerun( bless( {
: | | __PRERUN_MODE => '',
: | | __START_MODE => 'start',
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __CURRENT_RUNMODE => 'start',
: | | __MODE_PARAM => 'rm'
: | | }, 'CGI::Application::Loop' ), 'start' )
TRACE: +-CGI::Application::prerun_mode( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm',
: | | __PRERUN_MODE => '',
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __CURRENT_RUNMODE => 'start'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::run_modes( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm',
: | | __PRERUN_MODE => '',
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __CURRENT_RUNMODE => 'start'
: | | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::dump_html( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm',
: | | __PRERUN_MODE => '',
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __CURRENT_RUNMODE => 'start'
: | | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::get_current_runmode( bless( {
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_PROPS => {},
: | ! | __HEADER_TYPE => 'header',
: | ! | __MODE_PARAM => 'rm',
: | ! | __PRERUN_MODE => '',
: | ! | __QUERY_OBJ => bless( {
: | ! | '.header_printed' => '1',
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __CURRENT_RUNMODE => 'start'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::query( bless( {
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_PROPS => {},
: | ! | __HEADER_TYPE => 'header',
: | ! | __MODE_PARAM => 'rm',
: | ! | __PRERUN_MODE => '',
: | ! | __QUERY_OBJ => bless( {
: | ! | '.header_printed' => '1',
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __CURRENT_RUNMODE => 'start'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::cgiapp_postrun( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm',
: | | __PRERUN_MODE => '',
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __CURRENT_RUNMODE => 'start'
: | | }, 'CGI::Application::Loop' ), \'<P>
: | | Current Run-mode: \'<B>start</B>\'<BR>
: | | <P>
: | | Query Parameters:<BR>
: | | <OL>
: | | </OL>
: | | <P>
: | | Query Environment:<BR>
: | | <OL>
: | | <LI> HOMEDRIVE => \'<B>C:</B>\'
: | | <LI> HOMEPATH => \'<B>\\</B>\'
: | | <LI> TEMP => \'<B>C:\\DOCUME~1\\_\\LOCALS~1\\Temp</B>\'
: | | <LI> TMP => \'<B>C:\\DOCUME~1\\_\\LOCALS~1\\Temp</B>\'
: | | <OL>
: | | ' )
TRACE: +-CGI::Application::_send_headers( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm',
: | | __PRERUN_MODE => '',
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '1',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __CURRENT_RUNMODE => 'start'
: | | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::query( bless( {
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_PROPS => {},
: | ! | __HEADER_TYPE => 'header',
: | ! | __MODE_PARAM => 'rm',
: | ! | __PRERUN_MODE => '',
: | ! | __QUERY_OBJ => bless( {
: | ! | '.header_printed' => '1',
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __CURRENT_RUNMODE => 'start'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::header_type( bless( {
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_PROPS => {},
: | ! | __HEADER_TYPE => 'header',
: | ! | __MODE_PARAM => 'rm',
: | ! | __PRERUN_MODE => '',
: | ! | __QUERY_OBJ => bless( {
: | ! | '.header_printed' => '1',
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __CURRENT_RUNMODE => 'start'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: | +-CGI::Application::header_props( bless( {
: | ! | __START_MODE => 'start',
: | ! | __PRERUN_MODE_LOCKED => 1,
: | ! | __RUN_MODES => {
: | ! | start => 'dump_html'
: | ! | },
: | ! | __HEADER_PROPS => {},
: | ! | __HEADER_TYPE => 'header',
: | ! | __MODE_PARAM => 'rm',
: | ! | __PRERUN_MODE => '',
: | ! | __QUERY_OBJ => bless( {
: | ! | '.header_printed' => '1',
: | ! | '.charset' => 'ISO-8859-1',
: | ! | '.parameters' => [],
: | ! | '.fieldnames' => {},
: | ! | escape => 1
: | ! | }, 'CGI' ),
: | ! | __CURRENT_RUNMODE => 'start'
: | ! | }, 'CGI::Application::Loop' ) )
TRACE: +-CGI::Application::teardown( bless( {
: | | __START_MODE => 'start',
: | | __PRERUN_MODE_LOCKED => 1,
: | | __RUN_MODES => {
: | | start => 'dump_html'
: | | },
: | | __HEADER_PROPS => {},
: | | __HEADER_TYPE => 'header',
: | | __MODE_PARAM => 'rm',
: | | __PRERUN_MODE => '',
: | | __QUERY_OBJ => bless( {
: | | '.header_printed' => '2',
: | | '.charset' => 'ISO-8859-1',
: | | '.parameters' => [],
: | | '.fieldnames' => {},
: | | escape => 1
: | | }, 'CGI' ),
: | | __CURRENT_RUNMODE => 'start'
: | | }, 'CGI::Application::Loop' ) )