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	package Frey::Web;
2	use Moose::Role;
3
4	use Continuity::Widget::DomNode;
5	use Data::Dump qw/dump/;
6
7	sub dom2html {
8	# warn "## dom2html ",dump( @_ );
9	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;