47 lines
811 B
Perl
47 lines
811 B
Perl
package Hydra::Model::DB;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use base 'Catalyst::Model::DBIC::Schema';
|
|
|
|
sub getHydraPath {
|
|
my $dir = $ENV{"HYDRA_DATA"} || "/var/lib/hydra";
|
|
die "The HYDRA_DATA directory ($dir) does not exist!\n" unless -d $dir;
|
|
return $dir;
|
|
}
|
|
|
|
sub getHydraDBPath {
|
|
return $ENV{"HYDRA_DBI"} || "dbi:Pg:dbname=hydra;";
|
|
}
|
|
|
|
__PACKAGE__->config(
|
|
schema_class => 'Hydra::Schema',
|
|
connect_info => {
|
|
dsn => getHydraDBPath
|
|
},
|
|
);
|
|
|
|
=head1 NAME
|
|
|
|
Hydra::Model::DB - Catalyst DBIC Schema Model
|
|
=head1 SYNOPSIS
|
|
|
|
See L<Hydra>
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
L<Catalyst::Model::DBIC::Schema> Model using schema L<Hydra::Schema>
|
|
|
|
=head1 AUTHOR
|
|
|
|
Eelco Dolstra
|
|
|
|
=head1 LICENSE
|
|
|
|
This library is free software, you can redistribute it and/or modify
|
|
it under the same terms as Perl itself.
|
|
|
|
=cut
|
|
|
|
1;
|