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