/[Frey]/trunk/lib/Frey/Web.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/lib/Frey/Web.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 106 - (show annotations)
Sun Jul 13 12:22:14 2008 UTC (14 years, 6 months ago) by dpavlin
File size: 503 byte(s)
added Frey::Collection role to database models
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;

  ViewVC Help
Powered by ViewVC 1.1.26