/[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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 106 - (hide 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 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