Select Code to Download

        my @last_records = database('current')->quick_select('states',
            {
...
            ) or $delstatus .= '/error from quick_select call;' .
                ' ERR [' . Dancer::Plugin::Database::Core::DBI->err . 
+'];' .
                ' ERRSTR [' . Dancer::Plugin::Database::Core::DBI->err
+str . ']';

[NagiosToServiceNow::json:40284] error @2018-09-22 20:32:46> Route exc
+eption: Can't locate object method "err" via package "Dancer::Plugin:
+:Database::Core::DBI" (perhaps you forgot to load "Dancer::Plugin::Da
+tabase::Core::DBI"?) at /home/svcanagios/n2s/bin/../lib/NagiosToServi
+ceNow/json.pm line 707. in /home/svcanagios/n2s/bin/../local/lib/perl
+5/Dancer2/Core/App.pm l. 1473

        my @last_records = database('current')->quick_select('states',
            {
...
                ' ERR [' . $Dancer::Plugin::Database::Core::DBI::err .
+ '];' .
                ' ERRSTR [' . $Dancer::Plugin::Database::Core::DBI::er
+rstr . ']';

Use of uninitialized value $Dancer::Plugin::Database::Core::DBI::err i
+n concatenation (.) or string at /home/svcanagios/n2s/bin/../lib/Nagi
+osToServiceNow/json.pm line 707.
Use of uninitialized value $Dancer::Plugin::Database::Core::DBI::errst
+r in concatenation (.) or string at /home/svcanagios/n2s/bin/../lib/N
+agiosToServiceNow/json.pm line 707.
[NagiosToServiceNow::json:57311] debug @2018-09-22 20:39:02> QUICK SEL
+ECT STATUS: --=> checking for: [tibintprdsac2p.wsgc.com][AIXERRPT] fo
+r last output entry./error from quick_select call; ERR []; ERRSTR []/
+found [0] to delete <=-- in /home/svcanagios/n2s/bin/../lib/NagiosToS
+erviceNow/json.pm l. 719

        my @last_records = database('current')->quick_select('states',
            {
...
            ) or $delstatus .= '/error from quick_select call;' .
                ' ERR [' . $Dancer::Plugin::Database::Core::DBI->err .
+ '];' .
                ' ERRSTR [' . $Dancer::Plugin::Database::Core::DBI->er
+rstr . ']';

[NagiosToServiceNow::json:40572] error @2018-09-22 20:43:11> Route exc
+eption: Can't call method "err" on an undefined value at /home/svcana
+gios/n2s/bin/../lib/NagiosToServiceNow/json.pm line 707. in /home/svc
+anagios/n2s/bin/../local/lib/perl5/Dancer2/Core/App.pm l. 1473