Baseline - Launch of backpan.org

[catagits/BackPAN-Web.git] / lib / BackPAN / Index / Schema.pm

package BackPAN::Index::Schema;

use strict;
use warnings;

use parent qw(DBIx::Class::Schema::Loader);

use CLASS;

CLASS->loader_options(
    moniker_map => sub {
        my $table = shift;
        my $class = ucfirst $table;
        $class =~ s/s$//;

        return $class;
    },
    result_namespace => '+BackPAN::Index',
    use_namespaces => 1,
    naming         => 'current',
);


=head1 NAME

BackPAN::Index::Schema - DBIx::Class schema class

=head1 SYNOPSIS

No user servicable parts inside

=head1 DESCRIPTION

No user servicable parts inside

=cut

1;