File Coverage

blib/lib/Plack/App/ServiceStatus/DBIxConnector.pm

Criterion	Covered	Total	%
statement	8	20	40.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	5	60.0
pod	0	1	0.0
total	11	32	34.3

package Plack::App::ServiceStatus::DBIxConnector;

# ABSTRACT: Check DBIx::Connector connection

our $VERSION = '0.913'; # VERSION

use 5.018;
use strict;
use warnings;

sub check {
    my ( $class, $args ) = @_;
    $args = [$args] unless ref($args) eq 'ARRAY';

    my $conn  = $args->[0];
    my $query = $args->[1] || 'select 1';

   my $rv = $conn->run(sub {
        my $dbh = shift;
        my $sth = $dbh->prepare($query);
        $sth->execute;
        my $ok = $sth->fetchrow_array;
        return 'ok' if $ok == 1;
        return 'nok', "got: $ok";
    });

    return $rv;
}

1;

__END__