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

JANESKIL / Daje-Workflow-GenerateSQL-Activity-1.07 / lib / Daje / Workflow / GenerateSQL / Script / ForeignKey.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

              
package Daje::Workflow::GenerateSQL::Script::ForeignKey;
use Mojo::Base 'Daje::Workflow::GenerateSQL::Base::Common', -base, -signatures;
has 'tablename'  => "";
has 'created'  => 0;
sub create_foreign_keys($self) {
    my $fkeys = '';
    $self->templates->{template_fkey} = "";
    $self->templates->{template_ind} = "";
    eval {
        my $fields = $self->json->{fields};
        foreach my $key (sort keys %{$fields}) {
            if (index($key,'_fkey') > -1) {
                my ($template_fkey,$template_ind) = $self->get_templates($key);
                my $referenced_table = substr($key,0,index($key,'_fkey'));
                $self->templates->{template_fkey} .= ",  " . $template_fkey;
                $self->templates->{template_ind} .= "  " . $template_ind;
                $self->created(1);
            }
        }
    };
    $self->error->add_error($@) if defined $@;
    return;
}
sub get_templates($self, $key) {
    my $referenced_table = substr($key,0,index($key,'_fkey'));
    my $template_fkey = $self->templates->get_data_section('foreign_key');
    $template_fkey =~ s/<<referenced_table>>/$referenced_table/ig;
    my $template_ind = $self->templates->get_data_section('index');
    my $table_name = $self->tablename;
    $template_ind =~ s/<<type>>//ig;
    $template_ind =~ s/<<table>>/$table_name/ig;
    $template_ind =~ s/<<field_names>>/$key/ig;
    $template_ind =~ s/<<fields>>/$key/ig;
    $self->created(1);
    return ($template_fkey,$template_ind);
}
1;
#################### pod generated by Pod::Autopod - keep this line to make pod updates possible ####################
=head1 NAME
Daje::Workflow::GenerateSQL::Script::ForeignKey
=head1 DESCRIPTION
pod generated by Pod::Autopod - keep this line to make pod updates possible ####################
=head1 REQUIRES
L<Mojo::Base> 
=head1 METHODS
=head2 create_foreign_keys($self)
 create_foreign_keys($self)();
=head2 get_templates($self,
 get_templates($self,();
=cut