Daje-Plugin-Mail
view release on metacpan or search on metacpan
lib/Daje/Database/Model/Super/MailAttachements.pm view on Meta::CPAN
#
# METHODS
# =======
#
#
# LICENSE
# =======
#
# Copyright (C) janeskil1525.
#
# This library is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
# AUTHOR
# ======
#
# janeskil1525 E<lt>janeskil1525@gmail.com
#
# This file is generated automatically by Daje Tools 2026-02-13 15:59:42.
# It will be re-created by Daje Tools again and any changes
# will be over written.
#
# <!-- Autogenerated file 2026-02-13 15:59:42 -->
our $VERSION = '0.01';
has 'fields' => '"mail_attachements_pkey", "editnum", "insby", "insdatetime", "modby", "moddatetime","filename",
"mail_mails_fkey"';
has 'primary_key_name' => "mail_attachements_pkey";
has 'table_name' => "mail_attachements";
has 'mandatory' => 'filename,mail_mails_fkey,';
has 'workflow' => '';
async sub load_mail_mails_fkey_p($self, $mail_mails_fkey) {
return $self->load_mail_mails_fkey($mail_mails_fkey);
}
sub load_mail_mails_fkey($self, $mail_mails_fkey) {
return $self->load_fkey(
$self->table_name, $self->fields(), "mail_mails_fkey", $mail_mails_fkey
);
}
async sub load_mail_attachements_pkey_p($self, $mail_attachements_pkey) {
return $self->load_mail_attachements_pkey($mail_attachements_pkey);
}
sub load_mail_attachements_pkey($self, $mail_attachements_pkey) {
return $self->load_pk(
$self->table_name, $self->fields(), $self->primary_key_name(), $mail_attachements_pkey
);
}
sub insert($self, $data) {
my $result = $self->SUPER::insert(
$self->table_name, $data, $self->primary_key_name
);
return $result;
}
sub update($self, $data) {
return $self->SUPER::update
(
$self->table_name, $data,
{
$self->primary_key_name() => $data->{$self->primary_key_name()}
}
);
}
sub delete($self, $primary_key) {
return $self->SUPER::delete($self->table_name, { $self->primary_key_name() => $primary_key});
}
1;
( run in 1.053 second using v1.01-cache-2.11-cpan-39bf76dae61 )