lib/Frey/Web.pm

package Frey::Web;
use Moose::Role;
use MooseX::AttributeHelpers;

use Continuity::Widget::DomNode;
use Data::Dump qw/dump/;
use Carp qw/confess/;

has 'javascript' => (
        metaclass => 'Collection::Array',
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub { [] },
        provides => {
                'push' => 'add_javascript',
        },
);

has 'css' => (
        metaclass => 'Collection::Array',
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub { [ 'static/app.css' ] },
        provides => {
                'push' => 'add_css',
        },
);

sub dom2html {
#       warn "## dom2html ",dump( @_ );
        return Continuity::Widget::DomNode->create( @_ )->to_string;
}

sub _unroll_markup {
#       warn "## _unroll_markup ",dump( @_ );
        my ( $markup, $array ) = @_;
        my $out = '';
        foreach my $path ( @$array ) {
                $path =~ s!^/!!;
                confess "can't find $path" unless -e $path;
                $out .= sprintf( $markup, $path );
        }
        return $out;
}

our $reload_counter = 0;

sub page {
        my $self = shift;
        my $a = {@_};

        $reload_counter++;

        my $html = qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|
        . _unroll_markup( qq|<script type="text/javascript" src="/%s"></script>|, $self->javascript )
        . _unroll_markup( qq|<link type="text/css" rel="stylesheet" href="/%s" media="screen">|, $self->css )
        . '<title>' . ( $a->{title} || ref($self) ) . '</title>'
        . ( $a->{head} || '' )
        . '</head><body>'
        . ( $a->{body} || '<!-- no body -->' )
        . qq|<div class="status-line"> <a href="/">Frey</a> $Frey::VERSION <a href="?reload=$reload_counter">reload</a> </div>|
        . '</body></html>'
        ;

        warn "## >>> page ",length($html), " bytes\n" if $self->debug;

        return $html;
}

1;
1	package Frey::Web;
2	use Moose::Role;
3	use MooseX::AttributeHelpers;
4
5	use Continuity::Widget::DomNode;
6	use Data::Dump qw/dump/;
7	use Carp qw/confess/;
8
9	has 'javascript' => (
10	metaclass => 'Collection::Array',
11	is => 'rw',
12	isa => 'ArrayRef[Str]',
13	default => sub { [] },
14	provides => {
15	'push' => 'add_javascript',
16	},
17	);
18
19	has 'css' => (
20	metaclass => 'Collection::Array',
21	is => 'rw',
22	isa => 'ArrayRef[Str]',
23	default => sub { [ 'static/app.css' ] },
24	provides => {
25	'push' => 'add_css',
26	},
27	);
28
29	sub dom2html {
30	# warn "## dom2html ",dump( @_ );
31	return Continuity::Widget::DomNode->create( @_ )->to_string;
32	}
33
34	sub _unroll_markup {
35	# warn "## _unroll_markup ",dump( @_ );
36	my ( $markup, $array ) = @_;
37	my $out = '';
38	foreach my $path ( @$array ) {
39	$path =~ s!^/!!;
40	confess "can't find $path" unless -e $path;
41	$out .= sprintf( $markup, $path );
42	}
43	return $out;
44	}
45
46	our $reload_counter = 0;
47
48	sub page {
49	my $self = shift;
50	my $a = {@_};
51
52	$reload_counter++;
53
54	my $html = qq\|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>\|
55	. _unroll_markup( qq\|<script type="text/javascript" src="/%s"></script>\|, $self->javascript )
56	. _unroll_markup( qq\|<link type="text/css" rel="stylesheet" href="/%s" media="screen">\|, $self->css )
57	. '<title>' . ( $a->{title} \|\| ref($self) ) . '</title>'
58	. ( $a->{head} \|\| '' )
59	. '</head><body>'
60	. ( $a->{body} \|\| '<!-- no body -->' )
61	. qq\|<div class="status-line"> <a href="/">Frey</a> $Frey::VERSION <a href="?reload=$reload_counter">reload</a> </div>\|
62	. '</body></html>'
63	;
64
65	warn "## >>> page ",length($html), " bytes\n" if $self->debug;
66
67	return $html;
68	}
69
70	1;