You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
123 lines
2.0 KiB
123 lines
2.0 KiB
package NGCP::Schema::Result::credit_payments;
|
|
use Scalar::Util qw(blessed);
|
|
use parent 'DBIx::Class::Core';
|
|
|
|
our $VERSION = '2.007';
|
|
|
|
__PACKAGE__->load_components("InflateColumn::DateTime", "Helper::Row::ToJSON");
|
|
|
|
__PACKAGE__->table("billing.credit_payments");
|
|
|
|
__PACKAGE__->add_columns(
|
|
"id",
|
|
{
|
|
data_type => "integer",
|
|
extra => { unsigned => 1 },
|
|
is_auto_increment => 1,
|
|
is_nullable => 0,
|
|
},
|
|
"credit_id",
|
|
{
|
|
data_type => "integer",
|
|
extra => { unsigned => 1 },
|
|
is_foreign_key => 1,
|
|
is_nullable => 0,
|
|
},
|
|
"payment_id",
|
|
{
|
|
data_type => "integer",
|
|
extra => { unsigned => 1 },
|
|
is_foreign_key => 1,
|
|
is_nullable => 0,
|
|
},
|
|
);
|
|
|
|
__PACKAGE__->set_primary_key("id");
|
|
|
|
__PACKAGE__->belongs_to(
|
|
"credit",
|
|
"NGCP::Schema::Result::contract_credits",
|
|
{ id => "credit_id" },
|
|
{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
|
|
);
|
|
|
|
__PACKAGE__->belongs_to(
|
|
"payment",
|
|
"NGCP::Schema::Result::payments",
|
|
{ id => "payment_id" },
|
|
{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
|
|
);
|
|
|
|
sub TO_JSON {
|
|
my ($self) = @_;
|
|
return {
|
|
map { blessed($_) && $_->isa('DateTime') ? $_->datetime : $_ } %{ $self->next::method }
|
|
};
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=encoding UTF-8
|
|
|
|
=head1 NAME
|
|
|
|
NGCP::Schema::Result::credit_payments
|
|
|
|
=head1 COMPONENTS LOADED
|
|
|
|
=over 4
|
|
|
|
=item * L<DBIx::Class::InflateColumn::DateTime>
|
|
|
|
=item * L<DBIx::Class::Helper::Row::ToJSON>
|
|
|
|
=back
|
|
|
|
=head1 TABLE: C<billing.credit_payments>
|
|
|
|
=head1 ACCESSORS
|
|
|
|
=head2 id
|
|
|
|
data_type: 'integer'
|
|
extra: {unsigned => 1}
|
|
is_auto_increment: 1
|
|
is_nullable: 0
|
|
|
|
=head2 credit_id
|
|
|
|
data_type: 'integer'
|
|
extra: {unsigned => 1}
|
|
is_foreign_key: 1
|
|
is_nullable: 0
|
|
|
|
=head2 payment_id
|
|
|
|
data_type: 'integer'
|
|
extra: {unsigned => 1}
|
|
is_foreign_key: 1
|
|
is_nullable: 0
|
|
|
|
=head1 PRIMARY KEY
|
|
|
|
=over 4
|
|
|
|
=item * L</id>
|
|
|
|
=back
|
|
|
|
=head1 RELATIONS
|
|
|
|
=head2 credit
|
|
|
|
Type: belongs_to
|
|
|
|
Related object: L<NGCP::Schema::Result::contract_credits>
|
|
|
|
=head2 payment
|
|
|
|
Type: belongs_to
|
|
|
|
Related object: L<NGCP::Schema::Result::payments>
|