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.
119 lines
1.9 KiB
119 lines
1.9 KiB
package NGCP::Schema::Result::customer_registers;
|
|
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.customer_registers");
|
|
|
|
__PACKAGE__->add_columns(
|
|
"id",
|
|
{
|
|
data_type => "integer",
|
|
extra => { unsigned => 1 },
|
|
is_auto_increment => 1,
|
|
is_nullable => 0,
|
|
},
|
|
"customer_id",
|
|
{
|
|
data_type => "integer",
|
|
extra => { unsigned => 1 },
|
|
is_foreign_key => 1,
|
|
is_nullable => 0,
|
|
},
|
|
"actor",
|
|
{ data_type => "varchar", is_nullable => 1, size => 15 },
|
|
"type",
|
|
{ data_type => "varchar", is_nullable => 0, size => 31 },
|
|
"data",
|
|
{ data_type => "text", is_nullable => 1 },
|
|
);
|
|
|
|
__PACKAGE__->set_primary_key("id");
|
|
|
|
__PACKAGE__->belongs_to(
|
|
"customer",
|
|
"NGCP::Schema::Result::customers",
|
|
{ id => "customer_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::customer_registers
|
|
|
|
=head1 COMPONENTS LOADED
|
|
|
|
=over 4
|
|
|
|
=item * L<DBIx::Class::InflateColumn::DateTime>
|
|
|
|
=item * L<DBIx::Class::Helper::Row::ToJSON>
|
|
|
|
=back
|
|
|
|
=head1 TABLE: C<billing.customer_registers>
|
|
|
|
=head1 ACCESSORS
|
|
|
|
=head2 id
|
|
|
|
data_type: 'integer'
|
|
extra: {unsigned => 1}
|
|
is_auto_increment: 1
|
|
is_nullable: 0
|
|
|
|
=head2 customer_id
|
|
|
|
data_type: 'integer'
|
|
extra: {unsigned => 1}
|
|
is_foreign_key: 1
|
|
is_nullable: 0
|
|
|
|
=head2 actor
|
|
|
|
data_type: 'varchar'
|
|
is_nullable: 1
|
|
size: 15
|
|
|
|
=head2 type
|
|
|
|
data_type: 'varchar'
|
|
is_nullable: 0
|
|
size: 31
|
|
|
|
=head2 data
|
|
|
|
data_type: 'text'
|
|
is_nullable: 1
|
|
|
|
=head1 PRIMARY KEY
|
|
|
|
=over 4
|
|
|
|
=item * L</id>
|
|
|
|
=back
|
|
|
|
=head1 RELATIONS
|
|
|
|
=head2 customer
|
|
|
|
Type: belongs_to
|
|
|
|
Related object: L<NGCP::Schema::Result::customers>
|