—# ABSTRACT: mock repository - table - People
use
Moose;
sub
BUILDARGS {
my
$class
=
shift
;
my
%args
=
@_
== 1 ? %{
$_
[0] } :
@_
;
my
$to_articles
=
Test::PONAPI::DAO::Repository::MockDB::Table::Relationships->new(
TYPE
=>
'articles'
,
TABLE
=>
'rel_articles_people'
,
ID_COLUMN
=>
'id_people'
,
REL_ID_COLUMN
=>
'id_articles'
,
COLUMNS
=> [
qw/ id_articles id_people /
],
ONE_TO_ONE
=> 0,
);
%args
= (
TYPE
=>
'people'
,
TABLE
=>
'people'
,
ID_COLUMN
=>
'id'
,
COLUMNS
=> [
qw/ id name age gender /
],
RELATIONS
=> {
articles
=>
$to_articles
, },
%args
,
);
return
\
%args
;
}
__PACKAGE__->meta->make_immutable;
no
Moose; 1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Test::PONAPI::DAO::Repository::MockDB::Table::People - mock repository - table - People
=head1 VERSION
version 0.001005
=head1 AUTHORS
=over 4
=item *
Mickey Nasriachi <mickey@cpan.org>
=item *
Stevan Little <stevan@cpan.org>
=item *
Brian Fraser <hugmeir@cpan.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2016 by Mickey Nasriachi, Stevan Little, Brian Fraser.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut