91 |
body => [ |
body => [ |
92 |
h1 => [ 'Strix::User' ], |
h1 => [ 'Strix::User' ], |
93 |
$layout eq 'table' ? |
$layout eq 'table' ? |
94 |
|
# gen_link doesn't work since Widngets have it's own scope of layout |
95 |
|
# gen_link( 'div layout', sub { $layout = 'div' } ) : |
96 |
|
# gen_link( 'table layout', sub { $layout = 'table' } ), |
97 |
qq|<a href="?layout=div">div layout</a>| : |
qq|<a href="?layout=div">div layout</a>| : |
98 |
qq|<a href="?layout=table">table layout</a>|, |
qq|<a href="?layout=table">table layout</a>|, |
99 |
form => { method=>'post' } => [ |
form => { method=>'post' } => [ |
101 |
], |
], |
102 |
], |
], |
103 |
] |
] |
104 |
); |
)->to_string; |
105 |
|
|
106 |
$req->print( $doc->to_string ); |
warn ">>> $layout ",length( $doc ),"\n"; |
107 |
|
|
108 |
|
$req->print( $doc ); |
109 |
$req->next; |
$req->next; |
110 |
|
|
111 |
$f = { $req->params }; |
$f = { $req->params }; |
112 |
|
|
113 |
|
process_links( $req ); |
114 |
} |
} |
115 |
|
|
116 |
warn "NO WAY OUT!"; |
warn "NO WAY OUT!"; |