The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

DBIx::Util::Schema - Utility routines related to database schema

VERSION

This document describes version 0.002 of DBIx::Util::Schema (from Perl distribution DBIx-Util-Schema), released on 2020-05-06.

SYNOPSIS

use DBIx::Util::Schema qw(
    table_exists
    column_exists

    list_tables
    list_columns
    list_indexes
);

say "Database has table named 'foo'" if table_exists($dbh, "foo");

DESCRIPTION

DBI already provides methods to query schema information, e.g. table_info(), column_info(), statistics_info(), but simple things like checking whether a table or a column exists is not straightforward or easy enough. This module provides convenience routines for those tasks.

Currently only tested on SQLite, MySQL, and Postgres.

FUNCTIONS

column_exists

Usage:

column_exists($dbh, $table, $column) -> any

Alias for has_column().

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $column* => str

    Table column name.

  • $dbh* => obj

    DBI database handle.

  • $table* => str

    Table name.

Return value: (any)

has_all_columns

Usage:

has_all_columns($dbh, $table, $columns, ...) -> any

Check whether a table has all specified columns.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $columns* => array[str]

    Table column names.

  • $dbh* => obj

    DBI database handle.

  • $table* => str

    Table name.

Return value: (any)

has_all_tables

Usage:

has_all_tables($dbh, $tables, ...) -> any

Check whether database has all specified tables.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $dbh* => obj

    DBI database handle.

  • $tables* => array[str]

    Table names.

Return value: (any)

has_any_column

Usage:

has_any_column($dbh, $table, $columns, ...) -> any

Check whether a table has at least one of specified columns.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $columns* => array[str]

    Table column names.

  • $dbh* => obj

    DBI database handle.

  • $table* => str

    Table name.

Return value: (any)

has_any_table

Usage:

has_any_table($dbh, $tables, ...) -> any

Check whether database has at least one of specified tables.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $dbh* => obj

    DBI database handle.

  • $tables* => array[str]

    Table names.

Return value: (any)

has_column

Usage:

has_column($dbh, $table, $column) -> any

Check whether a table has a specified column.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $column* => str

    Table column name.

  • $dbh* => obj

    DBI database handle.

  • $table* => str

    Table name.

Return value: (any)

has_table

Usage:

has_table($dbh, $table) -> any

Check whether database has a certain table.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $dbh* => obj

    DBI database handle.

  • $table* => str

    Table name.

Return value: (any)

list_columns

Usage:

list_columns($dbh, $table) -> any

List columns of a table.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $dbh* => obj

    DBI database handle.

  • $table* => str

    Table name.

Return value: (any)

list_indexes

Usage:

list_indexes($dbh, $table) -> any

List indexes for a table in a database.

SQLite notes: information is retrieved from DBI's table_info(). Autoindex for primary key is not listed using table_info(), but this function adds it by looking at sqlite_master table.

MySQL notes: information is retrieved from statistics_info(). Note that a multi-column index is reported as separate rows by statistics_info(), one for each indexed column. But this function merges them and returns the list of columns in columns.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $dbh* => obj

    DBI database handle.

  • $table* => str

    Table name.

Return value: (any)

list_tables

Usage:

list_tables($dbh) -> any

List table names in a database.

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $dbh* => obj

    DBI database handle.

Return value: (any)

table_exists

Usage:

table_exists($dbh, $table) -> any

Alias for has_table().

This function is not exported by default, but exportable.

Arguments ('*' denotes required arguments):

  • $dbh* => obj

    DBI database handle.

  • $table* => str

    Table name.

Return value: (any)

HOMEPAGE

Please visit the project's homepage at https://metacpan.org/release/DBIx-Util-Schema.

SOURCE

Source repository is at https://github.com/perlancar/perl-DBIx-Util-Schema.

BUGS

Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=DBIx-Util-Schema

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.

SEE ALSO

Test::DBUnit currently has more methods.

DBI

AUTHOR

perlancar <perlancar@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2020 by perlancar@cpan.org.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.