package SGN::View::Mason::Commands; use strict; use vars qw($m $c); HTML::Mason::Component::FileBased->new( 'code' => sub { use utf8; local $SGN::View::Mason::Commands::m = $HTML::Mason::Commands::m; HTML::Mason::Exception::Params->throw ( error => "Odd number of parameters passed to component expecting name/value pairs" ) if @_ % 2; my ( $extra_headers ); { my %pos; for ( my $x = 0; $x < @_; $x += 2 ) { $pos{ $_[$x] } = $x + 1; } #line 2 "/home/production/cxgn/sgn/mason/site/header.mas" $extra_headers = exists $pos{'extra_headers'} ? $_[ $pos{'extra_headers'} ] : ''; } $m->debug_hook( $m->current_comp->path ) if ( HTML::Mason::Compiler::IN_PERL_DB() ); #line 4 "/home/production/cxgn/sgn/mason/site/header.mas" $m->print( ' ' ); #line 9 "/home/production/cxgn/sgn/mason/site/header.mas" $m->comp( 'header/head.mas' ); #line 9 "/home/production/cxgn/sgn/mason/site/header.mas" $m->print( ' ' ); #line 10 "/home/production/cxgn/sgn/mason/site/header.mas" $m->print( $extra_headers ); #line 10 "/home/production/cxgn/sgn/mason/site/header.mas" $m->print( ' ' ); #line 15 "/home/production/cxgn/sgn/mason/site/header.mas" $m->comp( 'header/body.mas' ); #line 15 "/home/production/cxgn/sgn/mason/site/header.mas" $m->print( '
' ); #line 26 "/home/production/cxgn/sgn/mason/site/header.mas" $m->comp( '/cookie_popup.mas' ); #line 26 "/home/production/cxgn/sgn/mason/site/header.mas" $m->print( ' ' ); ;return; }, 'declared_args' => { '$extra_headers' => { default => ' \'\'' } }, 'load_time' => 1763079527, ) ;