File Coverage

blib/lib/Interchange6/Schema/Candy.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch	2	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	16	18	100.0

use utf8;
package Interchange6::Schema::Candy;

=head1 NAME

Interchange6::Schema::Candy - add DBIx::Class::Candy to our Result classes

=cut

use base 'DBIx::Class::Candy';

=head1 METHODS

=head2 base

Set base to either what is set by the Result class or else to DBIx::Class::Core

=cut

# we want to know if a class tries to use a difference base class
# uncoverable branch false
sub base { $_[1] || 'DBIx::Class::Core' }

=head2 autotable

Set autotable to either what is set by the Result class or else to 1

=cut

# we want to know if a class tries to set its table name
# uncoverable branch false
sub autotable { $_[1] || 1 }

1;