File Coverage

blib/lib/DataWarehouse/Dimension.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package DataWarehouse::Dimension;

use warnings;
use strict;

use Carp;
use Data::Dumper;
use DBI;

our $VERSION = '0.01';

sub new {
    my ( $class, %params ) = @_;

    croak "Error: One of 'dbh' or 'dsn' parameters is required" if !($params{dbh} xor $params{dsn});
    croak "Error: missing dimension name" if !$params{name};

    if ( $params{dsn} ) {
        $params{dbh} = DBI->connect( $params{dsn}, $params{db_user}, $params{db_password} ),;
    }

    bless {%params}, $class;
}

sub column_names {
    my ($self) = @_;

    my $table = $self->{name};
    warn $table;
    my $columns = $self->{dbh}->column_info( undef, undef, $table, '%' )->fetchall_arrayref();

    my @column_names = map { $_->[3] } @{$columns};
    return wantarray ? @column_names : \@column_names;
}

1;

__END__