File Coverage

blib/lib/DBIx/CSSQuery.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package DBIx::CSSQuery;
use strict;
use 5.008;

use DBIx::CSSQuery::Collection;

our $VERSION = '0.04';

use Sub::Exporter -setup => {
    exports => [qw(db)]
};

{
    my $db;
    sub db {
        my @args = @_;
        $db ||= DBIx::CSSQuery::Collection->new();

        return $db->{db} if !@args;

        if ($args[0]) {
            $db->{selector} = $args[0];
            $db->{sql_params} = {
                order => "ORDER BY id ASC",
                limit => undef
            }
        }
        return $db;
    }
}

1;

__END__