Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package data_models::device_pool;
- use warnings;
- use strict;
- use data_models::Base;
- my $table = 'device_pool';
- my $map = {
- ProviderName => 'Providername',
- ccmclustername => 'ccmclustername',
- name => 'name',
- pkid => 'pkid',
- };
- sub read
- {
- my $class = shift;
- my ($dbh, $parms, $fieldlist) = @_;
- my $data = data_models::Base::read($dbh, $table, $map, $parms, $fieldlist);
- return $data;
- }
- sub update
- {
- my $class = shift;
- my ($dbh, $keys, $updates) = @_;
- my $count = data_models::Base::update($dbh, $table, $map, $keys, $updates);
- return $count;
- }
Add Comment
Please, Sign In to add comment