File Coverage

blib/lib/Interchange6/Schema.pm

Criterion	Covered	Total	%
statement	27	40	67.5
branch	0	10	0.0
condition			n/a
subroutine	9	10	90.0
pod			n/a
total	36	60	60.0

use utf8;

package Interchange6::Schema;

=encoding utf8

=head1 NAME

Interchange6::Schema - Database Schema for Interchange 6

=head1 VERSION

0.070

=cut

our $VERSION = '0.070';

=head1 DESCRIPTION

Database schema classes for Interchange6 Open Source eCommerce
software.

Components used:

=over

=item * L

=item * L

=back

=cut

use strict;
use warnings;

use base 'DBIx::Class::Schema';

__PACKAGE__->load_components( 'Helper::Schema::DateTime',
    'Helper::Schema::QuoteNames' );

__PACKAGE__->load_namespaces(
    default_resultset_class => 'ResultSet',
);

=head1 MANUAL

Please see the L for an overview of available documentation.

=head1 METHODS

=head2 deploy

Overload L in order to add some core fixtures
via the following classes:

=over

=item * Interchange6::Schema::Populate::CountryLocale

=item * Interchange6::Schema::Populate::MessageType

=item * Interchange6::Schema::Populate::Role

=item * Interchange6::Schema::Populate::StateLocale

=item * Interchange6::Schema::Populate::Zone

=back

=cut

{
    use Interchange6::Schema::Populate::CountryLocale;
    use Interchange6::Schema::Populate::MessageType;
    use Interchange6::Schema::Populate::Role;
    use Interchange6::Schema::Populate::StateLocale;
    use Interchange6::Schema::Populate::Zone;

    sub deploy {
        my $self = shift;
        my $new  = $self->next::method(@_);

        my $pop_country =
          Interchange6::Schema::Populate::CountryLocale->new->records;
        $self->resultset('Country')->populate($pop_country)
          or die "Failed to populate Country";

        my $pop_messagetype =
          Interchange6::Schema::Populate::MessageType->new->records;
        $self->resultset('MessageType')->populate($pop_messagetype)
          or die "Failed to populate MessageType";

        my $pop_role =
          Interchange6::Schema::Populate::Role->new->records;
        $self->resultset('Role')->populate($pop_role)
          or die "Failed to populate Role";

        my $pop_state =
          Interchange6::Schema::Populate::StateLocale->new->records;
        my $states = $self->resultset('State')->populate($pop_state)
          or die "Failed to populate State";

        my $min_states_id = $self->resultset('State')->search(
            {},
            {
                select => [ { min => 'states_id' } ],
                as     => ['min_id'],
            }
        )->first->get_column('min_id');

        my $pop_zone =
          Interchange6::Schema::Populate::Zone->new(
              states_id_initial_value => $min_states_id )->records;
        $self->resultset('Zone')->populate($pop_zone)
          or die "Failed to populate Zone";
    }
}

1;

__END__