my $first_column=$col->get_attrs_value qw(COLUMN_SEQUENCE) == 0 ? 1 : 0;
        my ($col_name,$col_type,$path)=($col->get_sql_name(%params),$col->get_sql_type(%params),$col->get_attrs_value qw(PATH));
        my $comm=defined $path ? 'PATH: '.$path : '';
        my $ref=$col->get_attrs_value qw(PATH_REFERENCE);
        $comm.=defined $ref ? ' REF: '.$ref : '';
        $comm=~s/^(\s+|\s+)$//;
        my $sqlcomm=length($comm) ?  $col->comment($comm) : '';
        $self->{STREAMER}->put_line("\t".($first_column ? '' : ',').$col_name."\t".$col_type."\t".$sqlcomm);
        return $self;
}

NAME

blx::xsdsql::generator::sql::generic::handle::insert_dictionary - generic handle for insert dictionary

SYNOPSIS

use blx::xsdsql::generator::sql::generic::handle::insert_dictionary

DESCRIPTION

this package is a class - instance it with the method new

FUNCTIONS

see the methods of blx::xsdsql::generator::sql::generic::handle

EXPORT

None by default.

EXPORT_OK

None

SEE ALSO

See blx::xsdsql::generator::sql::generic::handle - this class inherit from this

AUTHOR

lorenzo.bellotti, <pauseblx@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2011 by lorenzo.bellotti

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

See http://www.perl.com/perl/misc/Artistic.html