File Coverage

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

Criterion	Covered	Total	%
statement	8	17	47.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	11	28	39.2

package Plack::App::ServiceStatus::DBI;

# ABSTRACT: Check DBI 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 $dbh   = $args->[0];
    my $query = $args->[1] || 'select 1';

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

1;

__END__