@@ -1,19 +1,82 @@
package ChatterBox;
use base 'Squatting';
+use Data::Dump 'pp';
+
+our %state;
+sub service {
+ my ($app, $c, @args) = @_;
+ my $cr = $c->cr;
+
+ # setup session and vars
+ my $sid = $cr->{session_id};
+ if (defined $sid) {
+ $c->state = $state{$sid} ||= {};
+ }
+ if ($c->state->{u}) {
+ $c->v->{u} = $c->state->{u};
+ }
+
+ $app->SUPER::service($c, @args);
+}
+
+package Object;
+use strict;
+use selfvars;
+
+our $AUTOLOAD;
+
+sub new {
+ bless { %opts } => $_[0];
+}
+
+sub clone {
+ bless { %$self, %opts } => ref($self);
+}
+
+sub AUTOLOAD {
+ my $attr = $AUTOLOAD;
+ $attr =~ s/.*://;
+ if (ref($self->{$attr}) eq 'CODE') {
+ $self->{$attr}->($self, @args)
+ } else {
+ if (@args) {
+ $self->{$attr} = $args[0];
+ } else {
+ $self->{$attr};
+ }
+ }
+}
+
+sub DESTROY {
+}
package ChatterBox::Controllers;
use selfvars;
use base 'Squatting::Q';
use Squatting ':controllers';
+our @messages;
+
our @C = (
C(
Home => [ '/' ],
get => sub {
+ my $v = $self->v;
$self->render('chatter_box');
},
),
C(
+ Id => [ '/id' ],
+ post => sub {
+ my $input = $self->input;
+ if ($input->{name}) {
+ my $user = Object->new({name => $input->{name}});
+ $self->state->{u} = $user;
+ }
+ $self->redirect(R('Home'));
+ }
+ ),
+ C(
Widget => [ '/@widget' ],
get => sub {
},
@@ -23,6 +86,8 @@ our @C = (
get => sub : Q(chatter_box) {
},
post => sub {
+ my $input = $self->input;
+ $self->redirect(R('Home'));
},
)
);
@@ -45,11 +110,97 @@ sub span {
our @V = (
V(
'html',
+ layout => sub {
+ my ($v, @content) = @args;
+ html(
+ head(
+ title('ChatterBox'),
+ style(x("body { background: #456; color: #fff; }")),
+ style(x($self->{_css})),
+ ),
+ body( @content )
+ )->as_HTML;
+ },
_css => qq|
+ div#chatter_box {
+ padding: 8px;
+ min-height: 240px;
+ max-width: 320px;
+ background: #122;
+ color: #cfc;
+ font-family: "Trebuchet MS", sans-serif;
+ font-size: 9pt;
+ border: 1px solid #466;
+ -moz-border-radius: 7px;
+ }
+ div#chatter_box dl {
+ margin: 0;
+ padding: 4px;
+ height: 200px;
+ background: #000;
+ color: #fe8;
+ border: 1px solid #888;
+ overflow-x: hidden;
+ overflow-y: auto;
+ }
+ div#chatter_box dt {
+ font-weight: bold;
+ }
+ div#chatter_box dd {
+ margin-top: -1.25em;
+ margin-left: 5em;
+ }
+ div#chatter_box div.input {
+ margin-top: 0.5em;
+ }
+ div#chatter_box div.input input {
+ font-family: "Trebuchet MS", sans-serif;
+ font-size: 9pt;
+ }
+ div#chatter_box div.input input.text {
+ width: 260px;
+ }
|,
- widget => sub {
+ _widget => sub {
+ my ($v) = @args;
+ form({ id=> 'chatter_box_form', method => 'post', action => R('Event') },
+ div({ id => 'chatter_box' },
+ dl(
+ map {
+ dt('beppu'),
+ dd("what's up? "),
+ dt('pip'),
+ dd('the sky. ' x 10),
+ } (1..20)
+ ),
+ ($v->{u}
+ ?
+ (
+ div({ class => 'input' },
+ input({ type => 'text', name => 'message', class => 'text' }),
+ input({ type => 'submit', name => 'submit', value => 'Say' }),
+ ),
+ )
+ : ()
+ )
+ ),
+ )
+ },
+ _id => sub {
+ my ($v) = @args;
+ unless ($v->{u}) {
+ form({ method => 'post', action => R('Id') },
+ h1("What's your name?"),
+ input({ type => 'text', name => 'name' }),
+ input({ type => 'submit', name => 'submit', value => 'Submit' }),
+ );
+ } else {
+ ()
+ }
},
chatter_box => sub {
+ $self->_id(@args),
+ $self->_widget(@args);
},
)
);
eg/ChatterBox.pm
@@ -106,6 +106,10 @@ The constructor takes a name and a hash of attributes and coderefs.
This returns the name of the view.
+=head3 $v->headers
+
+This returns a hashref of the outgoing HTTP headers.
+
=head2 Template Methods
=head3 $v->$template($v)
lib/Squatting/View.pm
@@ -43,7 +43,7 @@ our @tests = (
sub {
my $v = v;
- can_ok($v, qw(name _render));
+ can_ok($v, qw(name headers _render));
},
sub {
t/02_view.t
2bdd72c0844c820e171ecf37b29f1b737eaf9b71
John Beppu
beppu@work.(none)
http://github.com/beppu/squatting/commit/2c18f62700dbdae4d24bfc88a5dd6229ba50d8de
2c18f62700dbdae4d24bfc88a5dd6229ba50d8de
2008-06-09T02:32:28-07:00
2008-06-09T02:32:28-07:00
add
2a940343b156bf001b43ce2e933fbb41ba360a07
John Beppu
beppu@work.(none)