/[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 100 - (show 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 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