This file is indexed.

/usr/share/perl5/Alzabo/ColumnDefinition.pm is in libalzabo-perl 0.92-4.

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