Parent Directory | Revision Log
added Frey::Collection role to database models
1 | dpavlin | 100 | package Frey::Web; |
2 | use Moose::Role; | ||
3 | |||
4 | use Continuity::Widget::DomNode; | ||
5 | use Data::Dump qw/dump/; | ||
6 | |||
7 | sub dom2html { | ||
8 | dpavlin | 106 | # warn "## dom2html ",dump( @_ ); |
9 | dpavlin | 100 | return Continuity::Widget::DomNode->create( @_ )->to_string; |
10 | } | ||
11 | |||
12 | our @javascript = ( qw' | ||
13 | ../lib/Joose.js | ||
14 | '); | ||
15 | |||
16 | sub head_javascript { | ||
17 | my $self = shift; | ||
18 | |||
19 | my $js = Continuity::Widget::DomNode->create( | ||
20 | map { | ||
21 | ( script => { type => 'text/javascript', src => $_ } ) | ||
22 | } @javascript | ||
23 | )->to_string; | ||
24 | |||
25 | warn "# >>> js\n$js\n" if $self->debug; | ||
26 | |||
27 | return $js; | ||
28 | } | ||
29 | |||
30 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |