/usr/share/perl5/Alzabo/ColumnDefinition.pm is in libalzabo-perl 0.92-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | package Alzabo::ColumnDefinition;
use strict;
use vars qw($VERSION);
use Alzabo;
$VERSION = 2.0;
1;
sub type
{
my $self = shift;
return $self->{type};
}
sub length
{
my $self = shift;
return $self->{length};
}
sub precision
{
my $self = shift;
return $self->{precision};
}
sub owner
{
my $self = shift;
return $self->{owner};
}
__END__
=head1 NAME
Alzabo::ColumnDefinition - Holds the type attribute for a column
=head1 SYNOPSIS
my $def = $column->definition;
print $def->type;
=head1 DESCRIPTION
This object holds information on a column that might need to be shared
with another column. The reason for this is that if a column is a key
in two or more tables, then some of the information related to that
column should change automatically for all tables (and all columns)
whenever it is changed anywhere. Right now this is only type
('VARCHAR', 'NUMBER', etc) information. This object also has an
'owner', which is the column which created it.
=head1 METHODS
=head2 type
Returns the object's type as a string.
=head2 length
Returns the length attribute of the column, or undef if there is none.
=head2 precision
Returns the precision attribute of the column, or undef if there is
none.
=head2 owner
Returns the L<C<Alzabo::Column>|Alzabo::Column> object that owns this
definitions (the column that created it).
=head1 AUTHOR
Dave Rolsky, <autarch@urth.org>
=cut
|