Developer dashboard test

.gitignore

@@ -1,35 +1,11 @@
-!Build/
-.last_cover_stats
-/META.yml
-/META.json
-/MYMETA.*
-*.o
-*.pm.tdy
-*.bs
-
-# Devel::Cover
-cover_db/
-
-# Devel::NYTProf
-nytprof.out
-
-# Dizt::Zilla
-/.build/
-
-# Module::Build
-_build/
-Build
-Build.bat
-
-# Module::Install
-inc/
-
-# ExtUtils::MakeMaker
-/blib/
-/_eumm/
-/*.gz
-/Makefile
-/Makefile.old
-/MANIFEST.bak
-/pm_to_blib
-/*.zip
+config
+logs/
+logs
+*.log
+config/log4perl.conf
+lib/Custom/
+test_Script
+uploads/finished/
+uploads/
+.*.log.LCK
+lib/Conf.pm

bin/app.psgi

@@ -0,0 +1,46 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use lib '/developer_dashboard/cpanlib';
+use lib '/developer_dashboard/lib';
+use File::FindLib 'lib';
+use File::FindLib 'cpanlib';
+# use this block if you don't need middleware, and only have a single target Dancer app to run here
+use developerdashboard;
+
+
+developerdashboard->to_app;
+
+=begin comment
+# use this block if you want to include middleware such as Plack::Middleware::Deflater
+
+use developerdashboard;
+use Plack::Builder;
+
+builder {
+    enable 'Deflater';
+    developerdashboard->to_app;
+}
+
+=end comment
+
+=cut
+
+=begin comment
+# use this block if you want to mount several applications on different path
+
+use developerdashboard;
+use developerdashboard_admin;
+
+use Plack::Builder;
+
+builder {
+    mount '/'      => developerdashboard->to_app;
+    mount '/admin'      => developerdashboard_admin->to_app;
+}
+
+=end comment
+
+=cut
+

bin/config.yml

@@ -0,0 +1,21 @@
+--- 
+environment : production
+appname: developerdashboard
+charset: UTF-8
+engines: 
+  session: 
+    YAML: 
+      cookie_name: eshop.session
+      is_http_only: 1
+      is_secure: 1
+    JSON:
+        allow_blessed:   '1'
+        canonical:       '1'
+        convert_blessed: '1'
+        allow_nonref:    '1'
+layout: main
+port: 6776
+template: template_toolkit
+logger: file
+log_path : '/home/ubuntu/test_dancer/logs'
+log_file : 'Applog.log'

config.yaml

@@ -0,0 +1,10 @@
+--- 
+environment : production
+appname: developerdashboard
+charset: UTF-8
+template: template_toolkit
+engines:
+  session:
+    Simple:
+      cookie_name: dashboard.user
+      cookie_duration: '1 hours'

config/log4perl.conf

@@ -0,0 +1,23 @@
+log4perl.category.dashboardlog          = ALL, Logfile
+log4perl.appender.Logfile               = Log::Dispatch::FileRotate
+
+log4perl.appender.Logfile.Threshold     = ALL
+log4perl.appender.Logfile.filename      =  /developer-dashboard-for-jira/developerdashboard.log
+log4perl.appender.Logfile.max           = 50
+log4perl.appender.Logfile.DatePattern   = yyyy-MM-dd
+log4perl.appender.Logfile.TZ            = UTC
+log4perl.appender.Logfile.layout        = Log::Log4perl::Layout::PatternLayout 
+log4perl.appender.Logfile.layout.ConversionPattern = [%d] [%P] [%F] [%L] [%C] [%5p] %m%n
+log4perl.appender.Logfile.mode          = append
+
+log4perl.category.dblog                = ALL, DBlogs
+
+log4perl.appender.DBlogs               = Log::Dispatch::FileRotate
+log4perl.appender.DBlogs.Threshold     = ALL
+log4perl.appender.DBlogs.filename      = /developer-dashboard-for-jira/logs/DB.log
+log4perl.appender.DBlogs.max           = 50
+log4perl.appender.DBlogs.DatePattern   = yyyy-MM-dd
+log4perl.appender.DBlogs.TZ            = UTC
+log4perl.appender.DBlogs.layout        = Log::Log4perl::Layout::PatternLayout 
+log4perl.appender.DBlogs.layout.ConversionPattern = [%d] [%P] [%F] [%L] [%C] [%5p] %m%n
+log4perl.appender.DBlogs.mode          = append

cpanlib/B/Hooks/EndOfScope.pm

@@ -0,0 +1,177 @@
+package B::Hooks::EndOfScope; # git description: 0.23-2-ga391106
+# ABSTRACT: Execute code after a scope finished compilation
+# KEYWORDS: code hooks execution scope
+
+use strict;
+use warnings;
+
+our $VERSION = '0.24';
+
+use 5.006001;
+
+BEGIN {
+  use Module::Implementation 0.05;
+  Module::Implementation::build_loader_sub(
+    implementations => [ 'XS', 'PP' ],
+    symbols => [ 'on_scope_end' ],
+  )->();
+}
+
+use Sub::Exporter::Progressive 0.001006 -setup => {
+  exports => [ 'on_scope_end' ],
+  groups  => { default => ['on_scope_end'] },
+};
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+B::Hooks::EndOfScope - Execute code after a scope finished compilation
+
+=head1 VERSION
+
+version 0.24
+
+=head1 SYNOPSIS
+
+    on_scope_end { ... };
+
+=head1 DESCRIPTION
+
+This module allows you to execute code when perl finished compiling the
+surrounding scope.
+
+=head1 FUNCTIONS
+
+=head2 on_scope_end
+
+    on_scope_end { ... };
+
+    on_scope_end $code;
+
+Registers C<$code> to be executed after the surrounding scope has been
+compiled.
+
+This is exported by default. See L<Sub::Exporter> on how to customize it.
+
+=head1 LIMITATIONS
+
+=head2 Pure-perl mode caveat
+
+This caveat applies to B<any> version of perl where L<Variable::Magic>
+is unavailable or otherwise disabled.
+
+While L<Variable::Magic> has access to some very dark sorcery to make it
+possible to throw an exception from within a callback, the pure-perl
+implementation does not have access to these hacks. Therefore, what
+would have been a B<compile-time exception> is instead B<converted to a
+warning>, and your execution will continue as if the exception never
+happened.
+
+To explicitly request an XS (or PP) implementation one has two choices. Either
+to import from the desired implementation explicitly:
+
+ use B::Hooks::EndOfScope::XS
+   or
+ use B::Hooks::EndOfScope::PP
+
+or by setting C<$ENV{B_HOOKS_ENDOFSCOPE_IMPLEMENTATION}> to either C<XS> or
+C<PP>.
+
+=head2 Perl 5.8.0 ~ 5.8.3
+
+Due to a L<core interpreter bug
+|https://rt.perl.org/Public/Bug/Display.html?id=27040#txn-82797> present in
+older perl versions, the implementation of B::Hooks::EndOfScope deliberately
+leaks a single empty hash for every scope being cleaned. This is done to
+avoid the memory corruption associated with the bug mentioned above.
+
+In order to stabilize this workaround use of L<Variable::Magic> is disabled
+on perls prior to version 5.8.4. On such systems loading/requesting
+L<B::Hooks::EndOfScope::XS> explicitly will result in a compile-time
+exception.
+
+=head2 Perl versions 5.6.x
+
+Versions of perl before 5.8.0 lack a feature allowing changing the visibility
+of C<%^H> via setting bit 17 within C<$^H>. As such the only way to achieve
+the effect necessary for this module to work, is to use the C<local> operator
+explicitly on these platforms. This might lead to unexpected interference
+with other scope-driven libraries relying on the same mechanism. On the flip
+side there are no such known incompatibilities at the time this note was
+written.
+
+For further details on the unavailable behavior please refer to the test
+file F<t/02-localise.t> included with the distribution.
+
+=head1 SEE ALSO
+
+L<Sub::Exporter>
+
+L<Variable::Magic>
+
+=head1 SUPPORT
+
+Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=B-Hooks-EndOfScope>
+(or L<[email protected]|mailto:[email protected]>).
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Florian Ragwitz <[email protected]>
+
+=item *
+
+Peter Rabbitson <[email protected]>
+
+=back
+
+=head1 CONTRIBUTORS
+
+=for stopwords Karen Etheridge Tatsuhiko Miyagawa Christian Walde Tomas Doran Graham Knop Simon Wilper
+
+=over 4
+
+=item *
+
+Karen Etheridge <[email protected]>
+
+=item *
+
+Tatsuhiko Miyagawa <[email protected]>
+
+=item *
+
+Christian Walde <[email protected]>
+
+=item *
+
+Tomas Doran <[email protected]>
+
+=item *
+
+Graham Knop <[email protected]>
+
+=item *
+
+Simon Wilper <[email protected]>
+
+=back
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2008 by Florian Ragwitz.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut