File Coverage

blib/lib/Sakai/Stats/Database.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

#!/usr/bin/perl -w

package Sakai::Stats::Database;

use 5.008001;
use strict;
use warnings;
use Carp;
use DBI;
use DBD::mysql;

require Exporter;

use base qw(Exporter);

our @EXPORT_OK = ();

our $VERSION = '0.02';

#{{{sub new

sub new {
    my ( $class, $stats ) = @_;
    if ( !defined $stats ) { croak 'no stats object provided!'; }
    my $dsn;
    my $conn;
    my $queryhandle;
    my $database = {
        Conn        => $conn,
        DSN         => $dsn,
        QueryHandle => $queryhandle,
        Stats       => $stats,
    };
    bless $database, $class;
    return $database;
}

#}}}

#{{{sub connect

sub make_connection {
    my ($database) = @_;
    $database->{'DSN'} =
        q{dbi:}
      . q{mysql} . q{:}
      . ${ $database->{'Stats'} }->{'DBName'} . q{:}
      . ${ $database->{'Stats'} }->{'DBHost'} . q{:}
      . ${ $database->{'Stats'} }->{'DBPort'};
    $database->{'Conn'} = DBI->connect(
        $database->{'DSN'},
        ${ $database->{'Stats'} }->{'DBUser'},
        ${ $database->{'Stats'} }->{'DBPass'}
    ) || croak 'Problem accessing stats database';
    return 1;
}

#}}}

#{{{sub inst_users_per_month

sub inst_users_per_month {
    my ( $database, $year, $month ) = @_;
    my $query =
        q{select SESSION_USER FROM SAKAI_SESSION WHERE SESSION_START LIKE '}
      . $year . q{-}
      . $month . q{%'};
    $database->{'QueryHandle'} = $database->{'Conn'}->prepare($query);
    $database->{'QueryHandle'}->execute();
    return 1;
}

#}}}

1;

__END__