view release on metacpan or  search on metacpan

lib/File/Sticker/Database.pm  view on Meta::CPAN

    else # no prefix needed
    {
        @prefixed_tags = @{$values};
    }
    return @prefixed_tags;
} # _add_tag_prefixes

=head2 _do_one_col_query

Do a SELECT query, and return the first column of results.
This is a freeform query, so the caller must be careful to formulate it correctly.

my $results = $self->_do_one_col_query($query);

=cut

sub _do_one_col_query {
    my $self = shift;
    my $q = shift;

    if ($q !~ /^SELECT /)