Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
  • 2 commits
  • 3 files changed
  • 0 comments
  • 1 contributor
72 mojo/Makefile.PL
... ... @@ -1,72 +0,0 @@
1   -#!/usr/bin/env perl
2   -
3   -use 5.010;
4   -
5   -use strict;
6   -use warnings;
7   -
8   -# "Son, when you participate in sporting events,
9   -# it's not whether you win or lose, it's how drunk you get."
10   -use ExtUtils::MakeMaker;
11   -
12   -my ($mm) = $ExtUtils::MakeMaker::VERSION =~ /^([^_]+)/;
13   -
14   -# We only use core modules, so you shouldn't have to install anything besides
15   -# Perl 5.8.7!
16   -WriteMakefile(
17   - NAME => 'Mojolicious Boilerplate',
18   - VERSION => '0.1',
19   - ABSTRACT => 'The Web In A Box!',
20   - AUTHOR => 'Tudor Constantin',
21   -
22   - ($mm < 6.3002 ? () : ('LICENSE' => 'artistic_2')),
23   -
24   - ( $mm < 6.46
25   - ? ()
26   - : (
27   - META_MERGE => {
28   - requires => {perl => '5.008007'},
29   - resources => {
30   - homepage => 'http://github.com/tudorconstantin/Mojolicious-Boilerplate',
31   - license => 'http://dev.perl.org/licenses/',
32   - repository => 'http://github.com/tudorconstantin/Mojolicious-Boilerplate',
33   - bugtracker => 'http://github.com/tudorconstantin/Mojolicious-Boilerplate/issues'
34   - },
35   - no_index => {directory => [qw/t/]}
36   - },
37   - META_ADD => {
38   - build_requires => {},
39   - configure_requires => {},
40   - },
41   - )
42   - ),
43   -
44   - EXE_FILES => ['script/boilerplate'],
45   - PREREQ_PM => {
46   - 'Mojolicious' => '2.57',
47   - 'Mojolicious::Plugin::YamlConfig' => '0.1.3',
48   - 'YAML' => 0,
49   - 'YAML::XS' => 0,
50   - 'File::Find' => 0,
51   - 'Test::BDD::Cucumber' => 0,
52   - 'FindBin::libs' => 0,
53   - },
54   - test => {TESTS => 't/*.t t/*/*.t'}
55   -);
56   -
57   -# Using Perl 5.8.x is a bad idea though
58   -warn <<'EOF' unless $] >= 5.010;
59   -
60   -*******************************************************************************
61   -You are using Perl 5.8, a version that has reached the end of its life a few
62   -years ago and which is no longer getting updated by the community.
63   -It contains very serious flaws, especially around the regular expression
64   -engine, that will never get fixed and are likely to put your applications at
65   -risk.
66   -While your operating system vendor might keep it compiling on their platform,
67   -they will not fix these issues.
68   -
69   -Therefore we highly recommend that you upgrade as soon as possible!
70   -*******************************************************************************
71   -
72   -EOF
25 mojo/templates/entdet.html.ep
... ... @@ -0,0 +1,25 @@
  1 +% title 'Entity Detail';
  2 +% my $rs;
  3 +% if (param('src')) {
  4 +% $rs = $self->app->schema->resultset('EntDetVw')->search(
  5 +% { 'tgt_ent_nm' => param('tgt'),
  6 +% 'src_ent_nm' => param('src') },{
  7 +% distinct => 1});
  8 +<%= include 'tabout', partial => 1,
  9 + title => param('tgt') . '<-' . param('src'),
  10 + rs=> $rs, chk_blanks => 0 ,
  11 + url => {tgt_ent_nm => '/entlist?tgt=tgt_ent_nm',
  12 + src_ent_nm => '/entlist?tgt=tgt_ent_nm&src=src_ent_nm'}
  13 +%>
  14 +% } else {
  15 +% $rs = $self->app->schema->resultset('EntDetVw')->search(
  16 +% { 'tgt_ent_nm' => param('tgt') },{
  17 +% columns => [qw(tgt_itm_nm bus_rule
  18 +% src_itm_nm src_ent_nm )], distinct => 1});
  19 +<%= include 'tabout', partial => 1,
  20 + title => param('tgt'), rs=> $rs, chk_blanks => 2 ,
  21 + url => {tgt_ent_nm => '/entlist?tgt=tgt_ent_nm',
  22 + src_ent_nm => '/entlist?tgt=tgt_ent_nm&src=src_ent_nm'}
  23 +%>
  24 +% }
  25 +<br>
22 mojo/templates/itmdet.html.ep
... ... @@ -0,0 +1,22 @@
  1 +% title 'Item Detail';
  2 +% my $rs;
  3 +% if (param('src')) {
  4 +% $rs = $self->app->schema->resultset('EntDetVw')->search(
  5 +% { 'tgt_itm_nm' => param('tgt'),
  6 +% 'src_itm_nm' => param('src') },{
  7 +% columns => [qw(tgt_ent_nm tgt_itm_nm bus_rule
  8 +% src_itm_nm src_ent_nm )],
  9 +% distinct => 1});
  10 +% } else {
  11 +% $rs = $self->app->schema->resultset('EntDetVw')->search(
  12 +% { 'tgt_itm_nm' => param('tgt') },{
  13 +% columns => [qw(tgt_ent_nm tgt_itm_nm bus_rule
  14 +% src_itm_nm src_ent_nm )],
  15 +% distinct => 1});
  16 +% }
  17 +<%= include 'tabout', partial => 1,
  18 + title => 'Entity', rs=> $rs, chk_blanks => 0 ,
  19 + url => {tgt_ent_nm => '/entlist?tgt=tgt_ent_nm',
  20 + src_ent_nm => '/entlist?tgt=tgt_ent_nm&src=src_ent_nm'}
  21 +%>
  22 +<br>

No commit comments for this range

Something went wrong with that request. Please try again.