File Coverage

blib/lib/JSAN/Index/Library.pm

Criterion	Covered	Total	%
statement	34	50	68.0
branch	5	8	62.5
condition			n/a
subroutine	12	16	75.0
pod	8	12	66.6
total	59	86	68.6

package JSAN::Index::Library;

use 5.008005;
use strict;
use warnings;
use Carp ();

our $VERSION = '0.29';

sub distribution {
    JSAN::Index::Distribution->retrieve(
        name => $_[0]->{distribution},
    );
}

sub release {
    JSAN::Index::Release->retrieve(
        id => $_[0]->{release},
    );
}

sub retrieve {
    my $class  = shift;
    my %params = @_;
    my $sql    = join " and ", map { "$_ = ?" } keys(%params);
    my @result = $class->select( "where $sql", values(%params) );
    if ( @result == 1 ) {
        return $result[0];
    }
    if ( @result > 1 ) {
        Carp::croak("Found more than one author record");
    } else {
        return undef;
    }
}

sub extract_libs {
    my $self = shift;
    $self->extract_resource('lib', @_);
}

sub extract_tests {
    my $self = shift;
    $self->extract_resource('tests', @_);
}

sub extract_resource {
    shift->release->extract_resource(@_);
}

sub search {
    my $class  = shift;
    my %params = @_;
    my $sql    = join " and ", map { "$_ = ?" } keys(%params);
    my @result = $class->select( "where $sql", values(%params) );
    return @result
}

sub search_like {
    my $class  = shift;
    my %params = @_;
    my $sql    = join " and ", map { "$_ like ?" } keys(%params);
    my @result = $class->select( "where $sql", values(%params) );
    return @result
}





######################################################################
# Generated by ORLite 1.25 (Unused parts are commented out)

#sub base { 'JSAN::Index' }
#
#sub table { 'library' }

sub select {
    my $class = shift;
    my $sql   = 'select "name", "distribution", "release", "version", "doc" from library ';
       $sql  .= shift if @_;
    my $rows  = JSAN::Index->selectall_arrayref( $sql, { Slice => {} }, @_ );
    bless( $_, 'JSAN::Index::Library' ) foreach @$rows;
    wantarray ? @$rows : $rows;
}

#sub count {
#    my $class = shift;
#    my $sql   = 'select count(*) from library ';
#       $sql  .= shift if @_;
#    JSAN::Index->selectrow_array( $sql, {}, @_ );
#}
#
#sub iterate {
#    my $class = shift;
#    my $call  = pop;
#    my $sql   = 'select "name", "distribution", "release", "version", "doc" from library ';
#       $sql  .= shift if @_;
#    my $sth   = JSAN::Index->prepare( $sql );
#    $sth->execute( @_ );
#    while ( $_ = $sth->fetchrow_hashref ) {
#        bless( $_, 'JSAN::Index::Library' );
#        $call->() or last;
#    }
#    $sth->finish;
#}

sub name {
    $_[0]->{name};
}

#sub distribution {
#    $_[0]->{distribution};
#}
#
#sub release {
#    $_[0]->{release};
#}

sub version {
    $_[0]->{version};
}

sub doc {
    $_[0]->{doc};
}

1;

__END__