From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JANESKIL / Daje-Workflow-Database-Model-0.16 / lib / Daje / Workflow / Database / Model / History.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
—
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

              
package Daje::Workflow::Database::Model::History;
use Mojo::Base -base, -signatures;
# NAME
# ====
#
# Daje::Workflow::Database::Model::History
#
#
# REQUIRES
# ========
#
# Mojo::Base>
#
# METHODS
# =======
#
#  insert($self, $data);
#
#  load_list($self, $workflow_pkey);
#
#
# 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.comE<gt>
#
has 'db';
sub load_list($self, $workflow_pkey) {
    my $data = $self->db->select(
        'workflow',  ['*'],
        {
            workflow_fkey => $workflow_pkey
        }
    );
    my $hashes;
    $hashes = $data->hashes if $data->rows > 0;
    return $hashes;
}
sub insert($self, $data) {
    $self->db->insert(
        'history',
        {
            %$data
        }
    );
}
1;
#################### pod generated by Pod::Autopod - keep this line to make pod updates possible ####################
=head1 NAME
Daje::Workflow::Database::Model::History
=head1 REQUIRES
Mojo::Base>
=head1 METHODS
 insert($self, $data);
 load_list($self, $workflow_pkey);
=head1 AUTHOR
janeskil1525 E<lt>janeskil1525@gmail.comE<gt>
=head1 LICENSE
Copyright (C) janeskil1525.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut