lib/Frey/Web.pm

package Frey::Web;
use Moose::Role;

use Continuity::Widget::DomNode;
use Data::Dump qw/dump/;

sub dom2html {
#       warn "## dom2html ",dump( @_ );
        return Continuity::Widget::DomNode->create( @_ )->to_string;
}

our @javascript = ( qw'
../lib/Joose.js
');

sub head_javascript {
        my $self = shift;

        my $js = Continuity::Widget::DomNode->create(
                map {
                        ( script => { type => 'text/javascript', src => $_ } )
                } @javascript
        )->to_string;

        warn "# >>> js\n$js\n" if $self->debug;

        return $js;
}

1;
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;