view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/00-fixme.t                            FIXME/TODO/BUG warnings
t/00-pod-coverage.t                     POD::Coverage testing
t/00-pod.t                              Checking all POD documents
t/00-trailingspace.t                    Style test: TrailingSpace
t/01-use.t                              Test script
t/02-url.t                              Database connecting URL testing
t/03-connect.t                          Database connecting testing
t/04-transaction.t                      Database transaction testing
t/05-dump.t                             SQL dumps
META.yml                                 Module YAML meta-data (added by MakeMaker)
META.json                                Module JSON meta-data (added by MakeMaker)

META.json  view on Meta::CPAN

      "license" : [
         "https://opensource.org/license/artistic-2-0"
      ],
      "repository" : {
         "type" : "git",
         "url" : "https://abalama@git.code.sf.net/p/acrux-dbi/code",
         "web" : "https://sourceforge.net/p/acrux-dbi/code/ci/master/tree/"
      }
   },
   "version" : "0.04",
   "x_serialization_backend" : "JSON::PP version 4.16"
}

lib/Acrux/DBI/Res.pm  view on Meta::CPAN

=head1 LICENSE

This program is distributed under the terms of the Artistic License Version 2.0

See the C<LICENSE> file or L<https://opensource.org/license/artistic-2-0> for details

=cut

use Carp qw/croak/;
use Mojo::Collection;
use Mojo::JSON qw(from_json);
use Mojo::Util qw(tablify);

sub new {
    my $class = shift;
    my $args = scalar(@_) ? scalar(@_) > 1 ? {@_} : {%{$_[0]}} : {};
    my $sth = $args->{sth};
       croak 'Invalid STH' unless ref($sth);
    my $self  = bless {
            sth     => $sth,
            dbi     => undef,