File Coverage

blib/lib/Apache/AxKit/Provider/RDBMS.pm

Criterion	Covered	Total	%
statement	6	30	20.0
branch	0	6	0.0
condition			n/a
subroutine	2	7	28.5
pod	0	5	0.0
total	8	48	16.6

package Apache::AxKit::Provider::RDBMS;

use strict;
use warnings;

our @ISA = qw( Apache::AxKit::Provider );

our $VERSION = '0.01';

# Preloaded methods go here.


## private methods
our $loadModule;

sub init {
    my $this = shift;
    my ( %p ) = @_;
    my $r = $this->{apache};

    my $adapter = $r->dir_config( "RDBMSCacheAdapter" );

    if( ! defined $adapter ) {
        $adapter = "Apache::AxKit::Provider::RDBMS::DBCacheAdapter::SQLite";
    }


    my $content_provider = $r->dir_config( "RDBMSContentProvider" );

    if( ! defined $content_provider ) {
        $content_provider = "Apache::AxKit::Provider::RDBMS::ContentProvider::SQL";
    }

    $this->$loadModule( $adapter );
    $this->$loadModule( $content_provider );

    $this->{cacheAdapter}   = $adapter->new( $this->{apache} );
    $this->{contentAdapter} = $content_provider->new( $this->{apache} );

    $this->{key} = $this->{apache}->location;
}

$loadModule = sub  {
    my $this   = shift;
    my $module = shift;

    $module =~ s/::/\//g;
    $module .= ".pm";

    require $module;
};

sub mtime {
    my $this = shift;
    return $this->{cacheAdapter}->mtime();
}


sub get_strref {
    my $this = shift;
    my $content;

    ## work-around axit-bug
    if( ! defined $this->{xml} ) {
        $this->{xml} = $this->{contentAdapter}->getContent();
    }

    $content = $this->{xml};

    return \$content;
}

sub key {
    return $_[0]->{key};
}

sub process {
    return 1;
}

1;

__END__