/[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 100 - (hide annotations)
Fri Jul 11 19:19:42 2008 UTC (14 years, 6 months ago) by dpavlin
File size: 502 byte(s)
another refactoring

- cleanup cruft code
- create Frey::ClassLoader to deal with package/class stuff
- Frey::Web role with dom2html to based on Continuity::Widget::DomNode
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     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