package MyApp::Controller::Play;
use strict;
use warnings;
use parent 'Catalyst::Controller';
use YAML ();

use CGI ":standard";

my $th_style = {
    -style => "font-family:sans-serif; font-size:13px; text-align:right; border:1px solid black; padding: 1px 3px; margin:1px;background-color:#fef;"
    };

my $td_style = {
    -style => "font-family:sans-serif; font-size:12px;border:1px solid black; padding: 1px 3px; margin:1px; background-color:#efe"
    };

my $td_style2 = {
    -style => "font-family:sans-serif; font-size:12px;border:1px solid black; padding: 1px 3px; margin:1px; background-color:#eff"
    };

sub schema : Local {
    my ( $self, $c ) = @_;
    my $schema = $c->model("DB")->schema;
    my @sources = start_html("DB schema");

    for my $src ( sort { "$a" cmp "$b" } $schema->sources )
    {
        push @sources, h2($src);
        push @sources, '<table style="width:90%; border:2px solid gray; background-color:#ddd">';
        for my $col ( $schema->source($src)->columns )
        {
            push @sources, "<tr>";
            push @sources, th($th_style, $col);
            my $col_info = $schema->source($src)->column_info($col);
            for my $key ( reverse sort keys %{ $col_info } )
            {
                push @sources, $key ? td($td_style, $key) : td(" ");
                my $info = ref $col_info->{$key} ?
                    YAML::Dump($col_info->{$key}) : $col_info->{$key};
                push @sources, $info ?
                    td($td_style2, $info) : td(" ");
            }
            push @sources, "</tr>";
        }
        push @sources, "</table>";
    }
    $c->response->body( join("\n",@sources) );
}

sub walk_object : Local Args(2) {
    my ( $self, $c, $type, $id ) = @_;
    my $object = $c->model("DB::$type")->find($id)
        or die "No can do, no $type with id '$id'";
    $c->stash( object => $object );
}

1;

##</code><code>##

package MyApp::View::Alloy;
use strict;
no warnings "uninitialized";
use parent "Catalyst::View::TT::Alloy";
use Scalar::Util "blessed";

__PACKAGE__->config( RECURSION => 1 );

Template::Alloy->define_vmethod
    (
     "SCALAR",
     blessed => sub {
         blessed(+shift);
     }
     );

##</code><code>##

[% INCLUDE show_object
   title = object.blessed()
   obj = object %]

[% BLOCK show_object %]
<div style="clear: both; float:left; padding: 1ex; width: 100%">
  <h3 style="margin:0; padding:0;">[% title %]</h3>
    [% FOR col IN obj.columns %]
    <b style="width: 25%; text-align: right; display:block; float:left; margin-right: 1ex">
    [% col %]
    </b>
  <div style="width: 70%; float: left;">
      [% IF obj.$col.blessed %]
        [% INCLUDE show_object
           title = obj.$col.blessed()
           obj = obj.$col %]
      [% ELSE %]
    [% obj.$col || "<i>na</i>" %]
      [% END %]
  </div>
    [% END %]
</div>
[% END %]