1package DBIx::Inspector::Column; 2use strict; 3use warnings; 4use utf8; 5use Class::Accessor::Lite; 6Class::Accessor::Lite->mk_accessors(qw/inspector/); 7 8sub new { 9 my $class = shift; 10 my %args = @_ == 1 ? %{ $_[0] } : @_; 11 bless {%args}, $class; 12} 13 14sub get { $_[0]->{$_[1]} } 15 16sub name { $_[0]->{COLUMN_NAME} } 17sub column_name { $_[0]->{COLUMN_NAME} } 18sub data_type { $_[0]->{DATA_TYPE} } 19sub type_name { $_[0]->{TYPE_NAME} } 20sub column_size { $_[0]->{COLUMN_SIZE} } 21sub nullable { $_[0]->{NULLABLE} } 22sub remarks { $_[0]->{REMARKS} } 23sub column_def { $_[0]->{COLUMN_DEF} } 24sub is_nullable { $_[0]->{IS_NULLABLE} } 25 261; 27__END__ 28 29=head1 NAME 30 31DBIx::Inspector::Column - column object 32 33=head1 METHODS 34 35=over 4 36 37=item $column->get($name) 38 39You can get the value of parameter. The $name is listed in DBI.pm. 40 41=back 42 43=head1 ATTRIBUTES 44 45This class provides following attributes. 46 47 sub name { $_[0]->{COLUMN_NAME} } 48 sub column_name { $_[0]->{COLUMN_NAME} } 49 sub data_type { $_[0]->{DATA_TYPE} } 50 sub type_name { $_[0]->{TYPE_NAME} } 51 sub column_size { $_[0]->{COLUMN_SIZE} } 52 sub nullable { $_[0]->{NULLABLE} } 53 sub remarks { $_[0]->{REMARKS} } 54 sub column_def { $_[0]->{COLUMN_DEF} } 55 sub is_nullable { $_[0]->{IS_NULLABLE} } 56 57=head1 SEE ALSO 58 59L<DBIx::Insepctor> 60 61