view release on metacpan or  search on metacpan

lib/Daje/Generate/Templates/Perl.pm  view on Meta::CPAN

            if $primary_key and $primary_key->rows > 0;
    } catch ($e) {
        $result->{error} = $e;
        $result->{result} = 0;
        $result->{data} = {};
    };

    return $result;
}

sub update($self, $table, $data, $keys) {
    my $result->{result} = 1;
    try {
        $self->db->update($table, $data, $keys);
    } catch($e) {
        $result->{error} = $e;
        $result->{result} = 0;
    }
    return $result;
}

lib/Daje/Generate/Templates/Perl.pm  view on Meta::CPAN

    return $result;
}

@@ insert_data
sub insert_<<table_name>>($self, $data) {
    my $result = $self->insert($self->table_name, $data, $self->primary_key_name);
    return $result;
}

@@ update_data
sub update_<<table_name>>($self, $data, $keys) {
    my $result = $self->update($self->table_name, $data, $keys);
    return $result;
}

@@ view_list_interface

package <<interface>><<classname>>;
use Mojo::Base '<<name_space>><<classname>>', -base, -signatures;

# Autogenerated class <<date>>