view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;

use 5.005;

use Data::Dumper;
use File::Spec;

use lib 'inc';

use Alzabo::Build;

use Getopt::Long qw( :config pass_through );

my %opts;
GetOptions( 'dist'   => \$opts{dist},

inc/Alzabo/Build.pm  view on Meta::CPAN

package Alzabo::Build;

use strict;

use Module::Build 0.20;
use base 'Module::Build';

use Data::Dumper;
use File::Path;
use File::Spec;

sub ACTION_docs
{
    my $self = shift;

    $self->depends_on('code');

    $self->ACTION_pod_merge;

lib/Alzabo/RDBMSRules.pm  view on Meta::CPAN

{
    my $self = shift;
    my $table = shift;

    my $dbh = $table->schema->driver->handle;

    my $sth = $dbh->column_info( undef, $table->schema->name, $table->name, undef );

    while ( my $col_info = $sth->fetchrow_hashref )
    {
        use Data::Dumper; warn Dumper $col_info;
        my %attr = ( name     => $col_info->{COLUMN_NAME},
                     type     => $col_info->{TYPE_NAME},
                     nullable => $col_info->{NULLABLE} ? 1 : 0,
                   );

        $attr{size} =
            $col_info->{COLUMN_SIZE} if $col_info->{COLUMN_SIZE};

        $attr{precision} =
            $col_info->{DECIMAL_DIGITS} if $col_info->{DECIMAL_DIGITS};