Name | Date | Size | #Lines | LOC | ||
---|---|---|---|---|---|---|
.. | 03-May-2022 | - | ||||
lib/DBIx/ | H | 03-May-2022 | - | 755 | 423 | |
t/ | H | 03-May-2022 | - | 363 | 337 | |
xt/ | H | 03-May-2022 | - | 50 | 38 | |
Build.PL | H A D | 09-Jul-2013 | 1.8 KiB | 70 | 55 | |
Changes | H A D | 09-Jul-2013 | 1.7 KiB | 78 | 46 | |
LICENSE | H A D | 09-Jul-2013 | 18 KiB | 380 | 292 | |
MANIFEST | H A D | 09-Jul-2013 | 570 | 27 | 27 | |
META.json | H A D | 09-Jul-2013 | 3.2 KiB | 117 | 116 | |
META.yml | H A D | 09-Jul-2013 | 1.9 KiB | 71 | 70 | |
README.md | H A D | 09-Jul-2013 | 1.8 KiB | 65 | 39 | |
README.mkdn | H A D | 09-Jul-2013 | 1.2 KiB | 52 | 33 | |
cpanfile | H A D | 09-Jul-2013 | 197 | 10 | 8 |
README.md
1# NAME 2 3DBIx::Inspector - Get information from $dbh 4 5# SYNOPSIS 6 7 use DBIx::Inspector; 8 9 my $dbh = DBI->connect(...) or die; 10 my $inspector = DBIx::Inspector->new(dbh => $dbh); 11 my @tables = $inspector->tables; 12 for my $table (@tables) { 13 print " pk:\n"; 14 for my $pk ($table->primary_key) { 15 print " ", $pk->name, "\n"; 16 } 17 print " columns:\n"; 18 for my $column ($table->columns) { 19 print " ", $column->name, "\n"; 20 } 21 } 22 23# DESCRIPTION 24 25DBIx::Inspector is a inspector for $dbh. 26 27This is under development. __Any API will change without notice.__ 28 29# METHODS 30 31- `my $inspector = DBIx::Inspector->new(dbh => $dbh);` 32 33 Create new instance of DBIx::Inspector. 34 35- `my @tables = $inspector->tables();` 36 37 Retrieve table objects from $dbh. Every elements in @tables is instance of [DBIx::Inspector::Table](http://search.cpan.org/perldoc?DBIx::Inspector::Table). 38 39- `my $table = $inspector->table($table_name);` 40 41 Retrieve table object from $dbh. Return value is instance of [DBIx::Inspector::Table](http://search.cpan.org/perldoc?DBIx::Inspector::Table). 42 43- `my @views = $inspector->views();` 44 45 Retrieve view objects from $dbh. Every elements in @views is instance of [DBIx::Inspector::Table](http://search.cpan.org/perldoc?DBIx::Inspector::Table). 46 47- `my $view = $inspector->view($view_name);` 48 49 Retrieve view object from $dbh. Return value is instance of [DBIx::Inspector::Table](http://search.cpan.org/perldoc?DBIx::Inspector::Table). 50 51# AUTHOR 52 53Tokuhiro Matsuno <tokuhirom AAJKLFJEF@ GMAIL COM> 54 55# SEE ALSO 56 57[DBI](http://search.cpan.org/perldoc?DBI) 58 59# LICENSE 60 61Copyright (C) Tokuhiro Matsuno 62 63This library is free software; you can redistribute it and/or modify 64it under the same terms as Perl itself. 65
README.mkdn
1# NAME 2 3DBIx::Inspector - Get information from $dbh 4 5# SYNOPSIS 6 7 use DBIx::Inspector; 8 9 my $dbh = DBI->connect(...) or die; 10 my $inspector = DBIx::Inspector->new(dbh => $dbh); 11 my @tables = $inspector->tables; 12 for my $table (@tables) { 13 print " pk:\n"; 14 for my $pk ($table->primary_key) { 15 print " ", $pk->name, "\n"; 16 } 17 print " columns:\n"; 18 for my $column ($table->columns) { 19 print " ", $column->name, "\n"; 20 } 21 } 22 23# DESCRIPTION 24 25DBIx::Inspector is a inspector for $dbh. 26 27This is under development. __Any API will change without notice.__ 28 29# METHODS 30 31- my $inspector = DBIx::Inspector->new(dbh => $dbh); 32 33Create new instance of DBIx::Inspector. 34 35- my @tables = $inspector->tables(); 36 37Retrieve table objects from $dbh. Every elements in @tables is instance of [DBIx::Inspector::Table](http://search.cpan.org/perldoc?DBIx::Inspector::Table). 38 39# AUTHOR 40 41Tokuhiro Matsuno <tokuhirom AAJKLFJEF@ GMAIL COM> 42 43# SEE ALSO 44 45[DBI](http://search.cpan.org/perldoc?DBI) 46 47# LICENSE 48 49Copyright (C) Tokuhiro Matsuno 50 51This library is free software; you can redistribute it and/or modify 52it under the same terms as Perl itself.