MetaAdaptor.pm 791 Bytes
Newer Older
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
=pod

=head1 NAME

    Bio::EnsEMBL::Hive::DBSQL::MetaAdaptor

=head1 SYNOPSIS

    $dba->get_MetaAdaptor->store( \@rows );

=head1 DESCRIPTION

    This is currently an "objectless" adaptor for storing and fetching metadata

=head1 CONTACT

    Please contact ehive-users@ebi.ac.uk mailing list with questions/suggestions.

=cut


package Bio::EnsEMBL::Hive::DBSQL::MetaAdaptor;

use strict;

use base ('Bio::EnsEMBL::Hive::DBSQL::NakedTableAdaptor');


sub default_table_name {
    return 'hive_meta';
}


sub store_pair {
    my ($self, $meta_key, $meta_value) = @_;

    return $self->store( { 'meta_key' => $meta_key, 'meta_value' => $meta_value } );
}

40
41
42
43
44
45
46

sub fetch_value_by_key {
    my ($self, $meta_key) = @_;

    return $self->fetch_by_meta_key( $meta_key )->{'meta_value'};
}

47
48
1;