File Coverage

blib/lib/Mojolicious/Plugin/RoutesAuthDBI/Schema.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	5	8	62.5
condition	3	6	50.0
subroutine	5	6	83.3
pod	0	3	0.0
total	40	53	75.4

package Mojolicious::Plugin::RoutesAuthDBI::Schema;
use Mojo::Base 'Mojolicious::Controller';
use DBIx::Mojo::Template;

our $defaults = {# copy to pod!
  schema => "public",
  sequence => '"public"."id"',
  tables => { # no quotes! one schema!
    routes => 'routes',
    refs=>'refs',
    logins => 'logins',
    profiles => 'profiles',
    roles =>'roles',
    actions => 'actions',
    controllers => 'controllers',
    namespaces => 'namespaces',
    oauth_sites => 'oauth.sites',
    oauth_users => 'oauth.users',
    guests => 'guests',
    logs=>'logs',
  },

};
my $dict = DBIx::Mojo::Template->new(__PACKAGE__, vars=>$defaults, mt=>{tag_start=>'{%', tag_end=>'%}'});

=pod

=encoding utf8

=head1 Mojolicious::Plugin::RoutesAuthDBI::Schema

¡ ¡ ¡ ALL GLORY TO GLORIA ! ! !

=head1 NAME

Mojolicious::Plugin::RoutesAuthDBI::Schema - DB schema (PostgreSQL).

=head1 DB DESIGN DIAGRAM

See L

=head1 DB design

=head2 Default variables for SQL templates

  {
  schema => "public",
  sequence => '"public"."id"',
  tables => { # no quotes! one schema!
    routes => 'routes',
    refs=>'refs',
    logins => 'logins',
    profiles => 'profiles',
    roles =>'roles',
    actions => 'actions',
    controllers => 'controllers',
    namespaces => 'namespaces',
    oauth_sites => 'oauth.sites',
    oauth_users => 'oauth.users',
    guests => 'guests',
    logs=>'logs',
    },
  }


=cut


sub _vars {
  my $c = shift;
  my $vars = {};

  for my $var (keys %$defaults) {

    if (ref $defaults->{$var} eq 'HASH') {

      for (keys %{$defaults->{$var}}) {
        my $val = $c->stash($_) || $c->param($_) || $defaults->{$var}{$_};
        $vars->{$var}{$_} = $val
          unless $val =~ m'undef|none';
      }
    } else {
      my $val = $c->stash($var) || $c->param($var) || $defaults->{$var};
      $vars->{$var} = $val
        unless $val =~ m'undef|none';
    }

  }
  $vars;
}

sub schema {
  my $c = shift;
  my $vars = $c->_vars;

  $c->app->log->debug($c->dumper($vars));

  my $text = $dict->{'schema'}->render(%$vars);
  $text .= "\n\n".$dict->{'sequence'}->render(%$vars)
    if $vars->{sequence};
  $text .= "\n\n".$dict->{$_}->render(%$vars)
    for grep $vars->{tables}{$_}, qw(routes namespaces controllers actions profiles logins roles refs oauth_sites oauth_users guests logs);

  $c->render(format=>'txt', text => $text);

}

sub schema_drop {
  my $c = shift;
  my $vars = $c->_vars;
  #~ $schema = qq{"$schema".} if $schema;
  $c->render(format=>'txt', text => $dict->{'drop'}->render(%$vars));

}

sub schema_flush {
  my $c = shift;
  my $vars = $c->_vars;
  $c->render(format=>'txt', text => $dict->{'flush'}->render(%$vars));
}

1;

__DATA__